Contoh Program Sederhana

Non rekursif

Dengan prosedur

Procedure KALI_BIASA_P(a,b : integer; var hasil : longint);
var i : integer;
begin
hasil := 0;
for i:= 1 to b do hasil := hasil + a;
end;

Dengan fungsi

Function KALI_BIASA_F(a,b:integer):longint;
var hasil : longint; i: integer;
begin
hasil := 0;
for i:= 1 to b do hasil := hasil + a;
KALI_BIASA_F := hasil;

end;

Dengan Rekursif

Dengan Prosedur

Procedure KALI_REK_P(a,b:integer;var hasil:longint)
begin
if b>1 then KALI_REK_P(a,b-1,hasil);
hasil:= hasil+a;

end;

Function KALI_REK_F(a,b:integer):longint;
begin
if b>1 then
KALI_REK_F := KALI_REK_F(a,b-1)+a
else
KALI_REK_F := a;

end;