program rekursi 1 dan 2

Program rekursi (bagian 1)

listing program 6.11

program RekursiFaktorial;
uses
crt;

function faktorial(x: integer) : integer ;
begin
if (x=0) then
faktorial := 1
else
faktorial := x * faktorial (x-1);
end;
var
bil, hasil : integer ;
begin
clrscr;
write ('Masukan Bilangan yang akan dihitung : '); readln(bil);
hasil := faktorial(bil);
writeln;
writeln(bil, ' ! = ', hasil);
readln;
end.

output program 6.11




progarm rekursi (bagian 2)

listing program 6.12

program RekursiPerpangkatan;

uses
crt ;

function pangkat(basis, eksp: integer): integer;
begin
if (eksp=0) then
pangkat := 1
else
pangkat := basis * pangkat(basis, eksp-1);
end;

var
hasil : integer;
begin
clrscr;
hasil := pangkat(2, 5);
writeln('2^5 = ', hasil);
readln;
end.

output program 6.12