Проблема с датами Опции

[Artem7]

Написал программу которая по введённой дате находит какое число выпадает на завтра, но вот никак не могу пристроить високосный год почему то проверку на дурака не проходит и выдаёт что 'некорректная дата'

Program data;
Var d,m,g,d1,m1,g1,vis1,vis2,vis3:integer;
Begin
    write('Введите день: ');readln(d);
    write('Введите месяц: ');readln(m);
    write('Введите год: ');readln(g);
    vis1:=g mod 4;
    vis2:=g mod 100;
    vis3:=g mod 400;
    if ((m=1)or(m=3)or(m=5)or(m=7)or(m=8)or(m=10)or(m=12))and(d>31) then
    writeln('Некоректная дата') else
    if ((m=4)or(m=6)or(m=9)or(m=11))and(d>30) then
    writeln('Некоректная дата') else
    if (d>28)and(m=2) then
    writeln('Некоректная дата') else
    if (d>29)and((m=2)and(vis1=0)and(vis2<>0)and(vis3=0))or((vis1=0)and(vis2=0)and(vis3=0)) then
    writeln('Некоректная дата') else
    if ((m=1)or(m=3)or(m=5)or(m=7)or(m=8)or(m=10))and(d<=30) then
    Begin d1:=d+1;m1:=m;writeln('Завтра: ',d1,'.',m1,'.',g); end
    else if ((m=1)or(m=3)or(m=5)or(m=7)or(m=8)or(m=10))and(d=31) then
    Begin d1:=1;m1:=m+1;writeln('Завтра: ',d1,'.',m1,'.',g); end
    else if ((m=4)or(m=6)or(m=9)or(m=11))and(d<=29) then
    Begin d1:=d+1;m1:=m;writeln('Завтра: ',d1,'.',m1,'.',g); end
    else if ((m=4)or(m=6)or(m=9)or(m=11))and(d=30) then
    Begin d1:=1;m1:=m+1;writeln('Завтра: ',d1,'.',m1,'.',g); end
    else if (d<=28)and((m=2)and(vis1=0)and(vis2<>0)and(vis3=0))or((vis1=0)and(vis2=0)and(vis3=0)) then
    Begin d1:=d+1;m1:=m;writeln('Завтра: ',d1,'.',m1,'.',g); end
    else if (d=29)and((m=2)and(vis1=0)and(vis2<>0)and(vis3=0))or((vis1=0)and(vis2=0)and(vis3=0)) then
    Begin d1:=1;m1:=m+1;writeln('Завтра: ',d1,'.',m1,'.',g); end
    else if (d<=27)and(m=2) then
    Begin d1:=d+1;m1:=m;writeln('Завтра: ',d1,'.',m1,'.',g); end
    else if (d=28)and(m=2) then
    Begin d1:=1;m1:=m+1;writeln('Завтра: ',d1,'.',m1,'.',g); end
    else if (d=31)and(m=12) then
    Begin d1:=1;m1:=1;g1:=g+1;writeln('Завтра: ',d1,'.',m1,'.',g1) end
    else Begin d1:=d+1;m1:=m;writeln('Завтра: ',d1,'.',m1,'.',g) end;
    readln;
End.

[Федосеев Павел]

Проблема в неправильной проверке високосности.
Давай введём булевскую переменную Leap и вычислим её сразу после ввода
Leap:=((vis1=0) AND (vis2<>0)) OR (vis3=0)
Потом используй эту переменную вместо длинного выражения в трёх строчках - должно заработать.
Кроме того, пройдись по программе пошаговым отладчиком - увидишь, какое условие проверки корректности "сработало".
В данном случае это
if (d>28)and(m=2) then
writeln('Некоректная дата') else
Добавь сюда " AND NOT Leap".

Сообщение отредактировано: Федосеев Павел - 1.03.2012 0:03

[Artem7]

Проблема в неправильной проверке високосности.
Давай введём булевскую переменную Leap и вычислим её сразу после ввода
Leap:=((vis1=0) AND (vis2<>0)) OR (vis3=0)
Потом используй эту переменную вместо длинного выражения в трёх строчках - должно заработать.
Кроме того, пройдись по программе пошаговым отладчиком - увидишь, какое условие проверки корректности "сработало".
В данном случае это
if (d>28)and(m=2) then
writeln('Некоректная дата') else
Добавь сюда " AND NOT Leap".

Вооо спасибо терь заработала))))благодаря вашему условие "AND NOT Leap"

Добавлено через 4 мин.

Проблема в неправильной проверке високосности.
Давай введём булевскую переменную Leap и вычислим её сразу после ввода
Leap:=((vis1=0) AND (vis2<>0)) OR (vis3=0)
Потом используй эту переменную вместо длинного выражения в трёх строчках - должно заработать.
Кроме того, пройдись по программе пошаговым отладчиком - увидишь, какое условие проверки корректности "сработало".
В данном случае это
if (d>28)and(m=2) then
writeln('Некоректная дата') else
Добавь сюда " AND NOT Leap".

((vis1=0) AND (vis2<>0)) OR (vis3=0)

а это условие не совсем правильное потому что может и делится на цело во vis2 окончательная проверка если нацело делится на 400, т.е

(vis1=0) AND ((vis2<>0) OR (vis3=0)) 

т.е должно выполнится что то из них)))