Algoritma Perpangkatan Fungsi Rekursif dalam Pascal

program pangkatfungsirekursif;

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

var
a,n:integer;

begin
writeln ('Bilangan Perangkatan');
write ('bilangan: ');readln (a);
write ('pangkat: '); readln (n);
writeln ('hasil perpangkat: ', pangkat(a,n));
readln;
end.

Lihat juga

Algoritma Perpangkatan prosedur iteratif dalam Pascal