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:
- Januari
- Februari
- Maret
- April
- Mei
- Juni
- Juli
- Agustus
- September
- Oktober
- November
- 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:
- Pengertian Variabel dalam Bahasa Pascal
- Cara Penggunaan Perintah Read dan Readln
- Percabangan Kondisi IF THEN ELSE dalam Pascal
- Struktur Percabangan CASE ELSE dalam Pascal
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.
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:
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.