Оператор вибору дозволяє вибрати одне з декількох можливих продовжень програми.
Структура оператора вибору така:
case <ключ вибора>
<список вибора>
[else <оператори>]
end;
Розглянемо декілька прикладів:
Вводитися число від 1 до 4, визначаюче пору року. Дати назву цієї пори року (1 - зима, 2 - весна, 3 - літо, 4 - осінь).
program zadacha3_10;
Var
n:integer ;
Begin
writeln('Введіть номер пори року');
readln(n);
Case n of
1: writeln('зима');
2: writeln('весна');
3: writeln('літо');
4: writeln('осінь');
Else
writeln('неправильно ввели номер пори року');
end;
End.
Складемо програму "КАЛЬКУЛЯТОР", яка після введення двох чисел і одного із знаків +, - * / проведе обчислення, а результат видасть на екран.
program zadacha3_11;
Var
а,b,s:real;
sim:char;
Begin
writeln('Введіть два числа');
readln(а,b);
writeln('Введіть знак операції');
readln(sim);
