Contoh soal dan latihan kode program bahasa Pascal kali ini membahas cara menentukan apakah sebuah bilangan ganjil atau genap. Latihan ini menguji pemahaman seputar kondisi if else dan operator aritmatika modulus.
Soal Menentukan Bilangan Ganjil Genap
Buatlah kode program dalam bahasa Pascal untuk menampilkan apakah sebuah bilangan yang diinput oleh user itu ganjil atau genap. Program meminta 1 inputan angka bulat dan menampilkan hasil "Ganjil" atau "Genap".
Contoh hasil kode program (1):
## Program Pascal Menentukan Ganjil-Genap ## ============================================== Input sebuah angka bulat: 5 5 adalah bilangan ganjil
Contoh hasil kode program (2):
## Program Pascal Menentukan Ganjil-Genap ## ============================================== Input sebuah angka bulat: 20 20 adalah bilangan genap
Contoh hasil kode program (3):
## Program Pascal Menentukan Ganjil-Genap ## ============================================== Input sebuah angka bulat: 0 0 adalah bilangan genap
Tips Membuat Kode Program Menentukan Bilangan Ganjil Genap
Soal ini bisa dipecahkan dengan memahami pengertian angka genap dan angka ganjil. Angka genap adalah angka yang habis dibagi 2. Sedangkan angka ganjil adalah angka yang tidak habis dibagi 2.
Proses menentukan "habis dibagi" ini bisa dilakukan dengan operator modulus. Dalam bahasa Pascal, operator modulus ditulis dengan perintah mod. Berikut contoh perhitungannya:
8 mod 5 = 3, karena 3 adalah angka sisa pembagian.100 mod 7 = 2, karena hanya 98 yang habis dibagi 7 (bersisa 2).8 mod 2 = 0, karena 8 dibagi 2 tidak memiliki sisa.
Berikut tutorial pendahuluan yang bisa diikuti:
- Pengertian Variabel dalam Bahasa Pascal
- Cara Penggunaan Perintah Read dan Readln
- Pengertian Tipe Data Integer Pascal
- Operator Aritmatika Pascal
- Percabangan IF THEN ELSE Bahasa Pascal
Kode Program Bahasa Pascal Menentukan Bilangan Ganjil Genap
Berikut kode program menentukan bilangan ganjil atau genap dalam bahasa Pascal:
program cek_genap_ganjil;
uses crt;
var
x: integer;
begin
clrscr;
writeln('## Program Pascal Menentukan Ganjil-Genap ##');
writeln('==============================================');
writeln;
write('Input sebuah angka bulat: ');
readln(x);
if (x mod 2 = 0) then
writeln(x,' adalah bilangan genap')
else
writeln(x,' adalah bilangan ganjil');
readln;
end.
Kode program butuh satu variabel x yang akan menampung inputan angka dari user. Angka ini harus berbentuk angka bulat karena x di set sebagai integer. Proses pembacaan dilakukan dengan perintah readln(x) di baris 12.
Setelah itu masuk ke pemeriksaan kondisi if (x mod 2 = 0). Kondisi ini akan bernilai true jika x habis dibagi 2, yang berarti itu adalah angka genap. Namun jika kondisi ini tidak terpenuhi atau false, maka itu pastilah angka ganjil. Kita tinggal sambung pemeriksaan kondisi ini dengan blok else.
Alternatif kode program, kita bisa memeriksa angka ganjil terlebih dahulu. Yang diperlukan adalah membalik logika, sekarang kondisi if akan memeriksa apakah sebuah angka tidak habis dibagi dengan 2. Berikut contoh kode yang dimaksud:
program cek_genap_ganjil;
uses crt;
var
x: integer;
begin
clrscr;
writeln('## Program Pascal Menentukan Ganjil-Genap ##');
writeln('==============================================');
writeln;
write('Input sebuah angka bulat: ');
readln(x);
if (x mod 2 <> 0) then
writeln(x,' adalah bilangan ganjil')
else
writeln(x,' adalah bilangan genap');
readln;
end.
Kondisi if (x mod 2 <> 0) di baris 14 hanya akan bernilai true jika x tidak habis dibagi 2. Jika ini terpenuhi, maka itu adalah angka ganjil. Jika tidak terpenuhi, maka x berisi angka genap.
Demikian contoh kode program menentukan bilangan ganjil genap dalam bahasa Pascal. Program ini relatif sederhana namun tidak jarang membuat bingung programmer pemula.