Краткие теоретические сведения

Условный оператор позволяет осуществить ветвление про­граммы только по двум направлениям, одно из которых соот­ветствует выполнению проверяемого условия, а другое — не­выполнению этого же условия. Если для переменной необ­ходимо осуществить ряд действий, зависящих от других условий, то надо записывать либо вложенные условные опе­раторы, либо несколько таких операторов подряд. Для такой ситуации удобно использовать оператор варианта. Он соответ­ствует структуре, изображенной на рисунке 6.

Данная структура называется также переключателем и вы­полняется следующим образом. Вход в структуру содержит вычисление или ранее полученное значение переменной (ин­декса варианта). Это значение может совпасть с меткой, стоя­щей перед оператором на одной из ветвей переключателя. В таком случае выполняется оператор, помеченный этой мет­кой, и происходит выход из структуры. Оператор бывает простым или составным, ограниченным операторными скоб­камиbegin ... end;. Если значение индекса варианта не со­впало ни с одной из меток, то выполняется оператор с номе­ром п + 1 из строкиelse. Если оператор варианта содержит строкуelse, то это — полная форма оператора, если такой строки нет, то используется сокращенная форма оператора варианта.

Метки оператора варианта могут быть константами любого типа. Их тип должен совпадать с переменной индекса вариан­та. Возможно, чтобы индекс варианта был как именем пере­менной, так и выражением соответствующего типа.

Рис. 6. Структура оператора варианта

На языке Паскаль оператор варианта имеет вид:

case индекс варианта of

метка1:оператор 1;

метка2:оператор 2;

. . .

метка n:оператор n;

else оператор n + 1

end;

Пример программы, содержащей оператор вари­анта. Одной из распространенных задач раздела физики «Молекулярно-кинетическая теория» является задача, связанная с расчетом числа молекул в единице объема в теле заданной массы и в теле известного объема. Для такой задачи можно построить программу-решатель.

Дано: молярная масса вещества М, плотность данного вещества Р, масса R или объем данного тела V. Требуется най­ти число молекул К: 1) в единице массы вещества; 2) в теле с заданной массой; 3) в единице объема вещества; 4) в теле с заданным объемом. Для решения задачи воспользуемся формулой:

К= (N_A/M)R,

где N_A = 6,022 * 10 ²³ г/моль — число Авогадро.

На основании этой формулы получаем расчетные формулы для программы:

1) К = N _A/ М; 2) К= N _AR/M; 3) К= N_A Р V/ М; 4) К= N_A Р/ М.

Программа имеет вид:

program Р20;

const NA = 6.022 E20;

var N:integer; М, R, Р, V, К:real;

Begin

writeln (‘зная постоянную Авогадро, плотность Р данного вещества’);

writeln (‘и его молярную массу М, можно найти число мо­лекул в’);

writeln (‘1. в единице массы вещества’);

writeln (‘2. в теле массой R’);

writeln (‘3. в единице объема’);

writeln (‘4. в теле объемом V’);

write (‘введите номер решаемой задачи’);

readln(N);

write(‘введите исходные данные: М = ‘);

readln(М);

caseN of

1: К: = NA/M;

2:begin

write(‘R = ‘);

readln(R);

K: = NA -R/M;

end;

Begin

write(‘плотность вещества Р = ‘);

readln(Р);

write(‘V= ‘);

readln(V);

K: = NA *P-V/M;

end;

Begin

write(‘плотность вещества Р = ‘);

readln(Р);

К: = NA "P/V end;

end;

write(‘число молекул К = ‘, К’)

End.