– 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.