помогите плиз, дата Опции

[Client]

М

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... - klem4

Дана дата, есди она правильная то выдать дату, которая была К дней назад.
если было бы вперед на к дней то ото было бы легче, а здесь...
пробовал сам ... результат не совпадает иногда на 2 иногда 1или 3 дня
пробовал менять условие, еще хуже.

uses crt;
var
   den,den2,mes,mes2,dmax,mmax:byte;
   god,k:integer;
begin
     clrscr;
     write(' Vvedite den ');
     readln(den);
     write(' Vvedite mes ');
     read(mes);
     write(' Vvedite god ');
     read(god);
     case mes of
          1,3,5,7,8,10,12: dmax:=31;{определяю макс дату}
          4,5,9,11: dmax:=30;
          2: if god mod 4=0 then
                dmax:=29
             else
                dmax:=28;
          else;
     end;
     if (den in[1..dmax]) and (mes in[1..12]) and (god>0) then
        writeln(' Data OK')
     else
         begin
              writeln(' Data NO');
              readkey;
              halt
         end;
     write(' Vvedite k ');
     read(k);
     mes2:=mes-1;
     repeat
           if k> den then
              begin
                   case mes2 of
                        1,3,5,7,8,10,12: dmax:=31; {макс дата предыдущ месяца}
                        4,6,9,11: dmax:=30;
                        2: if god mod 4=0 then
                              dmax:=29
                           else
                               dmax:=28;
                        else;
                   end;
                   if mes2=1 then
                      begin
                           mes2:=12;
                           dec(god)
                      end
                    else
                       dec(mes2);
                    k:=k-den;
                    den:=dmax;
              end
     until k<den;
     den:=den - k;
     writeln(' ',den,':',mes,':',god);
     readkey
end.

Заранее большое спасибо)

Сообщение отредактировано: Lapp - 8.11.2007 6:12

[volvo]

было бы вперед на к дней то ото было бы легче

Чем? Метод решения один и тот же: подсчитать номер дня в году для текущей даты, отнять (или прибавить K дней), и подсчитать по номеру нового дня его дату...

У тебя в программе по меньшей мере одна ошибка - в вычислении високосности года... Того, что ты сделал недостаточно. Ищи по форуму, корректная функция IsLeap уже выкладывалась.

Сообщение отредактировано: volvo - 6.11.2007 20:16