Jumat, 09 Oktober 2009

Program tahun kabisat

Tahun kabisat ialah tahun yang habis dibagi 400 (contohnya tahun 2000) atau tahun yang habis dibagi 4 dan tidak habis dibagi 100 (contohnya tahun 2008).
atau kalo mau tahu lebih lanjut tentang tahun kabisat, baca aja di wikipedia.
Program tahun kabisat ialah program yang sangat sederhana, tapi kadang juga sedikit membingungkan, berikut ini akan saya berikan source code untuk program kabisat.
1. program kabisat menggunakan if then else
program kabisat;
var
n:integer;
begin
readln(n);
if (n mod 400=0) then
write('Kabisat')
else
if (n mod 4=0) and (n mod 100<>0) then
write('Kabisat')
else
write('Bukan kabisat');
end.

2. Program kabisat tanpa If (program ini akan menampilkan 'true' jika tahun yang diinputkan kabisat, dan akan 'false' jika tahun yang diinputkan bukan tahun kabisat)
program kabisat;
var
n:integer;
begin
readln(n);
writeln((n mod 400=0) or ((n mod 4=0) and (n mod 100<>0)));
end.

1 komentar:

Unknown mengatakan...

trit nya bagus dan berguna :)

Posting Komentar