Pascal - Viết chương trình tính giai thừa của số n (Viết là n!)

Pascal - Viết chương trình tính giai thừa của số n (Viết là n!)

Viết chương trình tính giai thừa của số n (Viết là n!). Với yêu cầu:

- Nếu người dùng nhập số n < 0 thì yêu cầu nhập lại.

- Sử dụng chương trình con để tính giai thừa của một số.

  • n! = 1 nếu n = 0;
  • n! = 1.2.3.4.5...n (Tích của n thừa số).

Mã chương trình

Program CTC_2;

uses crt;

var n:integer;x:longint;

Procedure Giai_Thua(var GT:longint; n:byte);

begin

    GT:=1;

    while n>0 do

    begin

    GT:=GT*n;

    n:=n-1;

    end;

end;

begin

   repeat

   clrscr;

   write('Nhap so n: ');readln(n);

   if n < 0 then begin write('Nhap so n>=0');readln; end;

   until n>=0;

   Giai_Thua(x,n);

   writeln('Giai thua cua ',n,'la:',x);

   readln

end.

Nhận xét

Lệnh n:= n-1 làm thay đổi giá trị của n  nhưng khi ra khỏi chương trình con n có giá trị không đổi so với trước khi gọi chương trình con.

Bạn thấy bài viết này như thế nào?: 
Average: 5.5 (26 votes)

Advertisement

 

jobsora

Dich vu khu trung tphcm

Dich vu diet chuot tphcm

Dich vu diet con trung

Quảng Cáo Bài Viết

 
10  Drupal Commercial Theme cho website của bạn
10 Drupal Commercial Theme cho website của bạn

Where do you go when you're in the market for a great Drupal theme?

Giải quyết trục trặc thường gặp của iPad

Ra đời trong năm 2010, iPad nhanh chóng trở thành sản phẩm bom tấn của Apple. Tuy nhiên, cũng như một chiếc máy tính, iPad nhiều khi bỗng dưng... đổ bệnh.

Hậu duệ của chiếc smartphone Galaxy S II nổi tiếng nhất của Samsung sẽ ra mắt vào tháng Tư tới.
Hậu duệ của chiếc smartphone Galaxy S II nổi tiếng nhất của Samsung sẽ ra mắt vào tháng Tư tới.

Thông tin về thời điểm ra mắt Galaxy S III đã được công ty Cheil Worldwide, đối tác quảng cáo và tiếp thị của Samsung xác nhận, theo trang tin tiếng Hàn ZDNet Korea