Rumah Info | Rumah Semua Informasi

Jika ada yang ingin bertanya, silahkan berkomentar..
var
a,b : integer;
function pangkat(basis,eksp : extended) : extended;
begin
if (eksp = 0) then
begin
pangkat := 1;
end else
pangkat := basis * pangkat(basis,eksp-1);
end;
begin
write('masukkan basis : '); readln(a);
write('masukkan eksponen basis : '); readln(b);
write('hasil : ', pangkat(a,b));
readln;
end.