Latihan Kode Program Pascal: Menentukan Nama Bulan

Contoh soal dan latihan kode program bahasa Pascal kali ini membahas cara menentukan nama bulan. Latihan ini menguji pemahaman seputar kondisi if then else dan case of else.


Soal Menentukan Nama Bulan

Buatlah kode program dalam bahasa Pascal yang menampilkan nama bulan berdasarkan angka yang diinput oleh user. Misalnya jika diinput angka 1, tampilkan “Januari”, atau jika diinput angka 4 tampilkan “April”.

Jika user menginput di luar angka 1-12, maka tampilkan pesan: “Pilihan tidak tersedia”.

Berikut daftar nama bulan:

  1. Januari
  2. Februari
  3. Maret
  4. April
  5. Mei
  6. Juni
  7. Juli
  8. Agustus
  9. September
  10. Oktober
  11. November
  12. Desember

Contoh hasil kode program (1):

##  Program Pascal Menentukan Nama Bulan  ##
============================================

Input angka bulan (1-12): 4
April

Contoh hasil kode program (2):

##  Program Pascal Menentukan Nama Bulan  ##
============================================

Input angka bulan (1-12): 11
November

Contoh hasil kode program (3):

##  Program Pascal Menentukan Nama Bulan  ##
============================================

Input angka bulan (1-12): 15
Pilihan tidak tersedia

Tips Membuat Kode Program Menentukan Nama Bulan

Soal ini bisa dipecahkan dengan membuat beberapa kali kondisi if-else, atau menggunakan struktur switch case. Berikut tutorial pendahuluan yang bisa diikuti:


Kode Program Bahasa Pascal Menentukan Nama Bulan (if then else)

Jika menggunakan struktur kondisi if then else, kode program menentukan nama bulan bisa dibuat sebagai berikut:

program nama_bulan;
uses crt;
var
  n: integer;
  bulan: string;
  
begin
  clrscr;
  writeln('##  Program Pascal Menentukan Nama Bulan  ##');
  writeln('============================================');
  writeln;

  write('Input angka bulan (1-12): ');
  readln(n);

  if ( n = 1 ) then
    writeln('Januari')  
  else if ( n = 2 ) then
    writeln('Februari')  
  else if ( n = 3 ) then
    writeln('Maret')  
  else if ( n = 4 ) then
    writeln('April')  
  else if ( n = 5 ) then
    writeln('Mei')  
  else if ( n = 6 ) then
    writeln('Juni')  
  else if ( n = 7 ) then
    writeln('Juli')  
  else if ( n = 8 ) then
    writeln('Agustus')  
  else if ( n = 9 ) then
    writeln('September')  
  else if ( n = 10 ) then
    writeln('Oktober')  
  else if ( n = 11 ) then
    writeln('November')  
  else if ( n = 12 ) then
    writeln('Desember')  
  else 
    writeln('Pilihan tidak tersedia');
  
  readln;
end.

Latihan Kode Program Pascal - Menentukan Nama Bulan

Kode program butuh satu variabel n yang akan menampung inputan angka dari user. Angka ini dibaca menggunakan perintah readln(n) di baris 14.

Kemudian antara baris 16-41 terdapat 12 kali pemeriksaan kondisi if then else. Kodenya sendiri cukup sederhana, kita hanya perlu membandingkan apakah n sama dengan 1, apakah n sama dengan 2, dst hingga apakah n sama dengan 12.

Jika user menginput angka selain 1-12, maka akan masuk ke blok else di baris 40. Inilah contoh kode program mencari nama bulan menggunakan struktur if then else.


Kode Program Bahasa Pascal Menentukan Nama Bulan (case of)

Jika menggunakan struktur kondisi case of, kode program menentukan nama bulan bisa dibuat sebagai berikut:

program nama_bulan;
uses crt;
var
  n: integer;
  bulan: string;
  
begin
  clrscr;
  writeln('##  Program Pascal Menentukan Nama Bulan  ##');
  writeln('============================================');
  writeln;

  write('Input angka bulan (1-12): ');
  readln(n);

  case (n) of
  1 : writeln('Januari');
  2 : writeln('Februari');
  3 : writeln('Maret');
  4 : writeln('April');
  5 : writeln('Mei');
  6 : writeln('Juni');
  7 : writeln('Juli');
  8 : writeln('Agustus');
  9 : writeln('September');
  10 : writeln('Oktober');
  11 : writeln('November');
  12 : writeln('Desember');
  else
    writeln('Pilihan tidak tersedia');
  end;

  readln;
end.

Kali ini saya mengganti semua block if then else menjadi struktur case of. Terdapat 12 kondisi atau case yang diperiksa dari 1, 2, dst hingga 12. Jika ternyata user menginput angka di luar 1-12, case else di baris 30 yang akan berjalan.


Kode Program Bahasa Pascal Menentukan Nama Bulan (Bonus)

Sebagai bonus, saya ingin membuat kode program alternatif:

program nama_bulan;
uses crt;
var
  n: integer;
  bulan: string;
  
begin
  clrscr;
  writeln('##  Program Pascal Menentukan Nama Bulan  ##');
  writeln('============================================');
  writeln;

  write('Input angka bulan (1-12): ');
  readln(n);

  case (n) 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';
  else
    writeln('Pilihan tidak tersedia');
  end;

  if ((n >= 1) and (n <= 12)) then
    writeln('Bulan ke-',n,' adalah ',bulan);

  readln;
end.

Hasil kode program:

Latihan Kode Program Pascal - Menentukan Nama Bulan Case Of

Disini saya tetap menggunakan kondisi case of, akan tetapi perintah yang dijalankan pada setiap case akan menyimpan nama bulan ke dalam variabel bulan.

Kemudian di baris 33 akan diperiksa apakah isi variabel n berada antara 1-12. Jika iya, tampilkan nama bulan yang tersimpan di variabel bulan.

Dalam pembuatan kode program sebenarnya, kita lebih banyak menggunakan teknik seperti ini. Hasil kondisi case of biasanya tidak langsung ditampilkan, tapi disimpan terlebih dahulu ke dalam sebuah variabel dan baru diproses pada akhir kode program.


Demikian contoh kode program menentukan nama bulan dalam bahasa Pascal. Semoga bisa bermanfaat.


eBook Pascal Uncover Duniailkom
Apabila anda serius ingin mempelajari Pascal dan butuh materi Pascal yang jauh lebih lengkap, Duniailkom telah menerbitkan eBook Pascal Uncover yang membahas bahasa pemrograman Pascal dari dasar hingga procedure, function dan contoh kasus. Penjelasan lebih lanjut bisa ke eBook Pascal Uncover Duniailkom.

Add Comment