wahhh ,., pertama kali belajar pemograman memang sulit untuk dimengerti tetapi setelah di pelajari akhirnya bisa juga walaupun masih newbie ,., hehehee
nah ini saya kasih scripnya smogha bermanfaat
langsung ngeluncur aja
program ini menggunakan PASCAL
program tahunkabisat ;
var
tahun : integer ;
begin
write ('masukkan tahun : ') ; readln (tahun) ;
if tahun mod 100 = 0 then
begin
if tahun mod 400 = 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;
end.
bila di RUN hasilnya sebagai berikut dan jika anda mengalami DEBUG mohon cek kembali scripnya ^_^
Hasilnya :
masukkan tahun : 2000
Tahun Kabisat
masukkan tahun : 2001
Bukan Tahun Kabisat
0 komentar