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

UptoLike

ВУЗ: 

ТПУ | Томск

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

Рубрика: 

77
Re<=0.2
fd=(0.843∗ln(1/0.065f)
-1
Начало
Ввод f, Re
Re>=2
.
10
3
fd=f
0.9
Re
0.15 sqrt(f-1)
Конец
Вывод fd
Да Нет
Да Нет
fd=1+11.6sqrt(f -1)
Программа.
Program Koef;
var fd,f,Re:real;
Begin
write('Введите f,Re');
readln(f,Re);
if Re<=0.2 then fd:=1/(0.843∗ln(1/0.065∗f))
else if Re>=2.0E3 then fd:=1+11.6
٭sqrt(f–1))
else fd:=exp(0.9∗ln(f))∗
exp(0.15∗sqrt(f–1)∗ln(Re));
writeln('fd=',fd:10);
end.
4.3.2.5. Операторы цикла
Для организации циклов (повторов) при записи алгоритмов на
языке Паскаль используются три вида операторов цикла:
WHILE – оператор цикла с предварительным условием;
REPEAT – оператор цикла с последующим условием;
FOR – оператор цикла с управляющим параметром.

Страницы