Monday, October 22, 2012

PROGRAM MENCARI GRADE NILAI DENGAN CASE OF

program nilai;
uses wincrt;
var
nama:string;
absen,tugas,uts,uas:integer;
n_akhir:real;
ket:string;
grade,a:char;
begin
write('Masukan Nama Mahasiswa   : ');readln(nama);
writeln('Masukan Nilai');
write('          Absensi : ');readln(absen);
write('          Tugas   : ');readln(tugas);
write('          UTS     : ');readln(uts);
write('          UAS     : ');readln(uas);
n_akhir:=20/100*absen+15/100*tugas+25/100*uts+40/100*uas;
writeln('Jadi, Nilai Akhir adalah ',n_akhir:0:0);
if n_akhir>=85 then grade:='A'
else
if n_akhir>=75 then grade:='B'
else
if n_akhir>=65 then grade:='C'
else
if n_akhir>=55 then grade:='D'
else
grade:='E';                    
write('Jadi, Grade adalah ',grade,' dan dinyatakan ');
case grade of
'A':write('LULUS MEMUASKAN');
'B':write('LULUS BAIK');
'C':write('LULUS CUKUP');
else write('TIDAK LULUS');
end;
end.

No comments:

Post a Comment