Program Menentukan Tahun Kabisat Pada Pascal

Tahun kabisat adalah tahun yang habis di bagi dengan 4. Pada tahun kabisat, bulan Februari berjumlah 29 hari. Contoh tahun kabisat adalah 1996 dan 2002 bukan tahun kabisat karena tidak habis di bagi 4.
Penyelesaian.

Misalkan peubah tahun masehi tersebut adalah tahun.

Analisis kasus ;
Kasus 1 : jika tahun mod 4 = 0, maka tahun adalah tahun kabisat
Kasus 2 : jika tahun mod 4 bukan nol, maka tahun bukan tahun kabisat

Ini adalah algoritma programnya :

Program TahunKabisat
{Menentukan apakah suatu tahun merupakan tahun kabisat atau bukan }

DEKLARASI
Tahun : integer

ALGORITMA
Read (tahun)
If tahun mod 4 = 0 then
Write (‘tahun kabisat’)
Else
Write (‘bukan tahun kabisat’)
Endif

Bentuk programnya pada pascal adalah sebagai berikut :

Program TahunKabisat;
uses crt;
var
   tahun : integer;
begin
clrscr;
write ('Masukkan Tahun :'); Readln (tahun);
      If tahun mod 4 = 0 then
      Write ('tahun kabisat')
Else
Write ('bukan tahun kabisat');
readln
end.

( Menentukan apakah sebuah tahun merupakan tahun kabisat versi 1)

Oh ya, ada lagi jenis penentuan tahun kabisat selain menggunakan algoritma di atas. Dan algoritma kali ini tidak sesederhana program di atas. Suatu tahun di sebut tahun kabisat jika memenuhi salah satu syarat berikut : (i) habis di bagi 4 tetapi tidak habis di bagi 100, atau
(ii) habis di bagi 400. Misalnya, tahun 1996 adalah tahun kabisat karena habis di bagi 4 dan tidak habis di bagi 100, tetapi tahun 1900 bukan tahun kabisat karena 1900 habis di bagi 4 dan habis di bagi 100, juga tidak memenuhi syarat habis di bagi 400. Tahun 2000 adalah tahun kabisat habis di bagi 400.

Berikut bentuk algoritmanya :

Program TahunKabisat
{menentukan apakah suatu tahun merupakan tahun kabisat atau bukan }
DEKLARASI
Tahun : integer

ALGORITMA
Read ( tahun)
If ( tahun mod 4 = 0 and tahun mod 100   0 ) or ( tahun mod 400 = 0 ) then write (‘Tahun Kabisat’)
Else
Write ( ‘Bukan Tahun Kabisat’)
Endif

Bentuk programnya adalah sebagai berikut :

Program TahunKabisat;
uses crt;
var
   tahun : integer;
begin
clrscr;
Write('Masukkan Tahun : '); Readln ( tahun);
if ((tahun mod 4 = 0) and (tahun mod 100 <> 0)) or (tahun mod 400 = 0) then
write ('Tahun Kabisat')
Else
Write ('Bukan Tahun Kabisat');
readln;
end.

( Menentukan apakah sebuah tahun merupakan tahun kabisat versi 1)

Sedikit Tambahan :
Karena saya menggunakan Turbo Pascal versi 7.0, maka saya menambahkan ( clrscr ) pada program di atas. Fungsinya adalah untuk membersihkan layar pada tampilan output program.

Oke sekian untuk kali ini, mudah-mudahan dapat membantu saudara dalam memahami tentang program tahun kabisat ini. Karena seperti itulah harapan saya, saya ingin membantu siapa saja dalam menyelesaikan tugas-tugasnya dan sekaligus membagi sedikit ilmu tentang pemrograman. Meskipun saya masih dalam tahap belajar pula. Hehehe :D
Kalau ada yang salah dari apa yang saya posting. Mohon di maklumi.
Dan silahkan tinggalkan komentar di bawah kalau ada beberapa hal yang belum di pahami
Selamat mengerjakan tugas dan dapatkanlah nilai yang sebagus-bagusnya untuk kalian. Oke terima kasih ya…

Artikel Terkait

Pascal