Menentukan tahun kabisat

Algoritma menentukan tahun kabisat

Dibaca sebuah tahun, harus ditentukan apakah tahun tersebut merupakan tahun kabisat atau bukan.



Penyelesaian

--------------------------------------------

PROGRAM TahunKabisat

{ Program utama menentukan apakah suatu tahun merupakan tahun kabisat. }




DEKLARASI

tahun : integer

function Kabisat( input th : integer) ->boolean

{ true jika th adalah tahun kabisat, atau false jika bukan kabisat }




ALGORITMA

read(th)

if kabisat(th) then

write('tahun kabisat')

else { berarti Kabisat(th) = false }

write('bukan tahun kabisat')

endif