3.4.1. Условный оператор

Ключевые слова:

условный оператор
неполный условный оператор
составной оператор
вложенные ветвления

При записи на языке Паскаль разветвляющихся алгоритмов используют условный оператор. Его общий вид:

if <условие> then <оператор_1> else <оператор_2>

Для записи неполных ветвлений используется неполная форма условного оператора:

if <условие> then <оператор>

Слова if — then — else переводятся с английского языка на русский как если — то — иначе, что полностью соответствует записи ветвления на алгоритмическом языке.

Перед else знак «;» не ставится.

В качестве условий используются логические выражения:

простые — записанные с помощью операций отношения;

сложные — записанные с помощью логических операций.

Пример 1. Запишем на языке Паскаль рассмотренный в п. 2.4.2 (пример 8) алгоритм определения принадлежности точки х отрезку [а, b].

program n_9;
var х, a, b: real;
begin writeln ('Определение принадлежности точки отрезку'); write ('Введите а, b>>'); readln (а, b) ; write ('Введите х»'); readln (х);
if (х>=а) and (x<=b) then
writeln ('Точка принадлежит отрезку')
else writeln ('Точка не принадлежит отрезку')
end.

Пример 2. Воспользуемся неполным условным оператором для записи на языке Паскаль рассмотренного в п. 2.4.2 (пример 9) алгоритма присваивания переменной у значения наибольшей из трёх величин а, b и с.

program n_10;
var у, a, b, с: integer;
begin
writeln ('Нахождение наибольшей из трёх величин'); write ('Введите а, b, с>>'); readln (а, b, с) ; у:=а;
if (b>y) then y:=b;
if (с>у) then у:=с;
writeln ('у=', у)
end.

Дополните эту программу так, чтобы её выполнение приводило к присваиванию переменной у значения большей из четырёх величин а, b, с и d.