program menampilkan_nilai_dengan_case

uses crt;
var
nilai : integer;
keterangan,
predikat : string;
ulang : char;
begin
clrscr;
repeat
writeln;
write('Masukkan nilai anda : '); readln(nilai);
case nilai of
81..100: writeln ('Nilai Anda Adalah : A');
61..80 : writeln ('Nilai Anda Adalah : B');
41..60 : writeln ('Nilai Anda Adalah : C');
21..40 : writeln ('Nilai Anda Adalah : D');
0..20 : writeln ('Nilai Anda Adalah : E');
else writeln ('Maaf mas .... anda salah masuk nilai ...!!!!');
end;
write('Ada data lagi [y/t] : ');readln(ulang);
until ulang ='t';
end.
uses crt;
var
nilai : integer;
keterangan,
predikat : string;
ulang : char;
begin
clrscr;
repeat
writeln;
write('Masukkan nilai anda : '); readln(nilai);
case nilai of
81..100: writeln ('Nilai Anda Adalah : A');
61..80 : writeln ('Nilai Anda Adalah : B');
41..60 : writeln ('Nilai Anda Adalah : C');
21..40 : writeln ('Nilai Anda Adalah : D');
0..20 : writeln ('Nilai Anda Adalah : E');
else writeln ('Maaf mas .... anda salah masuk nilai ...!!!!');
end;
write('Ada data lagi [y/t] : ');readln(ulang);
until ulang ='t';
end.