Perpangkatan

Contoh pemrograman bahasa pascal dengan menggunakan procedure menghitung perpangkatan. Contohnya 2 pangkat 3 maka hasilnya akan 8.

program hitungXpangkat;
uses wincrt;

var
X,pangkat:real;
N:integer;
procedure inputXdanN;
begin
writeln('progra menghitung X^N');
writeln;
Write('X: ');readln(x);
write('N: ');readln(n);
end;

procedure hitungperpangkatan(X:real;N:integer);
var
i:integer;
begin
pangkat:=1;
for i:=1 to N do
begin
pangkat:=pangkat*X;
end;
end;

procedure tampilkanhasil;
begin
writeln;
writeln(X:2:0, ' pangkat ',N,' =',pangkat:5:0);
end;
begin
inputXdanN;
hitungperpangkatan(X,N);
tampilkanhasil;
end.