program dan algoritma menghitung pangkat

Program menghitung pangkat

Program pangkat;
Uses wincrt;
Var
I,n:integer;
A, hasil:real;
Begin
Write(‘bilangan yang di pangkatkan’);
Readln (a);
Write(‘bilangan pemangkat’);
Readl (n);
If n=0 then hasil=1;
Else
Begin
If n>0 then hasil=1; for i:=1 to n do
Hasil:=hasil*(a);
End;
Else
Begin
Hasil:=1;
n:=(-n);
For i=1 to n do
Hasil:=hasil*(a);
End;
End.


Algoritma menghitung pangkat

1. Buat variable a,n, hasil i ;
2. Masukan nilai a
3. Masukan nilai n
4. Inisialisasi i=1; hasil=1
5. For(i=1 ; i <= n; i) {hasil= hasil * (a)}
6. Hasil
7. Finish