Contoh soal dan latihan kode program bahasa Pascal kali ini membahas cara menentukan nama hari. Latihan ini menguji pemahaman seputar kondisi if then else dan case of else.
Soal Menentukan Nama Hari
Buatlah kode program dalam bahasa Pascal yang menampilkan nama hari berdasarkan angka yang diinput oleh user.
Misalnya jika diinput angka 1, tampilkan "Senin", atau jika diinput angka 4 tampilkan "Kamis". Jika user menginput di luar angka 1-7, maka tampilkan pesan: "Pilihan tidak tersedia".
Berikut daftar nama hari:
- Senin
- Selasa
- Rabu
- Kamis
- Jumat
- Sabtu
- Minggu
Contoh hasil kode program (1):
## Program Pascal Menentukan Nama Hari ## =========================================== Input angka hari (1-7): 6 Sabtu
Contoh hasil kode program (2):
## Program Pascal Menentukan Nama Hari ## =========================================== Input angka hari (1-7): 2 Selasa
Contoh hasil kode program (3):
## Program Pascal Menentukan Nama Hari ## =========================================== Input angka hari (1-7): 9 Pilihan tidak tersedia
Tips Membuat Kode Program Menentukan Nama Hari
Soal ini bisa dipecahkan dengan membuat beberapa kali kondisi if then else, atau menggunakan struktur case of else. 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
Silahkan coba sebentar membuat kode programnya.
Kode Program Pascal Menentukan Nama Hari (If Then Else)
Jika menggunakan struktur kondisi if then else, kode program menentukan nama hari bisa dibuat sebagai berikut:
program nama_hari;
uses crt;
var
n: integer;
begin
clrscr;
writeln('## Program Pascal Menentukan Nama Hari ##');
writeln('===========================================');
writeln;
write('Input angka hari (1-7): ');
readln(n);
if (n = 1) then
writeln('Senin')
else if (n = 2) then
writeln('Selasa')
else if (n = 3) then
writeln('Rabu')
else if (n = 4) then
writeln('Kamis')
else if ( n = 5) then
writeln('Jumat')
else if ( n = 6) then
writeln('Sabtu')
else if ( n = 7) then
writeln('Minggu')
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 13.
Kemudian antara baris 15-30 terdapat 7 kali pemeriksaan kondisi if-else. Kodenya sendiri cukup sederhana, kita hanya perlu membandingkan apakah n sama dengan 1, atau apakah n sama dengan 2, dst hingga apakah n sama dengan 7.
Jika user menginput angka selain 1-7, maka akan masuk ke blok else di baris 29. Inilah contoh kode program mencari nama hari menggunakan struktur if-else.
Kode Program Bahasa Pascal Menentukan Nama Hari (Case Of)
Jika menggunakan struktur kondisi case of, kode program menentukan nama hari bisa dibuat sebagai berikut:
program nama_hari;
uses crt;
var
n: integer;
begin
clrscr;
writeln('## Program Pascal Menentukan Nama Hari ##');
writeln('===========================================');
writeln;
write('Input angka hari (1-7): ');
readln(n);
case (n) of
1 : writeln('Senin');
2 : writeln('Selasa');
3 : writeln('Rabu');
4 : writeln('Kamis');
5 : writeln('Jumat');
6 : writeln('Sabtu');
7 : writeln('Minggu');
else
writeln('Pilihan tidak tersedia');
end;
readln;
end.
Kali ini saya mengganti semua block if else menjadi struktur case of. Terdapat 7 kondisi atau case yang diperiksa, yakni dari 1, 2, dst hingga 7. Jika ternyata user menginput angka di luar 1-7, blok else di baris 24 yang akan berjalan.
Kode Program Bahasa Pascal Menentukan Nama Hari (Bonus)
Sebagai bonus, saya ingin membuat kode program alternatif:
program nama_hari;
uses crt;
var
n: integer;
hari: string;
begin
clrscr;
writeln('## Program Pascal Menentukan Nama Hari ##');
writeln('===========================================');
writeln;
write('Input angka hari (1-7): ');
readln(n);
case (n) of
1 : hari := 'Senin';
2 : hari := 'Selasa';
3 : hari := 'Rabu';
4 : hari := 'Kamis';
5 : hari := 'Jumat';
6 : hari := 'Sabtu';
7 : hari := 'Minggu';
else
writeln('Pilihan tidak tersedia');
end;
if ((n >= 1) and (n <= 7)) then
writeln('Hari ke-',n,' adalah ',hari);
readln;
end.
Disini saya tetap menggunakan kondisi case of, akan tetapi perintah yang dijalankan pada setiap case akan menyimpan nama hari ke dalam variabel hari.
Kemudian di baris 28 akan diperiksa apakah isi variabel n berada antara 1-7. Jika iya, tampilkan nama hari yang tersimpan di variabel hari.
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 hari dalam bahasa Pascal. Semoga bisa bermanfaat.