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

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

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

> проверка условия
Rash
сообщение 31.01.2006 13:51
Сообщение #1


Новичок
*

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

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


var
a,b,c,d : integer;
begin
a:=1 ; b:=2 ; c:=3 ; d:=4;
if a>b then
if c<d then
if c<0 then
c:=0
else
a:=b; {a равно 1}

Вопрос: почему 'а равно 1' а например не 2 и почему условие 'if a>b then' проверяется в 'a:=b;'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
volvo
сообщение 31.01.2006 14:06
Сообщение #2


Гость






Rash, ты чего добиться-то хочешь? Вот, посмотри, как этот же код выглядит при соблюдении правил форматирования исходников. Так намного проще понять, где именно проблема:
var
a, b, c, d: integer;
begin
a:=1 ; b:=2 ; c:=3 ; d:=4;
if a>b then
if c<d then

if c<0 then c:=0
else a:=b; {a равно 1}

{ если c >= d, то придем сюда }
{ если a <= b то придем сюда }
end.

То есть, в твоем случае A < B, и компилятор просто заканчивает проверку, не производя никаких действий... Не забывай, что Else ВСЕГДА относится к последнему открытому If (изменить этот порядок можно только с помощью Begin ... End)
 К началу страницы 
+ Ответить 

Сообщений в этой теме


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

 



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