Kali ini saya posting script pascal mengenai "Rekursi Perpangkatan Bilangan", semoga script ini membantu sobat semua

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

var
a,b,hasil: integer;
c,cr:integer;
begin
clrscr;
write('Nilai Basis = ' );readln(a);
write('Nilai Pangkat = ');readln(b);

hasil := pangkat (a,b);
write (a.'*',b,' = ');write(a);
for c:=1 to b-1 do
begin
write('*',a);
end;
writeln;
writeln (' = ',hasil);
readln;
end.

layoutnya seperti ini :
Nilai Basis = 2
Nilai Pangkat = 5
2^5 = 2 * 2 * 2 * 2 *2
= 32