Алгоритм выполнения неполного условного оператора

Алгоритм выполнения неполного условного оператора

1. Проверяется значение логического выражения, записанного в условии после слова If

2. Если условие истинно (значение выражения условие равно True), то выполняется операторы, указанный после слова Then

3. Если условие ложно, то ничего делать не надо. Происходит переход к следующему оператору.

Операторы ветвления могут быть вложенными, т.е. один оператор if можно расположить внутри другого. В этом случае он позволяет производить выбор более чем из двух вариантов. При написании исходного кода с вложенными операторами для удобочитаемости кода вложенные операторы выделяются отступами.

If then begin

[операторы 1;]

end

Else if eckjdbt 2 then begin

[операторы2;]

End

elseifусловиеN

[операторыN;]

end

elsebegin

;

end;

Применение условного оператора if рассмотрим на примерах.

Пример 1. С клавиатуры ввести два различных числа. Найти большее из них и вывести его на экран.

Решение

В этом примере нужно произвести выбор одного из двух вариантов, для этого используется операторif-then-else.

program primer6_1; var a, b, m:integer; begin writeln('Введите два числа: '); readln(a, b); if a>b then m:=a else m:=b; writeln('Большее из них: ', m); end.

Пример 2. Даны три отрезка. Можно ли из них построить треугольник?

Решение. Для любого треугольника сумма его двух сторон должна быть больше третьей стороны (неравенство треугольника). Если a, b, c – стороны предполагаемого треугольника, то нужно сравнить длину каждого отрезка с суммой двух других. Если хотя бы в одном случае отрезок окажется больше суммы двух других, то треугольник из таких отрезков не построить.

Для решения этой задачи используется оператор if-then-elseсо сложным условием.

program primer6_2; var a, b, c: integer; begin write (' Введите длины отрезков: '); readln (a,b,c); if (a <b+c) and (b <a+c) and (c <a+b) then writeln ('Можно построить треугольник.') else writeln ('Нельзя построить треугольник.'); end.

⇐ Предыдущая 12