Program MencariPangkat

Program MencariPangkat;
uses wincrt;
Var x : real; y : integer; z : real;

function pangkatBulat(a : real, b : integer) : real;
var i : integer; temp : real;
begin
temp := 1;
for i := 1 to b do
begin
temp := temp * a;

end;
pangkat := temp;
end;

function pangkatRiil(a : real, b : real) : real;
begin
pangkatRiil := exp(b * ln(a));
end;

Begin
x := 5;
y := 3;
z := 3.5;
Write('Nilai ',x,' pangkat ',y,' adalah ',
pangkatBulat(x,y):3:0);
Write('Nilai ',x,' pangkat ',z,' adalah ',
pangkatRiil(x,z):3:4);
End.

Categories: program bahasa pascal