Bài tập turbo pascal

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

a. Hướng dẫn:

b. Mã chương trình:

var n:integer;x:longint; f,g:text; 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 assign(f,’bai6_4.inp’); reset(f); assign(g,’bai6_4.out’); rewrite(g); repeat readln(f,n); until n>=0; Giai_Thua(x,n); writeln(g,'Giai thua cua ',n,' la: ',x); close(f); close(g); end.