Високосный год. Головоломка.

← →
Sha © (2003-02-28 10:53) [0]

Задание. Написать функцию function IsLeapYear(Year: integer): boolean; которая для положительного Year определяет, является ли год Year високосным в григорианском календаре.

Оценка по 10-бальной шкале. Критерий оценки:
а) не компилируется или вылетает по ошибке - минус 9 баллов,
б) работает, но выдает ошибочный результат - минус 6 баллов,
в) рекурсия, циклы, числа с плавающей точкой - минус 3 балла за каждый элемент,
д) операции div, mod - минус 1.5 балла за каждую,
е) минус 0.1 балла за каждый выполнимый оператор (разделители: begin, end, точка с запятой).
Отдельное спасибо за дополнительную версию на встроенном ассемблере.

Замечание 1. В григорианском календаре год считается високосным, если он (точнее: его номер) делится нацело на 4, исключая года, делящиеся нацело на 100, но включая года, делящиеся нацело на 400.

Замечание 2. Мы будем считать, что указанному выше правилу подчиняются все года с 1 и до MaxInt, т.к. в григорианском календаре после его введения была компенсирована ошибка, накопившаяся с 1-ого года.

Замечание 3. Несмотря на то, что при оптимизации вашей функции компилятор может заменить некоторые операции div или mod на операции сдвига, штрафные очки за их использование все же начисляются.

Успехов.

← →
pasha676 (2003-02-28 11:16) [1]

Извиняюсь, а на фига? На асме функция пишеться - пишется. Тогда че гнмороиться и ее собствеенно писать?

← →
Dimka Maslov © (2003-02-28 11:55) [2]

SysUtils.IsLeapYear 10 Баллов!

← →
FLIZ © (2003-02-28 11:58) [3]

я чо то не понял - ты это нам задание выдал,
или переписал сюда то что тебе в школе/институте задали?

в любом случае тебе уже ответили - есть такая ГОТОВАЯ
функция.

ты чо хотел то от нас? :))))

← →
France (2003-02-28 12:02) [4]

2FLIZ © (28.02.03 11:58)
>ты чо хотел то от нас? :))))

Наверное, чуваку это для ДОСа это надо...

← →
Johnmen © (2003-02-28 12:10) [5]

А я так думаю, это просто тест на сообразительность и профпригодность. Но пока только пустой флейм...

> pasha676 (28.02.03 11:16) Извиняюсь, а на фига?
> FLIZ © (28.02.03 11:58) ты чо хотел то от нас? :))))
> France (28.02.03 12:02) Наверное, чуваку это для ДОСа это надо...

А на фига бывают головоломки? Некоторым бывает интересно.

> Dimka Maslov © (28.02.03 11:55) SysUtils.IsLeapYear 10 Баллов!

10 баллов набрать вообще невозможно. SysUtils.IsLeapYear=10-1.5*3-0.1=5.4 балла.

> Johnmen © (28.02.03 12:10)

Привет, Евгений. Как дела?

Високосный год. Головоломка. Найти похожие ветки