Информатика. Часть 1. Мойзес О.Е - 75 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

75
writeln('Введите значение d g r1 r2 v2 Re=');
readln(d,g,r1,r2,v2,Re);
if (Re>=1.0E–4) and (Re<=2.0) then
U:=sqr(d)∗g∗(r1–r2)/(18∗V2∗r2);
if Re>500 then U:=sqrt(3.03∗d∗g∗(r1–r2)/r2);
writeln('U=',U);
end.
4.3.2.3. Оператор выбора CASE
Оператор CASE предназначен для программирования алгоритмов
с большим числом разветвлений. Этот оператор обеспечивает
выполнение одного оператора (простого или составного) из нескольких
возможных.
Общий вид оператора CASE:
case <выражение–селектор> of
<список меток 1>: оператор 1;
<список меток 2>: оператор 2;
. . . . .
<список меток n>: оператор n;
else <оператор>
end;
Здесь значение выражения должно быть одного и того
же
скалярного типа (кроме real), что и метки. Оператор выбора действует
следующим образом. Если значение выражения равно одной из меток,
то выполняется соответствующий ей оператор. Затем управление
передается за пределы оператора выбора. Наличие символа «;» перед
ELSE в конструкции этого оператора обязательно.
Замечание. Метки оператора CASE не описываются в разделе
label, и на них
нельзя переходить оператором GOTO. Метки внутри
одного оператора выбора должны быть различными.
Пример. Вычислить значение теплоемкости химических веществ
и соединений по выражениям:
− Cp = a + b·T; (Ι)
− Cp = a + b·T + c·T
2
; (ΙI)
− Cp = a + b·T + c/T
2
; (ΙΙI)
− Cp = a + b·T + c·T
2
+ d/T
2
; (ΙV)
Программа
Program Tepl;
Var T,Cp,a,b,c,d:real;

Страницы