Условный оператор может быть записан и в краткой форме.
Синтаксис оператора «не полное ветвление»
IF <условие> ТHEN <оператор> ;
Блок схема
ЯЗЫК ПРОГРАММИРОВАНИЯ
Паскаль
PROGRAM <название программы>;
VAR <описание переменных>;
BEGIN
<оператор>
IF <условие>
THEN <оператор >
END.
Пример:
Введенное с клавиатуры число вывести на экран, если оно положительное и вывести его абсолютную величину (ABS) если число отрицательное.
PROGRAM bolschee iz dvug;
VAR a : REAL;
BEGIN
WRITELN (‘ведите число’) ; {пояснительная надпись}
READLN (a) ;
IF a<0 {определение знака числа}
THEN a := ABS (a) ; { значение числа берётся по модулю}
WRITELN (a); { вывод результата на экран}
READLN ; {установка паузы для просмотра результата}
END.
Существует неудобство от того, что после THEN и ELSE можно писать только один оператор.
В ПАСКАЛЕ есть средство превратить последовательность записанных друг за другом операторов формально в один оператор. Для этого последовательность операторов заключается между словами begin и end. Получившаяся конструкция называется – составным оператором.
Составной оператор используется в тех местах программы, в которые разрешёно использование только одного оператора.
Слова, составляющие пару THEN и ELSE, BEGIN и END записываются друг под другом.
Если выбор необходимо сделать из 3 вариантов. Для этого используется схема вложенного ветвления. Где после THEN и ELSE может стоять ещё одно ветвление.
Блок схема
Язык программирования паскаль
PROGRAM <название программы>;
VAR <описание переменных>;
BEGIN
IF <условие>
THEN
IF <условие>;
THEN <оператор 1>
ELSE <оператор 2>
ELSE
IF <условие>
THEN <оператор 3>
ELSE <оператор 4>;
END.
Пример:
Найти большее из трёх чисел. (Числа вводятся с клавиатуры).
PROGRAM bolschee_iz_3;
VAR a,b,c :REAL;
BEGIN
IF a>b THEN
IF a>c
THEN WRITELN (a)
ELSE WRITELN (c)
ELSE
IF b>c
THEN WRITELN (b)
ELSE WRITELN (c);
END.