Arya's Blog

Function Pangkat Dengan Menggunakan Exponen

function pangkat(x,y:integer):real;
begin
pangkat:=exp(ln(x)*y);
end;
var
a,b:integer;
begin
write('Tulis sebuah bilangan :');readln(a);
write('Mau di pangkatkan berapa :');readln(b);
writeln(a,'pangkat',b:3,'adalah',pangkat(a,b):3:0);
readln;
end.