Contoh Program Recursive Function

Recursive Function untuk menentukan pangkat n suatu bilangan..program ini sangatlah sederhana. tapi untuk yang tidak mengerti mungkin ini sungguh sangat sulit untuk membuatnya…

uses wincrt;
var bil,n:integer;

function pangkat(x,m:integer):longint;
begin
if m=0 then pangkat:=1 else
pangkat:=x*pangkat(x,m-1); {lakukan rekursif dengan mengurngi pangkatnya yaitu m}
end;

begin
write(‘masukkan bilangan sembarang ‘);readln(bil);
write(‘akan dipangkatkan berapa? ‘); readln(n);
if n<0 then writeln('maaf hanya menghitung pangkat positif') {pengecekan jika n<0} else writeln('hasil ',bil,' pangkat ',n,' adalah ',pangkat(bil,n)); end.