Algoritma Merubah Angka Menjadi Nama Bulan

      Buatlah Algoritma Menentukan Bulan bila dilakukan penginputan angka 1 s/d 12, misalnya “Bulan 1 adalah Januari”. Bila ada input 13 akan muncul pesan “Bulan dalam setahun hanya ada 12” nah kepala saya mungkin agak sedikit cenat cenut ketika harus memikirkan jawaban dari pertanyaan tersebut tetapi sebetulnya jika kita mau belajar dan memahami sebetulnya mudah saja untuk menyelesaikan tugas tersebut berikut adalah source codenya.

g Nah mungkin dibawah ini adalah untuk algoritma dalam program pascal nya tenang sudah saya test dan ada hasilnya kok hehehehehe

1.       

program Konversi_Bulan;

uses

WinCrt;

var

bulan_1 : integer;

begin

Write ('Masukan Bulan Dalam Angka :');

Readln (bulan_1);

Case bulan_1 Of

1 : write ('Januari');

2 : write ('Februari');

3 : write ('Maret');

4 : write ('April');

5 : write ('Mei');

6 : write ('Juni');

7 : write ('Juli');

8 : write ('Agustus');

9 : write ('September');

10: write ('Oktober');

11: write ('November');

12: write ('Desember');

Else

Write ('Bulan dalam setahun hanya ada 12');

end;



end.

 Nah semoga tugas anda terselesaikan dan semoga apa yang saya bagikan bisa bermanfaat bagi teman semua.