contoh case perhitungan nilai akhir

Program Input
==============
Masukkan Nim :
Masukkan Nama :
Masukkan Kelas :
Masukkan Nilai Absen :
Masukkan Nilai UTS :
Masukkan Nilai UAS :


Program Outputnya :
Program Nilai Mahasiswa
==========================
Mahasiswa yang bernama …………… dengan Nim …………. Mendapat Nilai ……. dan Grade ….
Keterangan ………


uses crt;
var
na,nt,uts,uas,rt:real;
nim,nm,kls,grd,ket:string[25];
tr:longint;
begin
clrscr;
writeln(‘PROGRAM INPUT’);
writeln(‘===============’);
write(‘masukan nim :’);readln(nim);
write(‘masukan nama:’);readln(nm);
write(‘masukan kelas:’);readln(kls);
write(‘masukan absen :’);readln(na);
write(‘masukan tugas :’);readln(nt);
write(‘masukan UTS :’);readln(uts);
write(‘masukan UAS :’);readln(uas);
rt:=0.1*na+0.2*nt+0.3*uts+0.4*uas;
tr:=round(rt);
case tr of
0..50:
begin
grd:=’E';
ket:=’gagal’ ;
end;
51..60:
begin
grd:=’D';
ket:=’gagal;’;
end;
61..75:
begin
grd:=’C';
ket:=’lulus’;
end;
76..89:
begin
grd:=’B';
ket:=’lulus’ ;
end;
else
begin
grd:=’A';
ket:=’lulus’;
end;
end;

clrscr;
writeln(‘PROGRAM NILAI MAHASISWA’);
writeln(‘=======================’);
writeln;
writeln(‘mahasiswa yang bernama ‘,nm);
write(‘dengan nim ‘,nim);
write(‘ mendapatkan nilai ‘,rt:4:0);
write(‘ dan gradenya adalah ‘,grd);
write(‘ keterangan :’,ket);
readln;
end.