Algoritma Perpangkatan prosedur iteratif dalam Pascal

Program pangkatprocedureitera;


procedure pangkat (b,n:integer; var a:integer)  ;
var
i:integer;
begin
a:=1;
if n = 0 then b:=1
 else
 if n>0 then
  begin
  for i:= 1 to n do
  a:=a*b;
  end;
end;

var
a,b,i,n:integer;

begin
writeln ('Bilangan Perangkatan');
write ('bilangan: ');readln (b);
write ('pangkat: '); readln (n);
pangkat(b,n,a);
writeln ('hasil perpangkat: ',a);
readln;
end.

Lihat Juga:

Algoritma Perpangkatan Fungsi Rekursif dalam Pascal