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

[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 21:05

[Relrin]

Нужна помощь по преобразованиям типа, вопросы возникли следующего характера:
1) Как введи скажем число 10 - и обратившись к типу, получить октябрь?

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
 DoW,FDoW:   DayofWeek;
 Day,TDay:   NumbDays;
 Mon,TMon:   Month;
 Year,TYear: integer;
 i,j,k:      integer;

Begin
  clrscr;
  {Ввод сегодняшней даны и дня, а также дня недели, который мы ищем}
  writeln('What day is it today?(dd mm yyyy)');
  readln(TDay,TMon,TYear); ) {как тут введя число месяца, скажем 10, указать, что сегодня октябрь?}
  writeln('1 - Monday, 2 - Tuesday, 3 - Wednesday ');
  writeln('4 - Thursday, 5 - Friday, 6 - Saturday, 7 - Sunday');
  writeln('Day of week(1 to 7): ');
  readln(DoW); {как тут введя число, скажем 3, указать, что сегодня среда?}
  writeln('Enter date, which you find: dd mm yyyy');
  readln(Day,Mon,Year);
  {Тут ничего нет...пока нет...}
  readln;
End.

2) Как проходится по месяцам и дням в обе стороны? Через Succ и Pred?
3) Возможно ли преобразовать тип строк (Month, DayOfWeek)? Если можно, то как это сделать?
4) Как обходиться с количеством дней в месяцах?

Сообщение отредактировано: Relrin - 17.12.2010 22:37