Contoh Program Tahun Kabisat dalam Pascal

educlopedia.blogspot.com

okeh, kali ini saya akan membagikan contoh program dari Pascal yang saya beri judul : Program Penentuan Tahun Kabisat.

pertama-tama, saya akan menjelaskan dahulu, apa itu Tahun Kabisat.

Tahun Kabisat (Bahasa Inggris: Leap Year) adalah sebuah Tahun Syamsiah di mana pada tahun tersebut jumlah hari tidak terdiri dari 365 hari tetapi 366 hari. (id.wikipedia.org)

itulah penjelasan singkat mengenai Tahun Kabisat.
untuk contoh programnya, silahkan dilihat dibawah ini, cekidot :

sebelum ke source code nya, dibawah ini adalah trik untuk memudahkan untuk mengcopy source code nya :

educlopedia.blogspot.com

untuk memudahkan dalam meng-copy source code (script programnya, arahkan pointer ke sudut kanan atas). lihat gambar diatas untuk lebih jelasnya. lalu pilih icon ke-2 dari kiri, lalu klik. setelah itu, tinggal Paste (Ctrl+V).

program tahunkabisat ;
uses crt ;
//educlopedia.blogspot.com

var
tahun : integer ;

begin

write ('masukkan tahun : ') ; readln (tahun) ;

if tahun mod 400 = 0 then
begin
	if tahun mod 100 = 0 then
    writeln ('Tahun Kabisat')
    else
    writeln ('Bukan Tahun Kabisat') ;
end

else
begin
	if tahun mod 4 = 0 then
    writeln ('Tahun Kabisat')
    else
    writeln ('Bukan Tahun Kabisat') ;                      

end;

//educlopedia.blogspot.com
readln;
end.

sekian dari saya, mungkin jika ada yang mau ditanyakan, bisa dipostkan pada kolom komentar dibawah.

terima kasih . . .

SHARE THIS POST:

Artikel Terkait: