Question

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ố).

Answer 1

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.