Program Pencari Predikat

USES CRT;
VAR
nilai:byte;
A,B,C,D:string;
begin
clrscr;
write ('masukkan nilai=');readln(nilai);
if nilai< 69 then
writeln('predikat D');
if nilai<79then
writeln ('predikat C');
if nilai<90 then
writeln ('predikat B');
if nilai<101 then
writeln('predikat A');
readln;
end.

0 comments:

Posting Komentar

Pengikut