program menentukan bulan

muhammad patria

program bulbul;
uses wincrt;
var
i:integer;
begin
write ('masukkan nomor bulan : ');readln(i);
if ( i mod 12 = 12)then
write('desember')
else if ( i mod 12 = 11) then
write ('november')
else if ( i mod 12 = 10) then
write ('oktober')
else if ( i mod 12 = 9) then
write ('september')
else if ( i mod 12 = 8) then
write ('agustus')
else if ( i mod 12 = 7) then
write ('juli')
else if ( i mod 12 = 6) then
write ('juni')
else if  ( i mod 12 = 5) then
write ('mei')
else if ( i mod 12 = 4) then
write ('april')
else if ( i mod 12 = 3) then
write ('maret')
else if ( i mod 12 = 2) then
write ('februari')
else if  ( i mod 12 = 1) then
write ('januari')
else
write ('salah');
readln;
end.




terima kasih kepada sahabat sama muhammad patria yang membantu menyelesaikan program ini.

Kota Pempek , 24 Maret 2012


akhukum fillah arif zainurrohman