Program mengonversi angka menjadi nama bulan

Berikut merupakan Program untuk mengonversi angka menjadi nama bulan menggunakan bahasa Pascal dengan menggunakan statement IF.

• SOURCE CODE

Program mengonversi_angka_menjadi_nama_bulan;
uses crt;
var
   x : integer;
begin
clrscr;
     write('Masukkan Angka yang menunjukkan bulan  : ');
     readln(x);
     writeln;
     if x = 1 then
           writeln('Bulan yang anda pilih : Januari')
           else
     if x = 2 then
           writeln('Bulan yang anda pilih : Februari')
           else
    if x = 3 then
           writeln('Bulan yang anda pilih : Maret')
           else
    if x = 4 then
           writeln('Bulan yang anda pilih : April')
           else
    if x = 5 then
           writeln('Bulan yang anda pilih : Mei')
           else
    if x = 6 then
           writeln('Bulan yang anda pilih : Juni')
           else
    if x = 7 then
           writeln('Bulan yang anda pilih : Juli')
           else
   if x = 8 then
           writeln('Bulan yang anda pilih : Agustus')
           else
   if x = 9 then
          writeln('Bulan yang anda pilih : September')
          else
   if x = 10 then
           writeln('Bulan yang anda pilih : Oktober')
           else
   if x = 11 then
           writeln('Bulan yang anda pilih : November')
           else
   if x = 12 then
            writeln('Bulan yang anda pilih : Desember');
readkey;
end.

• PENJELASAN SOURCE CODE

Program mengonversi_angka_menjadi_nama_bulan;     {Judul Program}
uses crt;     {Deklarasi unit CRT}
var     {Variabel}
   x : integer;     {Inisiasi variabel}
begin     {Awal instruksi program}
clrscr;     {Membersihkan layar}
     write('Masukkan Angka yang menunjukkan bulan : ');     {Cetak Masukkan Angka yang menunjukkan bulan :}
     readln(x);     {Baca variabel x}
     if x = 1 then     {Jika x = 1 kemudian}
            writeln('Bulan yang anda pilih : Januari')     {Cetak Bulan yang anda pilih : Januari}
            else     {Kalau tidak}
    if x = 2 then     {Jika x = 2 kemudian}
            writeln('Bulan yang anda pilih : Februari')     {Cetak Bulan yang anda pilih : Februari}
            else     {Kalau tidak}
   if x = 3 then     {Jika x = 3 kemudian}
           writeln('Bulan yang anda pilih : Maret')     {Cetak Bulan yang anda pilih : Maret}
           else     {Kalau tidak}
   if x = 4 then     {Jika x = 4 kemudian}
           writeln('Bulan yang anda pilih : April')     {Cetak Bulan yang anda pilih : April}
           else     {Kalau tidak}
   if x = 5 then     {Jika x = 5 kemudian}
            writeln('Bulan yang anda pilih : Mei')     {Cetak Bulan yang anda pilih : Mei}
            else     {Kalau tidak}
   if x = 6 then     {Jika x = 6 kemudian}
            writeln('Bulan yang anda pilih : Juni')     {Cetak Bulan yang anda pilih : Juni}
             else     {Kalau tidak}
   if x = 7 then     {Jika x = 7 kemudian}
            writeln('Bulan yang anda pilih : Juli')     {Cetak Bulan yang anda pilih : Juli}
            else     {Kalau tidak}
   if x = 8 then     {Jika x = 8 kemudian}
            writeln('Bulan yang anda pilih : Agustus')     {Cetak Bulan yang anda pilih : Agustus}
            else     {Kalau tidak}
   if x = 9 then     {Jika x = 9 kemudian}
            writeln('Bulan yang anda pilih : September')     {Cetak Bulan yang anda pilih : September}
            else     {Kalau tidak}
   if x = 10 then     {Jika x = 10 kemudian}
            writeln('Bulan yang anda pilih : Oktober')     {Cetak Bulan yang anda pilih : Oktober}
            else     {Kalau tidak}
   if x = 11 then     {Jika x = 11 kemudian}
            writeln('Bulan yang anda pilih : November')     {Cetak Bulan yang anda pilih : November}
            else     {Kalau tidak}
   if x = 12 then      {Jika x = 12 kemudian}
             writeln('Bulan yang anda pilih : Desember');     {Cetak Bulan yang anda pilih : Desember}
readkey;     {Instruksi 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 codem, Output program, Flowchart dari source code, serta file pascalnya. Anda dapat mendownloadnya secara gratis di link download di bawah ini.

• Title Program            : Mengonversi 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.