Оператор вибору.

Оператор вибору дозволяє вибрати одне з декількох можливих продовжень програми.

Структура оператора вибору така:

case <ключ вибора>

<список вибора>

[else <оператори>]

end;

Розглянемо декілька прикладів:

Вводитися число від 1 до 4, визначаюче пору року. Дати назву цієї пори року (1 - зима, 2 - весна, 3 - літо, 4 - осінь).

program zadacha3_10;

Var

n:byte;

Begin

writeln('Введіть номер пори року');

readln(n);

Case n

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);