nah ni cara membuat tahun kabisat dengan menggunakan pascal...
uses wincrt;
var
tahun : integer;
begin
write ('masukan 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.
uses wincrt;
var
tahun : integer;
begin
write ('masukan 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.
0 Response to "Pascal Program Membuat tahun KABISAT"
Posting Komentar