Оператор обрання CASE

Використовується в тому випадку, коли змінна може приймати ряд дискретних значень. Загальний вигляд оператора:

CASE <K> OF

<значення K₁ чи список значень K₁>: S₁

<значення K₂ чи список значень K₂>: S₂

.

.

<значення K_N чи список значеньN>: S_N

[ ELSE S_N+1]

END;

Де: K - вираз чи змінна перелічувального типу;

S₁.. S_N+1 - оператори, які використовуються в тому разі, коли вираз чи змінна K набуває відповідного значення. Вони можуь бути складеними. Виконання оператора можна проілюструвати наступною блок-схемою та діаграмою дій:

S₁

так

ні

		S2

так

ні

::

::

S_N

так

ні

<K>

S₁

S₂

S_N

S_N+1

Приклад: з'ясувати, парне чи непарне число NUMBER.

program control;

{ програма з'ясовує, парне чи непарне число NUMBER}

var NUMBER: integer;

begin

writeln('введіть число для перевірки (ціле):');

readln(NUMBER);

case NUMBER mod 2 of

0: writeln(NUMBER,'парне');

1: writeln(NUMBER,'непарне');

end;

end.

Приклад: застосування змінної власно перелічувального типу. З'ясувати, чи є день тиждня робочим чи вихідним, і, якщо він робочий, то який саме.

program day;

var day: (MN,TU,VN,TH,FR,ST,SN);

begin

: {надання значення змінній day}

case day of

ST,SN: writeln('Вихідний день');

else begin

case day of

MN: writeln('Понеділок');

TU: writeln('Вівторок');

VN: writeln('Середа');

TH: writeln('Четвер');

FR: writeln('Пыятниця')

end

end;

:

end.

Приклад: з'ясувати, якому з двох диапазонів належить ціле число і, [0,10] чи [25,40].

program analisys;

var i:integer;

begin

. {визначення значення i}

.

case i of

0..10: writeln(' i у диапазоні [0..10]');

25..40: writeln(' i у диапазоні [25..40]')

else writeln(' i за межами обох диапазонів')

end;

.

.

end.

Дата добавления: 2015-08-09