pangkat_rekursi

program pangkat_rekursi;
uses crt;

{ fungsi rekursi untuk mencari pangkat dari bilangan dengan 2 parameter }
function hitung_pangkat(basis, pangkat: integer): integer;
begin
    if pangkat = 0 then hitung_pangkat := 1
    else if pangkat mod 2 = 0 then
        hitung_pangkat := hitung_pangkat(basis*basis, pangkat div 2)
    else
        hitung_pangkat := basis * hitung_pangkat(basis*basis, (pangkat-1) div 2);
end;

var a, b: integer;
begin
    clrscr;
    write('Masukkan basis: '); readln(a);
    write('Masukkan pangkat: '); readln(b);

    writeln('Hasil pangkat dari ', a, ' pangkat ', b, ' adalah: ', hitung_pangkat(a, b));
    readln;
end.