[Row]

Дано:

Код:

1 2	type месяц = ( янв, фев, мар, апр, май, июн, июл, авг, сен, окт, ноя, дек ); var k1:1..366; d:1..31; m:месяц;

Найти:
d, m - дату k-го по счету дня невисокосного года (о присвоенных значениях сообщить).

Задачку решил, используя case для вычислений, но беда в том, что использовать его можно только для вывода...
все вычисления должны происходить до него...

Не прошу решить полностью, хотя бы натолкните в какую сторону думать. Буду очень благодарен

[PhoeniX]

Как я понял, это задачка из универовских/школьных? Какие же программисты оттуда выйдут...

Вопщем, создай константу-массив с количеством дней в месяцах. А дальше цикл while и

Код:

1 2	dec(k1,ЧИСЛО_ДНЕЙ_В_МЕСЯЦЕ[m]); inc(m);

и подобные конструкции.

[Row]

Не в специалистах проблема.
Если бы мне можно было создать константу-массив, я бы ее создал или по-другому как-то решил.
В этом и проблема, что решить нужно стандартными способами (div, mod) или что-то в этом роде, ну циклы само-собой разумеется можно использовать... Вот такой у нас бзик.

[angvelem]

Это и есть стандартный способ. Хотя бы в исходники Дельфи заглянул для интереса.

Код:

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 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87

type   PDayTable = ^TDayTable;   TDayTable = array[1..12] of Word;   const   MonthDays: array [Boolean] of TDayTable =     ((31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31),      (31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31));   function IsLeapYear(Year: Word): Boolean; begin   Result := (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0)); end;   function DoEncodeDate(Year, Month, Day: Word; var Date: TDateTime): Boolean; var   I: Integer;   DayTable: PDayTable; begin   Result := False;   DayTable := @MonthDays[IsLeapYear(Year)];   if (Year >= 1) and (Year <= 9999) and (Month >= 1) and (Month <= 12) and     (Day >= 1) and (Day <= DayTable^[Month]) then   begin     for I := 1 to Month - 1 do Inc(Day, DayTable^[i]);     I := Year - 1;     Date := I * 365 + I div 4 - I div 100 + I div 400 + Day - DateDelta;     Result := True;   end; end;   procedure DecodeDate(Date: TDateTime; var Year, Month, Day: Word); const   D1 = 365;   D4 = D1 * 4 + 1;   D100 = D4 * 25 - 1;   D400 = D100 * 4 + 1; var   Y, M, D, I: Word;   T: Integer;   DayTable: PDayTable; begin   T := DateTimeToTimeStamp(Date).Date;   if T <= 0 then   begin     Year := 0;     Month := 0;     Day := 0;   end else   begin     Dec(T);     Y := 1;     while T >= D400 do     begin       Dec(T, D400);       Inc(Y, 400);     end;     DivMod(T, D100, I, D);     if I = 4 then     begin       Dec(I);       Inc(D, D100);     end;     Inc(Y, I * 100);     DivMod(D, D4, I, D);     Inc(Y, I * 4);     DivMod(D, D1, I, D);     if I = 4 then     begin       Dec(I);       Inc(D, D1);     end;     Inc(Y, I);     DayTable := @MonthDays[IsLeapYear(Y)];     M := 1;     while True do     begin       I := DayTable^[M];       if D < I then Break;       Dec(D, I);       Inc(M);     end;     Year := Y;     Month := M;     Day := D + 1;   end; end;

Перебори свою лень.

[PhoeniX]

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

Если бы мне можно было создать константу-массив, я бы ее создал или по-другому как-то решил.

Иначе эта задача не решается. Либо константа-массив, либо case. Деление тут бесполезно, надеюсь ты понимаешь, почему. Либо разбирайся с преподами, либо делай по-хорошему (качественно, компактно) и защищай свой код как правильный (если он реально правильный).

[Row]

Если бы это была лень, я бы не мучил людей на форуме.
Просто четко сказано: никаких функций, case только для вывода, по максимуму использовать перечисляемый тип и уж точно никаких массивов.

[Row]

я то понимаю, что деление бесполезно.
Как писал выше, предлагаемые вами способы использовать нельзя.
вариант решения, с использование case делал, показывал, забраковали)
Ладно, пойду юзать, если долго мучиться, может и получится)

[PhoeniX]

Я плюсану репутацию тому, кто кодом докажет, что возможно выполнить все эти условия.

[KOOL]

1 января - 1-й день, значит, чтобы узнать дату k-го дня, надо прибавить к нему k-1 дней. Например, вот так:

Код:

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 47

procedure DateDaysSum(var D1:Date; Days:integer); var buf:word; begin   if Days>0 then     begin       repeat         if (D1.D+Days>29) and (D1.M=2) and (((D1.Y mod 100=0) and (D1.Y mod 400=0))or((D1.Y mod 4=0)and(D1.Y mod 100<>0)))then           begin             Days:=Days-(29-D1.D+1);             D1.D:=1;             D1.M:=D1.M+1;           end         else           if (D1.D+Days>28) and (D1.M=2) and((D1.Y mod 4<>0)or((D1.Y mod 100=0)and(D1.Y mod 400<>0)))then             begin               Days:=Days-(28-D1.D+1);               D1.D:=1;               D1.M:=D1.M+1;             end           else             if ((D1.D+Days>30) and (D1.M in [4, 6, 9, 11]))then               begin                 Days:=Days-(30-D1.D+1);                 D1.D:=1;                D1.M:=D1.M+1;               end             else               if ((D1.D+Days>31) and (D1.M in [1, 3, 5, 7, 8, 10, 12]))then                 begin                   Days:=Days-(31-D1.D+1);                   D1.D:=1;                   D1.M:=D1.M+1;                 end               else                 begin                   D1.D:=Days+1;                   Days:=0;                 end;         if D1.M>12 then           begin             buf:=(12-D1.M+1) mod 12 + 1;             D1.M:=buf;             D1.Y:=D1.Y+1;           end;       until Days<=0;     end; end;

Выдергиваем из процедуры. Если числовое значение года не нужно и он всегда невисокосный - убираем проверку на него. Никаких массивов и процедур(хотя с ними было бы гораздо проще). Ну и в Date и проверке месяца заменить на перечисляемые типы:

Код:

1 2 3 4 5 6

type месяц = ( янв=1, фев, мар, апр, май, июн, июл, авг, сен, окт, ноя, дек );      Date=record        Y: word;        M: месяц;        D: 1..31;      end;

[angvelem]

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

Просто четко сказано...

Проще избавиться от такого препода как от не компетентного в программировании.

[PhoeniX]

"Компетентных в программировании" преподов не существует по двум причинам. Первая - если человек компетентен в программировании - он работает на хорошую компанию за хорошие деньги, и всякого рода учебные заведения ему нафиг не нужны. Вторая - у школ и ВУЗов есть определённая программа (и это не их вина, а МинОбр), которой обязаны придерживаться все преподы, хочется им этого или нет. Компетентный прогер на такой откровенный бред ни за что не согласится. Поэтому туда идут девочки с ПедФаков и им подобные, которые ни на что кроме как сидеть в "одноклассниках" неспособны. Оттого такое и получается...

[angvelem]

И это грустно.

[PhoeniX]

И, тем не менее, прекратили оффтоп.
%TS%, ты можешь проконсультироваться с преподом на тему "А что вообще можно использовать, и как Вы вообще это представляете"? Просто сейчас задача нерешаема при текущих условиях.

[Row]

консультировался я.
ответ был: "Я не знаю. Думайте. Думайте. Вы должны как-то формализировать, чтобы программа все высчитывала до case".
Все что мне можно использовать - это:
1) простейшие выражения
2) операторы ветвления
3) циклы
4) перечисляемый тип
Вот и все средства.

[lmikle]

А все-таки, можно ли массив констант?

А то можно сделать как-то так:

Код:

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

const   DaysInMonth : Array [1..12] Of Integer =     (31,28,31,30,31,30,31,31,30,31,31);   Months : Array [1..12] Of String =     ('янв', 'фев', ...  ); // Ну вы поняли... это только для вывода   function GetDateByNumber(N : Integer)  : String; var   I, S : Integer; begin   Result := '';   I := 1;   S := 0;   While S + DaysInMonth[i] < N Do     Begin       S := S + DaysInMonth[i];       Inc(I);       If I > 12 Then Raise Exception.Create('Over the year.');     End;   N :=   Result := IntToStr(N - S) + ' ' + Months[i]; end;