Menentukan Tahun Kabisat pada Pascal

Posted: 25 November 2011 in Uncategorized

Uses crt;

Var

Tahun : longint;

Begin

Clrscr;

Writeln(‘Mengecek Tahun Kabisat atau Bukan’);

Write(‘Masukkan tahun :’); readln (tahun);

If tahun mod 400 = 0 then

Writeln (‘Tahun’,tahun,’merupakan kabisat’)

Else if tahun mod 100 = 0 then

Writeln (‘Tahun’,tahun,bukan merupakan kabisat’)

Else if tahun mod 4 = 0 then

Writeln (‘Tahun’,tahun,’merupakan kabisat’)

Else

Writeln(‘Tahun’,tahun,’bukan merupakan kabisat’);

Readln;

End.

Logikanya : dari program diatas menggunakan perulangan if..then..else. dimana if..then..else, digunakan untuk sebuah kondisi dimana suatu pernyataan akan diuji. Jika kondisi terpenuhi maka akan lanjut kestatement berikutnya tetapi jika tidak terpenuhi maka program akan menjalankan kepernyataan lainnya. Seperti pada program diatas dapat disimpulkan bahwa tahun yang habis dibagi dengan 4 maka disebut tahun kabisat selain itu bukan tahun kabisat, MOD adalah operasi pembagian.

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s