KATAGIRI

Bagi teman-teman yang mau nyoba contoh program pangkat.
Silahkan copas aja listing di bawah ini :

program pangkat;
uses wincrt;
var
   a,n,i:integer;
   j:real;
begin
     i:=1;
     j:=1;
     writeln(' Program Pangkat  ');
     write('masukan nilai A : ');read(a);
     write('masukan nilai N : ');read(n);
     while i<=n do
     begin
     i:=i+1;
     j:=j*a;
     end;
     write('hasil pangkat   : ' ,j:0:0);    
end.


-->