[Row]

Дано:

Код:

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

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

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

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

[PhoeniX]

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

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

Код:

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

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

[Row]

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

[angvelem]

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

Код:

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 дней. Например, вот так:

Код:

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 и проверке месяца заменить на перечисляемые типы:

Код:

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

[angvelem]

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

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

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

[PhoeniX]

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

[angvelem]

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

[PhoeniX]

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

[Row]

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

[lmikle]

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

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

Код:

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;