Program Pascal - Pemangkatan menggunakan Rekursif berupa Function

Source Code:

Program Pangkat_rekursif;
uses crt;
var bil,n:integer;

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

begin
 clrscr;
   writeln;
   writeln('Program Pemangakatan dengan Rekursif');
   writeln;
   write('  Inputkan Bilangan : ');readln(bil);
   write('  Inputkan Pangakat : '); readln(n);
   writeln;
   if n<0 then
     writeln('maaf hanya menghitung pangkat positif') {pengecekan jika n<0}
   else
     writeln('  Hasil : ',bil,'^',n,' = ',pangkat(bil,n));
   readln;
end.