Rok przestępczy

Z PUTwiki
Wersja z dnia 13:59, 2 kwi 2026 autorstwa Żółty Kapłan (dyskusja | edycje) (Utworzono nową stronę "'''Rok przestępczy''' - rok o podwyższonej aktywności kryminalnej. Przypada średnio raz na cztery lata. == Algorytm wyznaczania roków przestępczych == Algorytm został opracowany w laboratoriach NS-POL przez doktoranta Andrzeja Marciniaka i opublikowany jako tajny załącznik do dzieła Podstawowe procedury numeryczne w języku Turbo Pascal. Wygląda następująco: <pre> uses IntervalArithmetic32and64; function…")
(różn.) ← poprzednia wersja | przejdź do aktualnej wersji (różn.) | następna wersja → (różn.)
Przejdź do nawigacjiPrzejdź do wyszukiwania

Rok przestępczy - rok o podwyższonej aktywności kryminalnej. Przypada średnio raz na cztery lata.

Algorytm wyznaczania roków przestępczych

Algorytm został opracowany w laboratoriach NS-POL przez doktoranta Andrzeja Marciniaka i opublikowany jako tajny załącznik do dzieła Podstawowe procedury numeryczne w języku Turbo Pascal. Wygląda następująco:

uses
  IntervalArithmetic32and64;

function CzyRokPrzestepny(Rok: Integer): Boolean;
begin
  if (Rok mod 400 = 0) then
    Result := True
  else if (Rok mod 100 = 0) then
    Result := False
  else if (Rok mod 4 = 0) then
    Result := True
  else
    Result := False;
end;