|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
23.01.2013, 18:39 | #1 |
Регистрация: 21.01.2013
Сообщений: 9
|
Определить дату
Дата некоторого дня характеризуется тремя натуральными числами: g (год), m (порядковый номер месяца) и n(число). По заданным g, n и m определить дату предыдущего дня.
Сделать программу через подпрограмму. Код:
Последний раз редактировалось Guagpro; 23.01.2013 в 18:54. |
23.01.2013, 19:40 | #2 |
Старожил
Регистрация: 17.11.2010
Сообщений: 18,922
|
EncodeDate(g,n,m) - дата
EncodeDate(g,n,m)-1 - дата предыдущего дня DaysInAMonth - кол-во дней в заданном году и месяце Не обратил внимания, что паскаль. Это для дельфей
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию
|
23.01.2013, 19:46 | #3 |
Регистрация: 21.01.2013
Сообщений: 9
|
|
23.01.2013, 19:55 | #4 |
Регистрация: 21.01.2013
Сообщений: 9
|
Сделал вот так строчка с вызовом процедуры в самом паскале почему то пропускается и выдает мне то же число что я ввел изначально если удаляю строчку mes(g,n,m); ничего не меняется.HELPPP
Код:
|
23.01.2013, 20:40 | #5 |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
Мой вариант - без учета високосных лет - как-то так:
Код:
Код:
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Последний раз редактировалось Sciv; 23.01.2013 в 20:56. |
23.01.2013, 21:29 | #6 |
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Вот мой :
Писал в браузере : Код:
|
23.01.2013, 21:34 | #7 |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
Ромаха, ему через подпрограмму нужно предыдущий день определять, переоформляй. А так - мне нравится, держи плюс
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
|
23.01.2013, 21:41 | #8 | ||
Новичок
Джуниор
Регистрация: 11.10.2011
Сообщений: 3,882
|
Цитата:
Цитата:
|
||
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Определить сколько знаков в числе, вычислить сумму цифр и определить старшую цифру | Blombox | Помощь студентам | 5 | 25.04.2011 15:52 |
запрос на дату | WALL | БД в Delphi | 22 | 05.11.2010 20:24 |
Определить версию ОС, дату установки и последнего перезапуска | Manonia | Общие вопросы Delphi | 4 | 22.03.2010 18:33 |
Задачка на дату | KREGI | Помощь студентам | 3 | 03.06.2009 06:37 |
Среди 20 введёных чисел определить чётные, распечатать их, определить min | Spade | Помощь студентам | 4 | 15.06.2008 18:39 |