Осуществляет развилку алгоритма на произвольное множество ветвей.
Формат оператора:
Case Селектор of
список 1: оператор 1;
список 2: оператор 2;
…
список n: оператор n;
[else оператор]
end;
Пример 6.6
Program p6_5;
Var x: real;
N: integer;
Begin
Write(‘Введите число и степень:’);
Readln(x,n);
Case n of
2: x:=x*x;
3: x:=x*x*x;
4: x:=x*x*x*x;
5: x:=x*x*x*x*x;
else Writeln(‘Слишком большая степень числа!’);
end;
Writeln(‘X в степени’, n:1,’=’, x:10:2);
End.
Составной оператор
begin … end;
Организация циклов
Операторы цикла организуют многократное выполнение повторяющихся действий.