[ASK] Cara Menghitung Pangkat di Pascal Menggunakan Function

[PHPmaster]

Permisi gan, ane mau nanya nih... :D

Cara menggunakan function di pascal gimana ya?

Ane disuruh untuk menghitung pangkat dengan menggunakan pascal, tapi yang ane bisa cuma sampe sini aja gan.. :D




Code:

program Menghitung_Pangkat;
uses crt;
var i,n,m: integer;
x: real;
begin
writeln('Program Menghitung Pangkat');
writeln('==========================');
writeln;
write('Masukkan Jumlah Pangkat : ');readln(n);

write('Masukkan Bil. Yang DiPangkat : ');readln(m);
writeln;
x:=1;
if (n>0) then
for i:= 1 to n do
x:=x*m
else if (n=0) then
x:=1
else
begin
n:=-1*n;
for i:= 1 to n do
begin
x:=x*(1/m);
end;
end;
writeln('Hasil Pangkat: ',x:6:2);
end.

Kalo pake fungsi gmn caranya ya gan? mohon pencerahannya... :)

Terima kasih sebelumnya...

</div>