Rabu, 23 Maret 2011

Program menggunakan ordinalitas

Type hari = (senin, selasa, rabu);
Var kd_hari : hari;
begin
kd_hari := selasa;
write (ORD(kd_hari));
end.

output:
1
Categories:

0 komentar:

Posting Komentar