ключ вибору (const: оператор)
Наприклад:
1) CASE digit OF 2) CASE ch OF
0: WRITELN (‘Нуль’); 0: WRITELN (‘Нуль’);
1,3,5,7,9: WRITELN (Непарне ‘число’); ‘A’,’O’, ‘E’,’U’: WRITELN (‘Голосні’);
2,4,6,8: WRITELN (‘Чіт’); ‘P’,’M’,’N’,’L’: WRITELN (‘Нуль’);
END; END;
Оператор Вибору працює таким чином:
– спочатку обчислюється <выражение>. Воно може давати значення тільки
порядкового типа: INTEGER або CHAR (але не REAL і STRING);
– далі в < списку вибору > відшукується оператор, якому передує
константа, рівна обчисленому значенню <выражения>. Вирази і
константи в списку вибору обов'язково повинні бути однакового типа.
Знайдений оператор виконується, після чого Оператор Вибору завершує
свою роботу;
– якщо в списку вибору не буде знайдене значення константи, рівне обчисленому значенню виразу, то управління передається операторам, що стоять за словом ELSE. Якщо цієї частини Оператора Вибору немає, то за відсутності в списку вибору співпадаючої константи Оператор Вибору завершується.
Приклад:Програма КАЛЬКУЛЯТОР для операцій +,- *, / між двома числами.
programCalc;
usescrt;
Var
operation: char;
x,y,z : real;
stop : boolean;
Begin
clrscr;
stop:=false;
WriteLn;
Write('x,y= ');
ReadLn(x,y);
Write('Операція: ');
ReadLn(operation);
caseoperation of
‘+’: z:=x+y;
‘-’ : z:=x-y;
‘*’: z:=x*y;
‘/’ : z:=x/y;
Else
Stop:=true;
end;
if notstop then
WriteLn(‘Результат =’,z);
readkey
End.
