program menghitung nilai .....

program Project1;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var nama_mahasiswa,mata_kulya : string[30];

nim : string[6];

nilai_mid, nilai_tugas, nilai_uas,nilai_quis : integer;

nilai : integer;

hasil : string[20];

begin writeln('PROGRAM MENGHITUNG NILAI MAHASISWA');

writeln('==================================');

write('input mata kulya : ');readln(mata_kulya);

writeln('==================================');

write('input nama mahasiswa : ');readln(nama_mahasiswa);

write('input nim     : ');readln(nim);

write('nilai mid     : ');readln(nilai_mid);

write('nilai tugas   : ');readln(nilai_tugas);

write('nilai uas     : ');readln(nilai_uas);

write('nilai quis    : ');readln( nilai_quis);

nilai := (30*nilai_mid + 20*nilai_tugas + 30*nilai_uas + 10*nilai_quis) div 100;

case nilai of

0..35   : hasil  := 'E';

36..50  : hasil  := 'D';

51..65  : hasil  := 'C';

66..80  : hasil  := 'B';

81..100 : hasil  := 'A';

end;

writeln;

writeln('hasil akhir',nama_mahasiswa,'adalah',hasil);

WRITELN;

WRITELN('---------------------');

WRITELN('---TETAP SEMANGAT---');


READLN;

end.