|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
24.11.2007, 17:31 | #1 | |
Пользователь
Регистрация: 01.11.2007
Сообщений: 27
|
Нахождение количества понедельников в XX веке
Доброго времени суток. Подскажите пожалуйста идею решения задачки:
Цитата:
Генерация случайных чисел — слишком важное дело, чтобы оставлять её на волю случая.
Scientia potentia est |
|
25.11.2007, 11:27 | #2 |
Форумчанин
Регистрация: 26.04.2007
Сообщений: 440
|
Можно увеличивать и уменьшать года, при этом надо сделать цикл, просматривающий каждый год на предмет- сколько понедельников в нем.
Но думаю способ лучше- вначале подкорретировать данные вам данные. Т.е в общем случае вводится год-месяц-цисло и какой день недели. Вы находите ближайший понедельник и запускаете цикл, который будет прибавлять по 7 дней, пока число-месяц-год не вылезит за 20 век. |
25.11.2007, 12:43 | #3 |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Сколько всего понедельников в ХХ веке подсчитать легко. Если 31.12.1996 г. - вторник, с начала века прошло 365*96+96/4=35064 дня. 35064:7 дает остаток 1, значит 01.01.1901 г. - понедельник. Всего дней в ХХ веке = 365*100+96/4=36525. Понедельников=36525 div 7 =5217.
Главная проблема какие из них попадают на 13 число, поскольку это связано с дурацким календарем. |
28.11.2007, 21:54 | #4 |
Пользователь
Регистрация: 01.11.2007
Сообщений: 27
|
Я написал программу, но в ней работает лишь половина кода. Программа считает количество понедельников, выпадающих на 13е число с 1997 по 1999 (эти года я взял т.к. в условии сказано о 31.12.1996 - вторник). Таких понедельников всего 6 (правильно - проверял). Но когда я начинаю прокручивать счётчик от 1996 до 1900 в обратном порядке моя программа ничего не считает Подскажите пожалуйста ошибку во втором счётчике.
Вот мой код: Код:
Генерация случайных чисел — слишком важное дело, чтобы оставлять её на волю случая.
Scientia potentia est Последний раз редактировалось Omedus; 28.11.2007 в 21:56. Причина: Опечатка |
28.11.2007, 22:04 | #5 | |
Старожил
Регистрация: 13.10.2007
Сообщений: 2,740
|
Цитата:
Век начинается 01.01.1901 года. Я же это писал в своем первом посте. Или for i:=1901 to 1996 do Заканчивается век 31.12.2000 года . Поправь все, должно работать. |
|
28.11.2007, 22:17 | #6 |
Пользователь
Регистрация: 01.11.2007
Сообщений: 27
|
Тьфу Я не заметил) Большое спасибо =) Всё работает)
Генерация случайных чисел — слишком важное дело, чтобы оставлять её на волю случая.
Scientia potentia est |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Литература в помощь при работе с базами данных | Speeker | БД в Delphi | 15 | 10.07.2014 09:39 |
Подсчитать количества знака в числе | valerij | Microsoft Office Excel | 5 | 17.08.2008 16:52 |
непрерывная смена большого количества фотографий | brenfire | Помощь студентам | 5 | 08.08.2008 11:23 |
Подсчет количества и частоты | Ensoph | Помощь студентам | 6 | 08.05.2008 10:16 |
Подсчет количества заданных символов в строке | Mihailo | Помощь студентам | 3 | 23.12.2007 11:58 |