Di postingan ini saya akan mencontohkan bagaimana cara membuat sebuah program sederhana konversi nilai sederhana dengan teks berwana, list codenya sebagai berikut :
uses crt;
var
nilai : integer;
begin
clrscr;
textbackground(green);
textcolor(blue);
write('Masukan Nilai:');readln(nilai);
case nilai of
90..100 : writeln('Selamat anda mendapat nilai "A" ');
70..89 : writeln('Selamat anda Mendapat nilai "B" ');
60..69 : writeln('Anda harus lebih giat belajar "C" ');
50..55 : writeln('Selamat anda harus lebih giat lagi "D" ');
45..49 : writeln ('Extra Belajar Nilai anda "E" ');
else
writeln('Nilai yang anda masukan salah');
end;
readln;
end.
Untuk hasil program sederhana diatas sebagai berikut:
Tidak ada komentar:
Posting Komentar