Написал программу которая по введённой дате находит какое число выпадает на завтра, но вот никак не могу пристроить високосный год почему то проверку на дурака не проходит и выдаёт что 'некорректная дата'
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.
Федосеев Павел
29.02.2012 15:35
Артем, поищи в википедии статью "юлианская дата".
Идея следующая - каждой дате в истории (три числа) сопоставляется одно число. Если к этому числу прибавить 1 - получается "завтра". Выполнив обратное преобразование - получишь дату в привычном формате - число/месяц/год.
Или тебе нужно для учебных целей именно через множественные проверки условий?
Artem7
29.02.2012 18:59
Цитата(Федосеев Павел @ 29.02.2012 15:35)
Артем, поищи в википедии статью "юлианская дата".
Идея следующая - каждой дате в истории (три числа) сопоставляется одно число. Если к этому числу прибавить 1 - получается "завтра". Выполнив обратное преобразование - получишь дату в привычном формате - число/месяц/год.
Или тебе нужно для учебных целей именно через множественные проверки условий?
Мне на учебе такое задание дали, и я хочу как бы по своему вот как написал)только нужно доработать
Добавлено через 18 мин.
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>29)and(m=2)and(vis1=0)and((vis2<>0)or(vis3=0)) then writeln('Некоректная дата') else if (d>28)and(m=2) 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)or(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)or(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.
Ну вот чуток по другому но проблема терь в том что проверку не проходит если я введу 29 то первое условие висосного года пройдёт а потом наткнётся на ограниче не весокосного в 28дней и выдаст некоректная дата....(((
мисс_граффити
29.02.2012 19:46
условие должно выглядеть так: если (месяц=2) и ((дата>29) или ((дата=29) и (год не високосный))) то дата некорректная
а вот високосность года я бы для читаемости посоветовала собрать в одной переменной.
хотя изврат. посмотри вот здесь идею: Задачи связанные с календарем. там несколько сложнее за счет того, что дней не 1, а сколько угодно...
Федосеев Павел
29.02.2012 19:53
Проблема в неправильной проверке високосности. Давай введём булевскую переменную Leap и вычислим её сразу после ввода Leap:=((vis1=0) AND (vis2<>0)) OR (vis3=0) Потом используй эту переменную вместо длинного выражения в трёх строчках - должно заработать. Кроме того, пройдись по программе пошаговым отладчиком - увидишь, какое условие проверки корректности "сработало". В данном случае это if (d>28)and(m=2) then writeln('Некоректная дата') else Добавь сюда " AND NOT Leap".
Artem7
1.03.2012 5:18
Цитата(Федосеев Павел @ 29.02.2012 19:53)
Проблема в неправильной проверке високосности. Давай введём булевскую переменную 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 мин.
Цитата(Федосеев Павел @ 29.02.2012 19:53)
Проблема в неправильной проверке високосности. Давай введём булевскую переменную 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))
т.е должно выполнится что то из них)))
Федосеев Павел
1.03.2012 9:50
С моей стороны это уже лишнее сообщение, но добавлю: в условном выражении можно раскрыть скобки (vis1=0) AND ((vis2<>0) OR (vis3=0))=(vis1=0) AND (vis2<>0) OR (vis1=0) AND (vis3=0), но если (vis3=0), то и (vis1=0), значит (vis1=0) AND (vis3=0)=(vis3=0). Итак, получается (vis1=0) AND ((vis2<>0) OR (vis3=0)) = (vis1=0) AND (vis2<>0)) OR (vis3=0).
И, надеюсь, при исправлении ты учёл совет Мисс Граффити
Цитата
условие должно выглядеть так: если (месяц=2) и ((дата>29) или ((дата=29) и (год не високосный))) то дата некорректная
Artem7
1.03.2012 12:47
Цитата(Федосеев Павел @ 1.03.2012 9:50)
С моей стороны это уже лишнее сообщение, но добавлю: в условном выражении можно раскрыть скобки (vis1=0) AND ((vis2<>0) OR (vis3=0))=(vis1=0) AND (vis2<>0) OR (vis1=0) AND (vis3=0), но если (vis3=0), то и (vis1=0), значит (vis1=0) AND (vis3=0)=(vis3=0). Итак, получается (vis1=0) AND ((vis2<>0) OR (vis3=0)) = (vis1=0) AND (vis2<>0)) OR (vis3=0).
И, надеюсь, при исправлении ты учёл совет Мисс Граффити
Зачем учитывать то?он и без этого условия правильно работает...ну вот доработанный вариант
Program data; Var d,m,g,d1,m1,g1:integer; vis1,vis2,vis3:real; 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>29)and(m=2)and(vis1=0)and((vis2<>0)or(vis3=0)) then writeln('Некоректная дата') else if (d>28)and(m=2)and not((vis1=0)and((vis2<>0)or(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)or(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)or(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.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.