Rok Przestepny
Pascal
function czyPrzestepny(rok: integer): boolean;
begin
czyPrzestepny := ( (rok mod 4 = 0) and (rok mod 100 <> 0) ) or ( rok mod 400 = 0 );
end;
Ada
function CzyPrzestepny(rok: integer) return boolean is
begin
if ( (rok mod 4 = 0) and (rok mod 100 /= 0) ) or ( rok mod 400 = 0 ) then
return true;
else
return false;
end if;
end CzyPrzestepny;
Podobne strony
Podobne Strony • Szyfr Cezara • Sortowanie Przez Kopcowanie • Sortowanie Babelkowe • Wieża hanoi • wyswietlanie liczby calkowitej metodą odejmowania poteg • Parzysta Nieparzysta • Ruchoma Gwiazdka • Sortowanie Przez Wstawianie • Sortowanie Przez Wybieranie • QuickSort • Nww • Metoda Babelkowa • Silnia • Miejsca Zerowe Funkcji Kwadratowej • Fibonacci
wersja strony: 2, ostatnia edycja: 15 Jul 2009 21:46