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.