Buat algoritma yang membaca nomor bulan lalu menuliskan nama bulan sesuai angka bulannya misal jika dibaca 8 maka tercetak agustus​

Jawaban:

program Bulan_dan_KodeBulan;

uses crt;

var

kode_bulan:Integer;

bulan:String;

begin

Write('Masukkan Kode Bulan = ');

ReadLn(kode_bulan);

if kode_bulan <= 12 then

case kode_bulan of

1: bulan := 'Januari' ;

2: bulan := 'Februari' ;

3: bulan := 'Maret' ;

4: bulan := 'April' ;

5: bulan := 'Mei' ;

6: bulan := 'Juni' ;

7: bulan := 'Juli' ;

8: bulan := 'Agustus' ;

9: bulan := 'September' ;

10: bulan := 'Oktober' ;

11: bulan := 'November' ;

12: bulan := 'Desember' ;

end;

Write('Bulan ',kode_bulan,' Samah dengan ',bulan);

end.