...:::Skull not School

Soal latihannya adalah sbb :

Buatkan program yang menerima inputan data nilai mahasiswa, lalu tentukan grade dan kelulusannya!
Ketentuan
1. nilai akhir adalah 20% absensi + 15% tugas + 25% UTS + 40%UAS
2. Untuk menentunkan grade (gunakan IF):
Jika nilai akhir lebih besar sama dengan 85 maka grade A.
Jika nilai akhir lebih besar sama dengan 75 maka grade B.
Jika nilai akhir lebih besar sama dengan 65 maka grade C.
Jika nilai akhir lebih besar sama dengan 55 maka grade D.
Jika bukan, maka grade E.

3. Untuk menentukan kelulusan (gunakan case) :
Jika grade adalah 'A', maka keterangan LULUS MEMUASKAN
Jika grade adalah 'B', maka keterangan LULUS BAIK
Jika grade adalah 'C', maka keterangan LULUS CUKUP
Jika bukan, maka keterangan TIDAK LULUS


Berikut adalah jawabannya :

PROGRAM PASCAL MENGHITUNG NILAI MAHASISWA

program menghitung_nilai_mahasiswa;
uses wincrt;
var
nama,grade,ket : string;
nilai,absen,tugas,uts,uas : integer;

begin
writeln('PROGRAM MENGHITUNG NILAI MAHASISWA');
writeln('==================================');
writeln;
write('Masukan Nama Mahasiswa : ');readln(nama);
writeln('=======================');
writeln;
writeln('Masukan Nilai Mahasiswa');
writeln('=======================');
write('Nilai Absensi : ');readln(absen);
write('Nilai Tugas : ');readln(tugas);
write('Nilai UTS : ');readln(uts);
write('Nilai UAS : ');readln(uas);
nilai := (20*absen + 15*tugas + 25*uts + 40*uas) div 100;

if nilai > 85 then
grade:= 'A'
else
if (nilai > 75) and (nilai < 85) then
grade:= 'B'
else
if (nilai > 65) and (nilai < 75) then
grade:= 'c'
else
if (nilai > 55) and (nilai < 65) then
grade:= 'D'
else
grade:= 'E';

case nilai of
85..100 : ket:=('LULUS MEMUASKAN');
75..84 : ket:=('LULUS BAIK');
65..74 : ket:=('LULUS CUKUP');
else
ket:=('TIDAK LULUS');
end;
writeln;
writeln('MAKA HASILNYA ADALAH :');
writeln('======================');
writeln('Hasil nilai akhir ' ,nama, ' adalah ' ,nilai);
writeln('Grade yang didapat adalah ' ,grade, ' maka anda dinyatakan ' ,ket);
writeln;
writeln('======+=CREATED BY : HARY NUGRAHA=+======');
writeln('=========================================');
writeln('TERIMAKASIH TELAH MENGGUNAKAN PROGRAM INI');
end.


dan ini adalah hasil layout nya.....