Условный составной оператор
Если после служебного слова if
проверяется только одно условие (а mod 3=0; a>b; k=1), то
такое условие будем называть простым
условием.
Если после служебного слова if
возникает необходимость проверить сразу несколько условий, то группу таких
простых условий будем называть составным
условием. При написании составных
условий, каждое из простых условий, входящих в составное, берётся в скобки.
Можно использовать союзы and(и)
или or(или). Пример задачи:
Даны два числа
а,b (a,b≠0). Ответить одного ли знака введённые числа.
Разберём данную задачу.
Здесь возможны четыре варианта входных данных, для каждого из которых
запишем отдельное составное условие:
|
A
|
b
|
Ответ:
|
|
a>0
a<0
a>0
a<0
|
b>0
b<0
b<0
b>0
|
Одного
знака
Одного
знака
Разные
знаки
Разные
знаки
|
var a,b:real;
Begin
writeln('Введите два числa');
readln(a,b);
if (a>0) and (b>0) then writeln('числа одного знака');
if (a<0) and (b<0) then writeln('числа одного
знака');
if (a>0) and (b<0) then writeln('числа разных знаков');
if (a<0) and (b>0) then writeln('числа разных
знаков');
End.
А можно ли сделать нашу программу более красивой или более
короткой? Да, можно. Давайте объединим первое и второе составные условия.
var a,b:real;
Begin
writeln('Введите два числa');
readln(a,b);
if ((a>0)and(b>0))
or ((a<0)and(b<0))
then writeln('числа одного знака')
else writeln('числа разных
знаков');
End.
А можно ли и и эту программу сделать более красивой или более
короткой? Можно. Приведём новую версию проверки условия для данной программы:
if a*b>0 then writeln('числа одного знака')
else
writeln('числа разных знаков');
Замените условие в компьютере и убедитесь сами, что оно
работает верно.
| 
