Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 02.03.2009, 19:42   #1
koshkarjov
Пользователь
 
Аватар для koshkarjov
 
Регистрация: 31.01.2009
Сообщений: 26
Восклицание Задача в Паскале

Помогите пожалуйста, никак не могу решить...

1) Определить день недели по заданному числу. Считать в месяце 30 дней и первый день месяца всегда понедельник.

Можно показать пример, как такую программу делать через div и mod?
koshkarjov вне форума Ответить с цитированием
Старый 02.03.2009, 21:00   #2
Rus 47
Пользователь
 
Регистрация: 13.12.2008
Сообщений: 28
По умолчанию

ммм, что-то не совсем понял эту часть
Цитата:
Считать в месяце 30 дней и первый день месяца всегда понедельник.
а вообще есть алгоритм (и не один) вычисления дня недени по дате, например:
http://ru.wikipedia.org/wiki/Алгорит...ния_дня_недели

на паскале все деления заменяй div ом а вместо слова ОСТАТОК вставь mod
Rus 47 вне форума Ответить с цитированием
Старый 02.03.2009, 22:09   #3
miniZadrot9000
 
Регистрация: 22.12.2008
Сообщений: 4
По умолчанию я хз

Народ чего не правельно сделал?посмотрите плис
Изображения
Тип файла: jpg !!!!!!!!!!!!!!!!!1.JPG (22.7 Кб, 122 просмотров)
miniZadrot9000 вне форума Ответить с цитированием
Старый 02.03.2009, 22:11   #4
koshkarjov
Пользователь
 
Аватар для koshkarjov
 
Регистрация: 31.01.2009
Сообщений: 26
По умолчанию

2 Rus 47
Спасибо большое! Я тут еще почитал немного на эту тему и в итоге получилось вот что:
Код:
program calendar;
const
day : array[1..7] of string[9] = ('Monday', 'Tuesday', 'Wednesday', 
'Thursday', 'Friday', 'Saturday', 'Sunday');
var 
numDay : byte; 
begin 
writeln('Enter a day: '); 
readln(numDay); 
if numDay mod 7 = 0 then 
writeln('The day of week is ', day[7]) 
else 
writeln('The day of week is ', day[numDay mod 7]) 
end.
вроде работает...

Последний раз редактировалось koshkarjov; 02.03.2009 в 22:14.
koshkarjov вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача на Паскале Вика М. Помощь студентам 4 02.12.2010 17:37
Задача в Паскале ! d00ker Помощь студентам 2 29.01.2009 21:52
Задача на паскале BBED Паскаль, Turbo Pascal, PascalABC.NET 1 19.11.2008 12:32
ЗАдача на паскале xakkkkker Помощь студентам 1 05.11.2008 01:11