месяц и год - Паскаль, Turbo Pascal, PascalABC.NET

schibeki · 30.01.2014, 19:24

Задача на кейс / Pascal ABC
Вводим номер месяца M и дня D. Определить порядковый номер дня в году T соответствующий этой дате.
Помогите. Очень нужно

Poma][a · 30.01.2014, 19:48

А case тут каким боком?

type_Oleg · 30.01.2014, 20:23

Может быть, case M of , и для 12 значеий ...

Poma][a · 30.01.2014, 20:25

Может.. Но ведь с константным массивом всё намного проще..

Stilet · 30.01.2014, 20:30

Так чтоле?:

Код:

...
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);
...

Poma][a · 30.01.2014, 20:32

Дан еще год T.. и нужно проверить на високосность..

Serge_Bliznykov · 30.01.2014, 22:24

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

Poma][a · 30.01.2014, 22:26

Серж

Вы, кажется, ошиблись ссылкой..

Stilet · 30.01.2014, 22:40

Цитата:

Дан еще год T.. и нужно проверить на високосность..

Ага, и по зодиаку, и параду планет. А так же не забыть погадать на Таро

Хватит этого автору и так с головой.

Serge_Bliznykov · 30.01.2014, 23:08

Цитата:

Сообщение от Poma][a

Серж

Вы, кажется, ошиблись ссылкой..

ага. при копировании потерял часть ссылки.

уже поправил.

Спасибо.

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

30.01.2014, 22:24	#7
Serge_Bliznykov Старожил Регистрация: 09.01.2008 Сообщений: 26,229	ещё можно тут посмотреть: Даны числа A,B,C обозначающие дату.Найти номер этого дня от начала года. Последний раз редактировалось Serge_Bliznykov; 30.01.2014 в 23:07.

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

30.01.2014, 19:48	#2
Poma][a Новичок Джуниор Регистрация: 11.10.2011 Сообщений: 3,882	А case тут каким боком?

30.01.2014, 20:23	#3
type_Oleg Старожил Регистрация: 02.03.2008 Сообщений: 2,504	Может быть, case M of , и для 12 значеий ...

30.01.2014, 20:25	#4
Poma][a Новичок Джуниор Регистрация: 11.10.2011 Сообщений: 3,882	Может.. Но ведь с константным массивом всё намного проще..

30.01.2014, 20:32	#6
Poma][a Новичок Джуниор Регистрация: 11.10.2011 Сообщений: 3,882	Дан еще год T.. и нужно проверить на високосность..

30.01.2014, 22:26	#8
Poma][a Новичок Джуниор Регистрация: 11.10.2011 Сообщений: 3,882	Серж Вы, кажется, ошиблись ссылкой..