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 : byte;
begin
clrscr;
textbackground(green);
textcolor(blue);
write('Masukan Nilai:');readln(nilai);
if nilai >=95 then write ('Selamat anda mendapat nilai "A" ') else
if nilai >=70 then write ('Selamat anda Mendapat nilai "B" ') else
if nilai >=60 then write ('Anda harus lebih giat belajar "C" ') else
if nilai >=55 then write ('Selamat anda harus lebih giat lagi "D" ') else
write ('Extra Belajar Nilai anda "E" ');
readln;
end.
dibawah ini adalah hasil program sederhana yang dibuat :
Note:
textbackground berfungsi untuk mewarnai background teks
textcolor untuk wewarnai warna huruf/teks
Selamat Mencoba dan Berkreasi!
Tidak ada komentar:
Posting Komentar