Оператор выбора
Оператор выбора- это условный оператор, в котором происходит выбор из большого числа вариантов. Синтаксис оператора выбора следующий:
case выражение of
константа1 : оператор1 ;
константа2 : оператор2 ;
...
константа n : оператор n ;
else оператор
end
Здесь выражение- выражение перечислимого типа, константа1 , ..., константаn - константы, тип которых совпадает с типом выражения.
Оператор выполняется следующим образом. Значение выражения сравнивается с перечисленными константами и если оно совпадает с одной из констант, то выполняются оператор, соответствующий этой константе. Если значение выражения отличается от всех перечисленных констант, то выполняется else-часть оператора. У оператора выбора else-часть может отсутствовать.
Если для нескольких констант следует выполнить один и тот же оператор, эти константы можно перечислить через запятую. Если перечисляемые константы идут подряд, то можно задать диапозон констант в виде (константа..константа). Пример
case i of
0,2,4,6,8: writeln ('Четная цифра');
1,3,5,7,9: writeln('Нечетная цифра');
10..100 : writeln('Число от 10 до 100');
else writeln('Число отрицательно или больше 100');
end
Еще пример:
case symbol of
'0'..'9': begin n := ord(symbol) - ord('0'); flagsymbol := true end;
'+' : begin minus := false; flagsign := true end;
'-' : begin minus := true; flagsign := true end;