[Janom]

ну если массив констант нельзя, то тогда можно опускаться до тупежа и простыни кода типа:

Код:

1	if (НомерДня>30) and (НомерМесяца=1) then ....

Но это просто иди от изм...

[Row]

к сожалению массив нельзя

[Row]

до такого тупежа я опускался...
ну делал не условия, а case:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46

type месяц = (янв, фев, мар, апр, май, июн, июл, авг, сен, окт, ноя, дек); var k:1..366; d:1..31; m:месяц;       begin writeln('vvedite nomer dnya ne visokosnogo goda'); readln(k);   if (k>=1) and (k<=365) then begin   case k of   1..31:begin m:=янв; d:=(k-1)+1 end;   32..59:begin m:=фев; d:=(k-32)+1 end;   60..90:begin m:=мар; d:=(k-60)+1 end;   91..120:begin m:=апр; d:=(k-91)+1 end;   121..151:begin m:=май; d:=(k-121)+1 end;   152..181:begin m:=июн; d:=(k-152)+1; end;   182..212:begin m:=июл; d:=(k-182)+1 end;   213..243:begin m:=авг; d:=(k-213)+1 end;   244..273:begin m:=сен; d:=(k-244)+1 end;   274..304:begin m:=окт; d:=(k-274)+1 end;   305..334:begin m:=ноя; d:=(k-305)+1 end;   335..365:begin m:=дек; d:=(k-335)+1 end; end;   case m of   янв:writeln('January');   фев:writeln('February');   мар:writeln('March');   апр:writeln('April');   май:writeln('May');   июн:writeln('June');   июл:writeln('July');   авг:writeln('August');   сен:writeln('September');   окт:writeln('October');   ноя:writeln('November');   дек:writeln('December'); end;   writeln(d,' day');                     end   else writeln('eRRor');   readln; end.

получается примитивно, зато работает...
но преподу не понравилось.
Получается, что я должен сделать что-то более продуманное чем условия или кейс, но примитивнее чем масивы.
В голову приходит только деление, но его по понятным причинам использовать не получится)

[KOOL]

на мой способ, как видно, даже не смотрели... а ведь написан он в горячо любимом преподами стиле.

Но это просто иди от изм...

а теперь попробуйте решить эту задачу вручную, в уме. Человеческая логика - идиотизм, говорите? Или тоже массивы будете представлять?
Тут задача не в том, чтобы написать эффективный код, а в том, чтобы он соответствовал логике препода. Такие преподы не осилят метод сложнее, чем самый очевидный. Если самый очевидный метод - полный перебор, то придется полностью перебирать, чтобы сдать лабу, и ничего с этим не поделать.

[PhoeniX]

Мне в голову пришла почти гениальная идея, но я пока не знаю, как конкретно её реализовать... Массивы не используем, один цикл и три IF-а. Кто уже догадался?

[PhoeniX]

Так пойдёт?

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20

writeln('vvedite nomer dnya ne visokosnogo goda'); readln(k); if (k>=1) and (k<=365) then begin   m:=jan;   d:=1;   while k>0 do begin     if m=feb then d:=28     else if m in [jan, mar, may, jul, aug, oct, dec] then d:=31     else d:=30;     if k>d then begin       inc(m);       k:=k-d;     end else begin       d:=k; break;     end;   end;   case m of     jan:writeln('January');     feb:writeln('February');     .....

[Row]

это гениально!)))
спасибо огромное!))
пошел додумывать, чтобы она еще и число выводила))
еще раз, спасибо))))

[lmikle]

Сообщение от Row

это гениально!)))
спасибо огромное!))
пошел додумывать, чтобы она еще и число выводила))
еще раз, спасибо))))

Это индусский код.
Если препод хочет такого, то мне жаль новое поколение программистов.

Это просто все тот же способ с массивами, но массивы переведены в код.

Печально...

[Row]

Сообщение от lmikle

Это индусский код.
Если препод хочет такого, то мне жаль новое поколение программистов.

Это просто все тот же способ с массивами, но массивы переведены в код.

Печально...

ну препода понять можно, он не разрешает использовать то, что еще не пройдено, пусть мы даже это и умеем)
просто тема перечисляемый тип, значит нужно использовать только те средства, которые доступны и пользоваться перечисляемым типом... Хотя не всегда понятно, чего от тебя хотят... и иногда напрягает, что одну и ту же задачу нужно решать разными способами, причем зачастую не самыми рациональными... но все же от этого никуда не деться.

[angvelem]

Препода, понять НЕЛЬЗЯ. Этот тормоз и сам ничего не умеет, так и другим не даёт думать.

[PhoeniX]

Сообщение от lmikle

Это индусский код.

Бл***, а я думал, никогда до него не опущусь... Ну ладно, желание заказчика есть желание заказчика
P.S. Потихоньку в теме начинается флуд. Пора прекращать...

[Row]

еще раз всем спасибо, особенно DJ PhoeniX
я еще немного упростил код(хотя куда уж проще, блин), сегодня показал, все приняли