If условие then действие;
Здесь, если условие выполняется, то выполняется действие, а если условие не выполняется, то сразу переходим к оператору, который следует после условного оператор в тексте программы.
Задача (полное ветвление).
Вычислить
значение функции
для заданного х.
Блок-схема
PASCAL
program Vyrazh;
var x, y : real;
begin
write ('Введите х:'); readln(x);
if x= 3 then
write ('При х=3 значение функции не определено')
else
begin
y :=(x*x+5*х+2)/(x–3);
write ('y=', y)
end
end.
Если после ключевых слов Then или Else нужно выполнить более одного оператора, то эти операторы должны быть заключены в операторные скобки – ключевые слова Begin и End;
Группа операторов (команд), заключенная в операторные скобки Begin и End, называется составным оператором.
Задача (неполное ветвление).
Составить программу, удваивающую значение целой переменной а, если а>5.
Program Primer;
Var а : Integer;
Begin
Write (‘Введите число a= ’);
Read (а);
If а >5 Then а:= а*2;
WriteLn (‘а =', а);
End.
Составить программу, определяющую наибольшее значение среди переменных X,Y,Z, значения которых вводятся с клавиатуры.
Сложные ветвления
Рассмотрим этот вариант выбора на примере:
Программа для данного примера:
Program Pr;
Var A,X: integer;
Begin
Write('Введите X=');
Readln (X);
If X<0 then A:=X+1
else If X<10 then A := 2*X
else A := 0;
Writeln (‘A=’ , A);
End.
