|
ru.algorithms
- RU.ALGORITHMS ----------------------------------------------------------------
From : Dan Raskovalov 2:5080/151.100 31 May 2001 12:49:05
To : Denis Pozhidaev
Subject : высокосный год
--------------------------------------------------------------------------------
DP> Задачка есть, там надо сделать кое-что и там надо высчитать высокосный
DP> год. Дык я спpосил y пpепода, а он сказал, что Высокосный год - котоpый
DP> делится без остатка на 4, за исключением тех, что делятся на 100, но не
DP> делятся на 400. Вот, млин я не поймy пpичем тyт 100 и 400! Если кто знает,
DP> объясните, плз.
Просто такие правила. Созданы для того, чтобы усреднення длительность года была
ближе к реальной астрономической (ошибка не накапливалась).
Код
FUNCTION IsBissextile(Year : integer) : boolean;
begin
IsBissextile := (Year mod 4 = 0) and not ((Year mod 100 = 0) and (not
Year mod 400 = 0));
end;
Bye, Denis.
--- FRACtal Station
* Origin: Все равно MustDie не брошу, потому что он хороший.. (2:5080/151.100)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
