Kode Data Nilai Mahasiswa

hasil pertama

Bagian pertama dari dua file

copy code strat from here:

Uses WINCrt;
Type  MHS = Record
                 NM   : string[15];
                 UTS,UAS  : byte;
       End;
Var  FileMHS  : File of MHS;
      RecMHS   : MHS;
      No, Bts, JD, T, RN : Byte;
BEGIN
  CLRSCR;
   Write(‘Jumlah Data : ‘); ReadLn(JD);
   Assign(FileMHS,’C:\MHS.TXT’);
   ReWrite(FileMHS);
   For No := 1 To JD Do
   Begin
       With RecMHS Do
       Begin
         Write(‘Nama : ‘); ReadLn(NM);
         Write(‘UTS  : ‘); ReadLn(UTS);
         Write(‘UAS  : ‘); ReadLn(UAS);
       End;
       Write(FileMHS,RecMHS);
   End;
   Close(FileMHS);
  ReadLn;
END.

haris run 

Bagian ke dua dari 2 file

kode dibawah ini akan membaca file dari C:/mhs.txt yang dibentuk oleh file assign file pada simpanmhs.pas untuk menampilkan hasil seperti dibawah ini silahkan jalan terlebih dahulu file simpanmhs.pas

copy start from here:

Uses WINCrt;
Procedure Judul;
Begin
   WriteLn(‘DAFTAR NILAI MAHASISWA’);
   WriteLn(‘——————————————————————–‘);
   WriteLn(‘No. Nama Mahasiswa UTS UAS Total Rata Predikat Kelulusan’);
   WriteLn(‘——————————————————————–‘);
End;

Type  MHS=Record
              NM      : string[15];
              UTS,UAS : byte;
       End;
Var  FileMHS  : File of MHS;
      RecMHS   : MHS;
      No,Brs,JD,T,R,RN : byte;
      P         : string[10];
      K         : string[5];
BEGIN
   CLRSCR;
   Judul;
   Assign(FileMHS,’C:\MHS.TXT’);
   Reset(FileMHS);
   No:=0;
   While Not EOF (FileMHS) Do
   Begin
      With RecMHS Do
      Begin
        Read(FileMHS,RecMHS);
        T:= UTS+UAS; R:= T div 2; inc(No);
        Case R of
           00..59 : P:=’Kurang’;
           60..74 : P:=’Cukup’;
           75..84 : P:=’Baik’;
           85..100: P:=’Amat Baik’;
        End;
        IF R<60 Then K:=’Gagal’ Else K:=’Lulus’;
        WriteLn(No:3,’ ‘,NM:15,’ ‘,UTS:3,’ ‘,UAS:3,’ ‘,T:3,’ ‘,R:3,’ ‘,P:10,’ ‘,K:5);
      End;
   End;
   ReadLn;
   Close(FileMHS);
END.

Iklan

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s