Программирование разветвляющихся алгоритмов

Оператор выбора CASE

Оператор CASE предназначен для программирования алгоритмов с большим числом разветвлений. Этот оператор обеспечивает выполнение одного оператора (простого или составного) из нескольких возможных.

Общий вид оператора CASE:

case <выражение–селектор> of

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

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

.....

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

else <оператор>

end;

Здесь значение выражения должно быть одного и того же скалярного типа (кроме real), что и метки. Оператор выбора действует следующим образом. Если значение выражения равно одной из меток, то выполняется соответствующий ей оператор. Затем управление передается за пределы оператора выбора.

Замечание. Метки оператора CASE не описываются в разделе label, и на них нельзя переходить оператором GOTO. Метки внутри одного оператора выбора должны быть различными.

Рассмотрим пример программы для разветвляющегося алгоритма.

Пример. Вычислить динамический коэффициент формы сферической частицы катализатора

где f=1.16. Обозначим f_g = fd.

Программа.

Program Koef;

var fd,f,Re:real;

Дата добавления: 2014-01-14