Операторы цикла

End.

End;

Case Ch of

Read(ch);

Begin

Var

Program ff;

End;

...

Case выражение_селектор of

Оператор варианта (case)

End.

End;

Begin

Else

End

Begin

Else

End

Begin

Readln(a,b,c);

Begin

Sr:real;

Var

Program vetv;

a,b,c:real;

writeln('введите три числа');

if (a>b) and (a>c) then

sr:=(b+c)/2;

writeln ('максимальное - ',a);

if b>c then

sr:=(a+c)/2;

writeln ('максимальное - ',b);

sr:=(a+b)/2;

writeln ('максимальное - ',c);

writeln('среднеарифметическое - ', sr);

Следует обратить внимание на то, что два оператора, находящиеся в ветке else или then, должны быть заключены в составной оператор (begin...end).

Для организации каскада ветвлений может быть использован оператор выбора.

Синтаксис оператора case:

Выражение_перечисления1: оператор1;

Выражение_перечисления2: оператор2;

[else операторN; операторN+1;]

Оператор варианта приводит к выполнению оператора, которому предшествует выражение_перечисления, одному из значений которого равно значение выражения_селектора. Если такого выражения_перечисления не существует и присутствует ветвь else, то выполняется оператор, следующий за ключевым словом else. Если же ветвь else отсутствует, то никакой оператор не выполняется.

Выражение селектор должно иметь порядковый тип, и значения верхней и нижней границы этого типа должны лежать в диапазоне от -32768 до 32767. Таким образом, длинный целый тип является недопустимым типом переключателя.

Все выражения перечислениядолжны быть уникальными и иметь порядковый тип, совместимый с типом выражения селектора.

В качестве примера использования оператора case приведём программу, анализирующую введённый пользователем символ.

Текст программы на языке Pascal выглядит следующим образом:

ch:char;

'A'..'Z', 'a'..'z': WriteLn('Буква');

'0'..'9': WriteLn('Цифра');

'+', '-', '*', '/': WriteLn('Знак операции');

else WriteLn('спец. символ');

Общим для всех операторов цикла является наличие у них тела и заголовка. Тело цикла составляют операторы, предназначенные для циклического повторения. Заголовок цикла определяет условие окончания или количество повторений операторов, составляющих тело цикла.