Григорианский календарь, Поиск дня недели... Опции

[Relrin]

Условие задачи: Необходимо ввести день, число и год. Определить день недели, приходящийся на этот день, месяц, год. При решении задачи использовать типы.
Начал решать задачу и возник следующий вопрос: как можно введя только нужную дату, определить день недели, приходящийся на этот день месяца и год?


Начало пока такое: (по мере понимания задачи, буду сюда скидывать более полностью решение):

Uses
  crt;

Type
  NumbDays=1..31;
  Month=(January,February,March,April,May,
         June,July,August,September,October,
         November,December);
  DayOfWeek=(Monday,Tuesday,Wednesday,
         Thursday,Friday,Saturday,Sunday);

Var
 Day:   NumbDays;
 Mon:   Month;
 Year:  integer;
 i,j,k: integer;

Begin
  clrscr;
  writeln('Enter Day of Month(from 1 to 31): ');
  readln(Day);
  writeln('Enter Month(from 1 to 12): ');
  readln(Mon);
  writeln('Enter Year: ');
  readln(Year);
  {тут будет вычисление происходить нужного дня, но алгоритма решения пока не знаю}
  readln;
End.

Я правильно указал типы? Заранее спасибо

Сообщение отредактировано: Relrin - 16.12.2010 17:05

[Relrin]

http://ru.wikipedia.org/wiki/Вечный_календарь

Спасибо, за ссылку, только пока встал главный вопрос:
Как сделать эту таблицу с годами в паскале, чтобы с нее считывало? Оформление в виде двумерного массива? Если да, то как она должна заполнятся, всмысле как будет происходить заполнение от 1 года н.э до 9999 года с пометкой числа на месяц, каким он должен быть в этот год (Например, в примере указывается что февраль 2007 имеет число 3...а следующий раз через 28 лет также будет 3 число)
П.С. Я хочу решить задачу без использования формул

Сообщение отредактировано: Relrin - 16.12.2010 20:54