Faktorial

Program faktorial tanpa rekursif:

program faktorial;
uses wincrt;
var
a,b,i,n:integer;
f:longint;
begin
write('Masukkan Angka= ');read(n);
f:=1;
for i:=1 to n do
begin
f:=f*i;
end;
write('Nilai faktorial dari ',n,'! adalah ',f);
end.


syntax pascal klik disini.

Program faktorial dengan rekursif:

program faktorial_dg_rekursif;
uses wincrt;
var n:integer;
function fakt(n:integer):longint;
begin
if n=0 then
fakt:=1
else
fakt:=n*fakt(n-1);
end;
begin
write('Masukkan Bilangan yang akan di faktorialkan= ');read(n);
write(n,' Faktorialnya adalah ',fakt(n));
end.


syntax pascal klik disini.