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

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

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

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

Ответ
 
Опции темы Поиск в этой теме
Старый 30.01.2014, 19:24   #1
schibeki
Пользователь
 
Регистрация: 27.11.2013
Сообщений: 67
По умолчанию месяц и год

Задача на кейс / Pascal ABC
Вводим номер месяца M и дня D. Определить порядковый номер дня в году T соответствующий этой дате.
Помогите. Очень нужно
schibeki вне форума Ответить с цитированием
Старый 30.01.2014, 19:48   #2
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

А case тут каким боком?
Poma][a вне форума Ответить с цитированием
Старый 30.01.2014, 20:23   #3
type_Oleg
Старожил
 
Аватар для type_Oleg
 
Регистрация: 02.03.2008
Сообщений: 2,538
По умолчанию

Может быть, case M of , и для 12 значеий ...
type_Oleg вне форума Ответить с цитированием
Старый 30.01.2014, 20:25   #4
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Может.. Но ведь с константным массивом всё намного проще..
Poma][a вне форума Ответить с цитированием
Старый 30.01.2014, 20:30   #5
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Так чтоле?:
Код:
...
readln(m); readln(d);
while m>0 do begin
 case m of
  1:inc(d,31); 2:inc(d,28); 3:inc(d,31); 4:inc(d,30); 5:inc(d,31); 6:inc(d,30);
  7:inc(d,30); 8:inc(d,31); 9:inc(d,30); 10:inc(d,31); 11:inc(d,30); 12:inc(d,31);
 end;
 dec(m);
end;
write(d);
...
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 30.01.2014, 20:32   #6
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Дан еще год T.. и нужно проверить на високосность..
Poma][a вне форума Ответить с цитированием
Старый 30.01.2014, 22:24   #7
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

ещё можно тут посмотреть:
Даны числа A,B,C обозначающие дату.Найти номер этого дня от начала года.

Последний раз редактировалось Serge_Bliznykov; 30.01.2014 в 23:07.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 30.01.2014, 22:26   #8
Poma][a
Новичок
Джуниор
 
Регистрация: 11.10.2011
Сообщений: 3,882
По умолчанию

Серж

Вы, кажется, ошиблись ссылкой..
Poma][a вне форума Ответить с цитированием
Старый 30.01.2014, 22:40   #9
Stilet
Белик Виталий :)
Старожил
 
Аватар для Stilet
 
Регистрация: 23.07.2007
Сообщений: 57,792
По умолчанию

Цитата:
Дан еще год T.. и нужно проверить на високосность..
Ага, и по зодиаку, и параду планет. А так же не забыть погадать на Таро
Хватит этого автору и так с головой.
I'm learning to live...
Stilet вне форума Ответить с цитированием
Старый 30.01.2014, 23:08   #10
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

Цитата:
Сообщение от Poma][a Посмотреть сообщение
Серж

Вы, кажется, ошиблись ссылкой..
ага. при копировании потерял часть ссылки. уже поправил.

Спасибо.
Serge_Bliznykov вне форума Ответить с цитированием
Ответ


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

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
месяц год в datedimepicker kate158 Компоненты Delphi 1 22.10.2012 10:38
Итоги по людям за месяц\год Vigor06 Microsoft Office Access 13 02.04.2012 11:47
Сортировка диапазон месяц-год СергейZp Microsoft Office Access 7 17.12.2011 22:13
Дан файл, содержащий различные даты. Каждая дата – это число, месяц и год. Найти год с наименьшим номе Figushkin Помощь студентам 2 04.06.2010 23:16
Месяц, год megavolt Microsoft Office Access 0 06.04.2009 16:22