ПРАКТИЧЕСКОЕ ЗАНЯТИЕ № 8

ОПЕРАТОР ВАРИАНТА

Оператор варианта является обобщением условного оператора: он дает

возможность выполнить один из нескольких операторов в зависимости

от значения некоторого выражения, называемого СЕЛЕКТОРОМ.

CASE <селектор> OF { case (кейс) - выбор }

<список меток1> : <оператор1>; { of (oф) - из }

<список меток2> : <оператор2>;

. . . . . . . : . . . . . .;

<список метокN> : <операторN>;

ELSE <оператор>

END;

селектор - выражение любого перечисляемого типа, кроме вещественного;

integer, byte (-целые из [0;255]), char -символьный тип.

оператор - любой оператор языка, в том числе и составной;

список меток - список разделенных запятыми значений выражения 'селектор' или одно его значение; тип метки и селектора одинаков;

Оператор варианта выбирает для исполнения тот ОПЕРАТОР, одна из меток которого равна текущему значению выражения СЕЛЕКТОР. Если ни одна из меток не равна текущему значению селектора, то никакие операторы не выполняются, либо выполняются операторы, следующие за зарезервированным словом ELSE ( если такое имеется ).

Program Primer_Case1; Uses crt;

var n:integer;

Begin

clrscr; write('Нажмите цифру 1..8'); readln(n);

Case n of

1,7: write('В а н я');

2: write('В а с я');

3: write('В а л я');

4: write('В а р я');

5: write('В а д я');

Write('в а з а')

Else write(' Нет такой метки')

end; readkey;

End.

Program Primer_Case2; Uses crt;

var n:char; { char - символьный тип ,занимает 1 байт памяти }

Begin

clrscr; write('Нажмите букву а..е'); readln(n);