Menghitung bilangan kuadrat

waduh udah ke 8 kali nih saya bikin posting tentang pemograman pascal, di posting ini saya mau ngebahas gimana bikin program perpangkatan alias menghitung bilangan berpangkat. yaudah copy in aja nitu kode yang bercetak miring dibawah ke notepad terus simpen dah pake extension .pas hehehe teus compiler deh pake freepascal atau turbo pascal, tapi kalau pakai turbo pascal
uses crt; diganti sama uses wincrt;
hehehe saya tak pandai menjelaskan jadi temen temen pelajarin aja kodenya sendiri ya hehehe

program pangkat; {nama program}
uses crt;
var
hasil:longint;
a:longint;
n:integer;
m:integer;
k:integer;
begin
clrscr;
write('angka yanng akan dipangkatkan: '); read(a);
write('pangkatnya: '); read(n);
if n < 0 then
m:=-n
else
m:=n;

hasil:=1;
for k:=1 to m do
hasil:=hasil*a;
if n<0 then
write(',1')
else
write('jadi hasil ',n,' dipangkatkan ',m,' = ',hasil);
readln;
readln;
end.

Related Posts by Categories