Invest-currency.ru

Как обезопасить себя в кризис?
3 просмотров
Рейтинг статьи
1 звезда2 звезды3 звезды4 звезды5 звезд
Загрузка...

Определить високосный год или нет паскаль

Високосный год

Каждые 4 года мы сталкиваемся с тем, что в феврале вместо стандартных 28 дней бывает 29. Наступает високосный год. Это связано с тем, что Земля вращается вокруг солнца немного быстрее, чем за 365 дней. Для компенсации этого явления придуман и введен в практику високосный год, который продолжается 366 суток за счет добавления лишнего дня в феврале.

Когда високосный год, как определить

Способы определения достаточно просты и доступны любому человеку. Они не требуют какой-то серьезной математической подготовки:

1. Посмотреть в любом календаре, есть ли 29 февраля в исследуемом году.
2. Високосный год всегда делится на 4 без остатка. Предположим, 2012 год – високосный, поскольку 2012 : 4 = 503.00, то есть остаток от деления равен 0.
3. Можно посмотреть календарь на исследуемый год и сравнить его со следующим по дням недели. Если разбежка составит 1 день, то анализируемый временной интервал не является високосным – его длина 52 недели и 1 день, если разбежка 2 дня, то, соответственно, год високосный.

Существуют ли исключения ?

Да, существуют. Для более полного согласования астрономического и календарного года было принято решение не делать високосными те года, которые заканчиваются на 00, то есть начало каждого века. Но и здесь есть свое исключение: каждый 4-й из этих годов (заканчивающихся на 00 – 400, 800, 1200, 1600, 2000, 2400, …) также являются високосными.

Список високосных годов

1764, 1768, 1772, 1776, 1780, 1784, 1788, 1792, 1796, 1804, 1808, 1812, 1816, 1820, 1824, 1828, 1832, 1836, 1840, 1844, 1848, 1852, 1856, 1860, 1864, 1868, 1872, 1876, 1880, 1884, 1888, 1892, 1896, 1904, 1908, 1912, 1916, 1920, 1924, 1928, 1932, 1936, 1940, 1944, 1948, 1952, 1956, 1960, 1964, 1968, 1972, 1976, 1980, 1984, 1988, 1992, 1996, 2000, 2004, 2008, 2012, 2016, 2020, 2024, 2028, 2032,2036, 2040, 2044, 2048, 2052, 2056, 2060, 2064, 2068, 2072, 2080, 2084, 2088, 2092, 2096, 2104, 2108, 2112, 2116, 2120, 2124, 2128, 2132

Читать еще:  Как запрограммировать клавиши на клавиатуре

История появления

Само понятие високосного года появилось в те времена, когда ученые доказали, что в астрономическом году 365 дней и еще приблизительно 5 часов и 49 минут. Случилось это при Юлии Цезаре, который слыл достаточно прогрессивным правителем. С тех пор к календарю стали добавлять 1 лишний день.

Древние римляне считали дни до начала следующего месяца, а мы определяем прошедшие от начала текущего месяца. Предположим, 22 февраля для нас 22 день месяца, а для римлян был 6-ой день до начала нового месяца. В високосный год в феврале было два 6-х дня. «Второй шестой» с латыни и дал название «високосный».

На следующем этапе был юлианский календарь, где високосным становился каждый третий год. Кстати, в наши дни именно по нему определяются праздники. Мы же пользуемся григорианским календарем, и у нас високосным является каждый четвертый год.

Суеверия и страхи

В народе принято считать, что високосные года весьма неудачны, а порой, трагичны. Плохим этот год стали считать еще римляне, у которых из-за «шестого дня» на один день увеличивался пост (длился до начала марта). Добавил мистики одиозный праздник «Касьянов день», который отмечали уже наши предки. Он был определен на 29 февраля.

Считается, что в високосный день крайне нежелательно кардинально менять привычный уклад жизни: жениться, переезжать, менять работу, заводить детей, особенно первого ребенка.

Однако церковь не придает этим датам особого значения и не считает их какими-то особенными. Да и практика показывает, что те же семьи, сформированные в високосный год, распадаются не чаще, нежели в обычный.

Определить високосный год или нет паскаль

Здравствуйте.
Скажите пожалуйста, есть ли стандартная функция определяющая високосный год или нет?
Заранее благодарен.

Читать еще:  Функция с параметром паскаль


MBo © ( 2004-12-03 15:18 ) [1]

см. справку по Date/time routines


BlackTr ( 2004-12-03 15:19 ) [2]


begin. end © ( 2004-12-03 15:21 ) [3]

Насчёт Delphi 5 — не в курсе, а в Delphi 7 есть. Называется IsInLeapYear.


Verg © ( 2004-12-03 15:31 ) [4]

Ой да, функция та уж прямо такая 🙂 В одну строку.

function IsLeapYear(Year: Word): Boolean;
begin
Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0));
end;


Denmin © ( 2004-12-03 15:40 ) [5]


Denmin © ( 2004-12-03 15:45 ) [6]


Shadow-st ( 2004-12-03 16:03 ) [7]

А нельзя просто поделить год на 4 и если нет сотатка то год високосный.


Jeer © ( 2004-12-03 17:42 ) [8]

Shadow-st (03.12.04 16:03) [7]

Это слишком просто:))
Будет тебе подмножество високосных и даже некоторые невисокосные.

Ссылка на основную публикацию
ВсеИнструменты 220 Вольт
Adblock
detector