Contoh Program Pascal Menentukan Nilai Faktorial

Algoritma Menentukan Nilai Faktorial :

1. Tentukan angka
2. Tuliskan rumus fak*i maka i = n down to 1
3. Masukkan angka pada rumus
4. Hasil.

Program
program menghitung_faktorial;
uses wincrt;
var
i,n,fak: integer;

begin
writeln ('program menghitung faktorial');
write('n= '); readln(n);
fak:= 1;
for i := n downto 1 do
fak:=fak*i; 
writeln(n,'!= ',fak);
readln;
end.

Proses Program Menentukan Nilai Faktorial

proses diatas akan menghasialkan gambar :