Rabu, 23 Maret 2011

Program menggunakan predecessor

Posted on 09.01 by elelel | No comments
uses crt;
type warna = (merah, kuning, ungu, biru, hitam, putih);
var kd_warna : warna;
begin
clrscr;
kd_warna := hitam;
write (PRED(kd_warna));
end.

output:
biru
Categories:

0 komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)