[PHPmaster]

Permisi gan, ane mau nanya nih...

Cara menggunakan function di pascal gimana ya?

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




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>

Terkait:

• Cara Menghitung/mengukur durasi camshaft/noken as menggunakan busr derajat
• Cara Menghitung Torsi?
• [ask] programming pascal mau nentuin pangkat di KASKUS (outputnya newbie mulu)