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

[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]

вроде решил)

И что это такое? Она ж у тебя даже не компилируется нормально (ну, допустим, TP ее компилирует без ошибок, но это не значит, что тут:

     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;

нет ошибки... Пятерка присутствует в двух метках)

И с високосностью года ты проблему не решил... Вот так она определяется:

function isLeap(n: word): boolean;
begin
  isLeap := ((n mod 4) = 0) and
    not (((n mod 100) = 0) and ((n mod 400) <> 0))
end;

Как результат - программа кажется работающей, но первая же более глубокая проверка выявит баги...