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.

Program Pascal Membuat Berkas Data Dengan Array.

Pada artikel kali ini Admin akan membagikan list coding program sebagaimana sesuai judul di atas, yakni membuat program sederhana dengan menggunakan Array. Berikut ini source codingnya :

Program Isi_Berkas;
Uses Crt;
Const Jumlah_Mk = 5;
    Type B_Nilai = 1..100;
        Nilai               = Record
        Nama_Mhs   : String[25];
        No_Mhs        : String[5];
        Angkatan      : String[5];
        Nilai_Ujian    : Array [1..Jumlah_Mk] Of B_Nilai;
        Nilai_Rata      : Real;
    End;
D_Nilai = File Of Nilai;
Var  Daf_Nilai   : D_Nilai;
        Nilai_Mhs : Nilai;
        I, J               : Integer;
        Lagi            : Char;
Begin
        Assign(Daf_Nilai , 'Nilai.Dat');
        Rewrite (Daf_Nilai);
        I := 0;
        Repeat
        Inc (I);
        Clrscr;
        Writeln('MENGISI DATA PADA BERKAS "NILAI .DAT" ');
        Writeln(---------------------------------------------------------------------------');
        Writeln(MENGISI REKAMAN KE : ', I:2);
        Writeln('--------------------------------------------------------------------------');
        With Nilai_Mhs Do
        Begin
                 Nilai_Rata := 0.0;
                 Write('Nama Mahasiswa   : '); Readln(Nama_Mhs);
                 Write('Nomor Mahasiswa : '); Readln(No_Mhs);
                 Write('Angkatan                 : '); Readln(Angkatan);
                 For J := 1 To Jumlah_Mk Do
                 Begin
                         Write('Nilai MK ',J,'     : '); Readln(Nilai_Ujian[J]);
                          Nilai_Rata := Nilai_Rata + Nilai_Ujian[J];
                 End;
                 Nilai_Rata := Nilai_Rata/Jumlah_Mk;
                 Writeln('Nilai Rata-rata    : ', Nilai_Rata:2:0);
         End;
         Write(Daf_Nilai, Nilai_Mhs);
         GotoXY(1,20); Write('Akan Mengisi Lagi ? [Y/T] : ');
         Readln(Lagi);
         Until Not (Lagi In ['Y','y']);
         Close(Daf_Nilai);
End.

Dibawah ini hasil screenshot program :

Hasilnya :

          

Demikian artikel tentang pembuatan program pada pascal tentang Array. Semoga bermanfaat.