Форум программистов
 
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

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

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

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

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

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

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

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

Так чтоле?:
Код:

...
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,886
Репутация: 1941
По умолчанию

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

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

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

Серж

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

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

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

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

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

Опции темы

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
месяц год в 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


22:05.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru