Program Menghitung Nilai Mahasiswa

dandriabas       Comment   

1. Flowchart

2. Kode Pascal

Program Ujian;
Uses Crt;
Var      Nim, Nama, Ttl, Alamat                 : String;
         Tugas, Uts, Uas                        : Byte;
         Akhir                                  : Real;
         Keterangan,
         Status                                 : String[15];
         Grade                                  : String[2];
Begin
Clrscr;

Write('Masukan Nim                              : '); Readln(Nim);
Write('Masukan Nama                             : '); Readln(Nama);
Write('Masukan Tempat/Tanggal Lahir             : '); Readln(Ttl);
Write('Masukan Alamat                           : '); Readln(Alamat);
Write('Masukan Tugas                            : '); Readln(Tugas);
Write('Masukan Uts                              : '); Readln(Uts);
Write('Masukan Uas                              : '); Readln(Uas);

Akhir := (0.2 * Tugas) + (0.3 * Uts) + (0.5 * Uas);
Writeln;

if Akhir >= 60 Then
   Status := 'Lulus'
else
   Status := 'Gagal';

if Akhir > 80 Then
   Begin
   Grade        := 'A';
   Keterangan   := 'Sangat Memuaskan';
   End

else if Akhir > 70 Then
   Begin
   Grade        := 'B';
   Keterangan   := 'Memuaskan';
   End

else if Akhir > 60 Then
   Begin
   Grade        := 'C';
   Keterangan   := 'Cukup';
   End

else if Akhir > 50 Then
   Begin
   Grade        := 'D';
   Keterangan   := 'Kurang';
   End

else
   Begin
   Grade        := 'E';
   Keterangan   := 'Kurang Sekali';
   End;

Writeln('Dinyatakan     : ', Status);
Writeln('Dengan Grade   : ', Grade);
Writeln('Keterangan     : ', Keterangan);

End.