Algoritma Iteratif dan Rekursif Faktorial Menggunakan Fungsi/Prosedure dalam Pascal

1. Algoritma Program Iteratif Faktorial Menggunakan Fungsi 
program fungsiterafak;

var
n:integer;

function fak (n:integer): integer;
var
i,f:integer;

begin
f:=1;
i:=1;
while i<= n do
 begin
  f:= f*i;
  i:= i+1;
 end;
 fak:= f;
end;

begin
write ('nilai faktorial dari '); readln(n);
write ('nilai faktorial dari ', n, ' adalah ', fak(n));
writeln;
read(n);
end.


2. Algoritma Program Rekursif Faktorial Menggunakan Fungsi
program fungsirekurfak;

var
n:integer;

function fak (n:integer): integer;
begin
if n = 0 then
 fak:= 1
  else
  fak:= n*fak(n-1);
end;

begin
write ('nilai faktorial dari ');  readln(n);
write ('nilai faktorial dari ', n, ' adalah ', fak(n));
writeln;
read(n);
end.

3. Algoritma Program Iteratif Faktorial Menggunakan Prosedure


program proceiterafak;

var
n,fak:integer;

procedure faktorial (n:integer; var f:integer);
var
i:integer;

begin
f:=1;
i:=1;
while i<= n do
 begin
  f:= f*i;
  i:=i+1;
 end;
end;

begin
write ('nilai faktorial dari '); readln(n);
faktorial (n, fak);
write ('nilai faktorial dari ', n, ' adalah ', fak);
writeln;
read(n);
end.