Ветвящиеся алгоритмические конструкции

Проверяется условие и в зависимости от результатов проверки выполнить то или иное действие.

Краткая форма оператора

if <условие> then <оператор1>;
<оператор2>;
<оператор3>;
...........
<операторN>;

где
if - если;
<условие> - логическое выражение;
then - тогда;
<оператор1> - оператор ;

Если логическое выражение истинно, то выполняется <оператор1> , в противном случае программа переходит к выполнению операторов, следующих за оператором if (<оператор2>, <оператор3>,..... <операторN>).

Если условие ложно, то НЕ выполняется <оператор1>, а сразу выполняются следующие за ним операторы: <оператор2>, <оператор3>,....., <операторN>.

Полная форма оператора

if <условие> then < оператор1>
else < оператор 2>;
< оператор 3>;
< оператор 4>;
...

Если условие истинно, то выполняется <оператор1>, затем последовательность операторов: <оператор3>, <оператор4> и т. д.

Если условие ложно, то выполняется <оператор2>, затем выполняются следующие по порядку операторы: <оператор3>, <onepamop4> и т. д.

Любая встретившаяся часть ELSE соответствует ближайшей к ней "сверху" части THEN условного оператора.

Перед else не ставится точка с запятой, т. к. это один оператор if ... then ... else ...;. Для наглядности программы операторы, следующие за словами else и then можно писать на следующей строке.

Если за словами else и then необходимо выполнить группу операторов, то тогда используются операторные скобки begin ... end. Такая структура называется вложенной:

begin
if <условие> then begin
<оператор 1>;
<оператор 2>;
...
<оператор n>
end
else begin
<оператор 1>;
<оператор 2>;
...
< оператор n>
end;
end.

Примеры

Краткая форма оператора

Выбрать наименьшее значение из трех различных чисел.

program zadacha (input, output);{нахождение наименьшего из трех чисел}
var
a,b,c,min:real;
begin
write1п('введите значения a,b,c=');
readln (a,b, с) ;
min:=a;
if b<min then min:=b;
if c<min then min:=c;
writeln( 'наименьшее число',min)
end.

Полная форма оператора

Составить программу для вычисления Y по заданному X, если
y=210 при x<=10;
y=x3 при x>10

program zadacha (input,output); {вычислить y}
var
x,у:rea1;
begin
writeln('введите x=');
readln (x) ;
if x<=10 then y:=210 else y:=x*x*x;
writeln('npи x=',x, ' y=',y)
end.

Решить квадратное уравнение вида ax2+bx+c=0.

program zadacha (input,output); {решение квадратного уравнения}
var
a,b,c,d,x1,x2:real;
begin
writeln('введите коэффициенты a,b,c=');
readln (a,b,c);
d:=b*b-4*a*c;
if d>0 then begin
x1: = (-b+sqrt (d))/(2*a);
x2: = (-b-sqrt(d))/(2*a);
writeln('x1 = ',x1, 'x2=',x2)
end
else
if d=0 then begin
x:=-b/(2*a);
writeln( 'x=',x)
end
else writeln('уравнение не имеет корней')
end.

<-->