Program Contoh Bulan
Apr 15, 2009 No Comments
Contoh program bulan di pascal kiriman Dianita Wahyu Kurniasih
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | Program Contoh_Bulan; uses wincrt; const Bulan :array[1..12] of string = ('Januari','Februari','Maret','April','Mei','Juni','Juli', 'Agustus','September','Oktober','November','Desember'); var NoBulan:integer; begin clrScr; write ('Masukkan nomor bulan: ' ); readln (NoBulan); write ('Nama bulan ke- ' ,NoBulan , ' adalah ', Bulan [NoBulan]); readln; end. |
Dianita Wahyu Kurniasih
[email protected]