uses wincrt;
var nilai :integer;
begin
gotoxy(5,5);
write('masukkan nilai : ');readln(nilai);
if nilai<=50
then
begin
gotoxy(5,8);
write ('E');
end
else if nilai
<=65 then
begin
gotoxy(5,8);
write ('D');
end
else if nilai
<=75 then
begin
gotoxy(5,8);
write ('C');
end
else if nilai
<=85 then
begin
gotoxy(5,8);
write ('B');
end
else if nilai
<=100 then
begin
gotoxy(5,8);
write ('A');
end
else if nilai
>=100 then
begin
gotoxy(5,8);
write ('salah');
end
end.
Tidak ada komentar:
Posting Komentar