Отправлено Бухой 07 июня 2004 г. 16:56 В ответ на: Кто знает, как по дате вычислить день недели? отправлено Михаил Е. 07 июня 2004 г. 16:26

(*
Вычисление дня недели в приложениях автоматического вычисления
дня недели в датах от 1996 года и старше.

Copyright (C) Sergei Frolov, 1998.
v1.0 Jan, 4, 1998.
http://go.to/frolov

Программа ориентирована на применение в приложениях, написанных
на языке ассемблера без использования аппаратного умножения/деления
и операций с плавающей запятой.
*)

program denned;
const
YEARS : array[0.. 3] of byte = (0, 2, 3, 4);
MONTHS : array[1..12] of byte = (0, 3, 3, 6, 1, 4, 6, 2, 5, 0, 3, 5);
DAYOFWEEKS : array[0..6] of string =
('Воскресенье', 'Понедельник', 'Вторник', 'Среда', 'Четверг',
'Пятница', 'Суббота');
var
a, b, c, d, e, f, tmp : byte;
day, month, year : word;

begin
repeat
write('Число XX -> ');
readln(day);
if day = 0 then break; { выход }
write('Месяц XX -> ');
readln(month);
write('Год XXXX -> ');
readln(year);
tmp := year - 1996;
a := tmp and 3;
b := (tmp shr 2) + (tmp and $FC);
c := MONTHS[month];
if (a = 0) and (month > 2) then inc(c);
a := YEARS[a];
e := (a + b + c + day) mod 7;
writeln('Результат: ', DAYOFWEEKS[e]);
writeln;
until false;
end.