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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

76
n,i:integer;
Begin
writeln('введи Т,a,b,c,d=');
readln(T,a,b,c,d);
writeln('введи номер формулы n=');
readln(n);
Case n of
1:Cp:=a + b
٭T;
2:Cp:=a + b
٭T+c٭T
2
;
3:Cp:=a + b
٭T+c/T
2
;
4:Cp:=a + b
٭T+ c٭T
2
+d/T
2
;
end;
writeln('Для n=’n:2,’ Cp=',Cp:7:2);
End.
4.3.2.4.Программирование разветвляющихся алгоритмов
Идея разветвляющегося алгоритма является одной из
основополагающих в программировании. Возможность создать
разветвляющуюся программу обеспечивается условными операторами.
Рассмотрим пример программы для разветвляющегося алгоритма.
Пример. Вычислить динамический коэффициент формы
сферической частицы катализатора
()
⎪
⎪
⎪
⎩
⎪
⎪
⎪
⎨
⎧
⋅≥−+
⋅<<
≤
⎟
⎟
⎠
⎞
⎜
⎜
⎝
⎛
=
−
−
.102Re ,16.111
,102Re2.0 ,Re
,2.0Re ,
065.0
1
ln834.0
3
3
115.0
9.0
1
f
f
f
f
f
g
где f=1.16. Обозначим f
g
= fd.

Страницы