Program konversi angka menjadi nama bulan

Berikut merupakan Program Konversi angka menjadi nama bulan dengan menggunakan bahasa Pascal dengan menggunakan statement  ARRAY.

• SOURCE CODE

Program konversi_angka_menjadi_nama_bulan;
uses crt;
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);
     writeln('Nama bulan ke-',noBulan ,' adalah ',Bulan[noBulan]);
readln;
readkey;
end.

• PENJELASAN SOURCE CODE

Program konversi_angka_menjadi_nama_bulan;     {Judul Program}
uses crt;     {Deklarasi unit CRT}
const     {Konstanta}
  Bulan : array [1..12] of string = ('Januari','Februari','Maret','April','Mei','Juni','Juli','Agustus','September','Oktober','November','Desember');     {Deklarasi array}
var     {Variabel}
   noBulan : integer;     {Inisiasi variabel}
begin     {Awal instruksi program}
clrscr;     {Membersihkan layar}
     write('Masukkan nomor bulan : ');    {Cetak Masukkan nomor bulan :}
     readln(noBulan);     {Baca variabel noBulan}
     writeln('Nama bulan ke-',noBulan ,' adalah ',Bulan[noBulan]);     {Cetak Nama bulan ke-, variabel noBulan, adalah variabel Bulan[noBulan]}
readln;     {Instruksi untuk membaca}
readkey;     {Insruksi untuk menunggu}
end.     {Akhir instruksi program}

• PRINT SCREEN OUTPUT

Untuk mempermuda anda dalam mempelajari pemograman dengan menggunakan bahasa Pascal, admin telah menyediakan file Source code, Penjelasan source code, Output program, Flowchart dari source code, serta file pascalnya. Anda dapat mendownloadnya secara gratis di link download di bawah ini.

• Title Program           : Konversi angka menjadi nama bulan
• Source Code .pdf      : .:_Download_:.
• Flowchart .png         : .:_Download_:.
• Program .pas            : .:_Download_:.
• Password                  : kamuspascal.blogspot.com

Jika anda tidak tahu bagaimana cara mendownload file-file di atas klik Disini, untuk mempelajarinya.