IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Проблема с датами
Artem7
сообщение 29.02.2012 15:27
Сообщение #1


Пионер
**

Группа: Пользователи
Сообщений: 54
Пол: Мужской

Репутация: -  0  +


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

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.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Федосеев Павел
сообщение 29.02.2012 15:35
Сообщение #2


Бывалый
***

Группа: Пользователи
Сообщений: 298
Пол: Мужской
Реальное имя: Федосеев Павел

Репутация: -  8  +


Артем, поищи в википедии статью "юлианская дата".

Идея следующая - каждой дате в истории (три числа) сопоставляется одно число. Если к этому числу прибавить 1 - получается "завтра". Выполнив обратное преобразование - получишь дату в привычном формате - число/месяц/год.

Или тебе нужно для учебных целей именно через множественные проверки условий?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Artem7
сообщение 29.02.2012 18:59
Сообщение #3


Пионер
**

Группа: Пользователи
Сообщений: 54
Пол: Мужской

Репутация: -  0  +


Цитата(Федосеев Павел @ 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дней и выдаст некоректная дата....(((
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
мисс_граффити
сообщение 29.02.2012 19:46
Сообщение #4


просто человек
******

Группа: Модераторы
Сообщений: 3 641
Пол: Женский
Реальное имя: Юлия

Репутация: -  55  +


условие должно выглядеть так:
если (месяц=2) и ((дата>29) или ((дата=29) и (год не високосный))) то
дата некорректная

а вот високосность года я бы для читаемости посоветовала собрать в одной переменной.

хотя изврат.
посмотри вот здесь идею:
Задачи связанные с календарем.
там несколько сложнее за счет того, что дней не 1, а сколько угодно...


--------------------
Все содержимое данного сообщения (кроме цитат) является моим личным скромным мнением и на статус истины в высшей инстанции не претендует.
На вопросы по программированию, физике, математике и т.д. в аське и личке не отвечаю. Даже "один-единственный раз" в виде исключения!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Федосеев Павел
сообщение 29.02.2012 19:53
Сообщение #5


Бывалый
***

Группа: Пользователи
Сообщений: 298
Пол: Мужской
Реальное имя: Федосеев Павел

Репутация: -  8  +


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

Сообщение отредактировано: Федосеев Павел - 29.02.2012 20:03
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Artem7
сообщение 1.03.2012 5:18
Сообщение #6


Пионер
**

Группа: Пользователи
Сообщений: 54
Пол: Мужской

Репутация: -  0  +


Цитата(Федосеев Павел @ 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)) 
т.е должно выполнится что то из них)))
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Федосеев Павел
сообщение 1.03.2012 9:50
Сообщение #7


Бывалый
***

Группа: Пользователи
Сообщений: 298
Пол: Мужской
Реальное имя: Федосеев Павел

Репутация: -  8  +


С моей стороны это уже лишнее сообщение, но добавлю:
в условном выражении можно раскрыть скобки
(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) и (год не високосный))) то
дата некорректная
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
Artem7
сообщение 1.03.2012 12:47
Сообщение #8


Пионер
**

Группа: Пользователи
Сообщений: 54
Пол: Мужской

Репутация: -  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).

И, надеюсь, при исправлении ты учёл совет Мисс Граффити


Зачем учитывать то?он и без этого условия правильно работает...ну вот доработанный вариант

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.


Сообщение отредактировано: Artem7 - 1.03.2012 13:03
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
2 чел. читают эту тему (гостей: 2, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 28.03.2024 17:50
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"