| М | 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.
Заранее большое спасибо)