Latihan kode program bahasa Pascal kali ini akan membahas cara memeriksa tahun kabisat (leap year). Soal ini biasa dipakai untuk menguji pemahaman seputar kondisi if else.
Soal Cek Tahun Kabisat
Buatlah kode program dalam bahasa Pascal yang meminta data input berupa sebuah tahun (4 digit angka). Program kemudian memeriksa apakah tahun tersebut merupakan tahun kabisat atau tidak.
Tahun kabisat adalah tahun yang bulan februari-nya berjumlah 29 hari. Biasanya tahun kabisat datang setiap 4 tahun sekali, tapi ada ketentuan yang lebih khusus. Syarat dari tahun kabisat adalah:
- Jika angka tahun itu habis dibagi 400, maka itu tahun kabisat.
- Jika angka tahun itu tidak habis dibagi 400 tetapi habis dibagi 100, maka itu bukan tahun kabisat.
- Jika angka tahun itu tidak habis dibagi 400, tidak habis dibagi 100 akan tetapi habis dibagi 4, maka itu adalah tahun kabisat.
- Jika angka tahun tidak habis dibagi 400, tidak habis dibagi 100, dan tidak habis dibagi 4, maka bukan tahun kabisat.
Berikut contoh tampilan akhir yang diinginkan (1) :
## Program Pascal Cek Tahun Kabisat ## ======================================== Input tahun: 2025 2025 bukan tahun kabisat
Berikut contoh tampilan akhir yang diinginkan (2) :
## Program Pascal Cek Tahun Kabisat ## ======================================== Input tahun: 2024 2024 adalah tahun kabisat
Tips Membuat Kode Program Cek Tahun Kabisat
Berdasarkan syarat dari tahun kabisat, soal ini bisa dipecahkan dengan struktur if else if, yakni if tahun yang diinput user habis dibagi 400, tampilkan pesan "adalah tahun kabisat", else if habis dibagi 100, tampilkan pesan "bukan tahun kabisat", dst.
Berikut tutorial pendahuluan yang bisa diikuti:
- Pengertian Variabel dalam Bahasa Pascal
- Cara Penggunaan Perintah Read dan Readln
- Operator Aritmatika Pascal
- Operator Logika Pascal
- Percabangan Kondisi IF THEN ELSE dalam Pascal
Silahkan coba sebentar buat kode programnya.
Kode Program Bahasa Pascal Cek Tahun Kabisat
Berikut salah satu solusi dari soal cek tahun kabisat menggunakan bahasa pemrograman Pascal:
program cek_tahun_kabisat;
uses crt;
var
year: integer;
begin
clrscr;
writeln('## Program Pascal Cek Tahun Kabisat ##');
writeln('========================================');
writeln;
write('Input tahun: ');
readln(year);
if (year mod 400 = 0) then
writeln(year, ' adalah tahun kabisat')
else if (year mod 100 = 0) then
writeln(year, ' bukan tahun kabisat')
else if (year mod 4 = 0) then
writeln(year, ' adalah tahun kabisat')
else
writeln(year, ' bukan tahun kabisat');
readln;
end.
Di baris 4 terdapat perintah untuk deklarasi variabel year bertipe integer. Variabel inilah yang akan menampung angka tahun yang diinput oleh user di baris 13.
Selanjutnya terdapat 3 pemeriksaan kondisi if else antara baris 15-22. Semua kondisi ini sesuai dengan syarat untuk menentukan apakah sebuah tahun merupakan tahun kabisat atau tidak.
Operator mod dipakai untuk mencari sisa hasil bagi, atau disebut juga dengan operator modulus.
Jika variabel year habis dibagi 400, maka itu adalah tahun kabisat. Kondisi ini diperiksa di baris 15.
Hanya jika year tidak habis dibagi 400, barulah kondisi kedua dijalankan, yakni apakah year habis dibagi 100 (baris 17). Jika iya, maka itu bukan tahun kabisat.
Lanjut, hanya jika 2 kondisi pertama tidak dipenuhi akan diperiksa lagi apakah year habis dibagi 4 atau tidak (baris 19). Jika iya, maka itu adalah tahun kabisat.
Terakhir, jika ketiga kondisi sebelumnya tidak terpenuhi, maka year bukanlah tahun kabisat.
Demikian kode program latihan cek tahun kabisat dalam bahasa pemrograman Pascal. Semoga bisa bermanfaat.