IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Григорианский календарь, Поиск дня недели...
Relrin
сообщение 16.12.2010 17:05
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 64
Пол: Мужской

Репутация: -  0  +


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


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

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.


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

Сообщение отредактировано: Relrin - 16.12.2010 17:05
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
Relrin
сообщение 17.12.2010 18:35
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 64
Пол: Мужской

Репутация: -  0  +


Нужна помощь по преобразованиям типа, вопросы возникли следующего характера:
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 18:37
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 23.06.2025 22:24
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"