Program Pascal Menghitung Pangkat Dengan Fungsi (Function)

Bagi kalian yang ingin membuat program untuk mencari pangkat pada bilangan menggunakan fungsi, silahkan simak di bawah source code programnya. Berikut ini source code lengkapnya :

Program Menghitung_Pangkat;
Uses Crt;
Var Nilai, P, I, Hasil, Pang : Integer;
Function Pangkat(X,Y : Integer) : Integer;
Begin
         Pangkat := X*Y;
End;
Begin
         Clrscr;
         Writeln('      MENGHITUNG BILANGAN PANGKAT');
         Writeln('-----------------^^^-------------------^^^------------------');
         Write('Masukkan Nilai                           : '); Readln(Nilai);
         Write('Nilai yang akan di Pangkatkan : '); Readln(P);
         Writeln(Nilai, ' ^ ', P, ' = ');
          Hasil := 1;
          For I := 1 To P Do
          Begin
          If I <> P Then Write(Nilai, ' * ') Else
                Write(Nilai, ' = ');
          End;
          Pang := Pangkat(Hasil,Nilai);
          Write(Pang);
          Textcolor(6);
          GotoXY(3,9); Write('Program By SLEMANTO');
          Readln;
End.

Berikut ini hasil screenshot dari program tersebut diatas :

Hasil outputnya :

Sekian pembahasan dari Admin tentang cara pembuatan program menghitung bilangan pangkat dengan menggunakan fungsi pada program pascal. Semoga artikel ini dapat bermanfaat.