Главная Вход в систему Регистрация
Задать вопрос Консультации Пользователи Форум
О системе Помощь
Задать вопрос экспертам
Консультация № 108945
11.11.2007, 15:46
0.00 руб.
0 1 1
Компьютеры Программирование
Просил уже решить эту задачу, но ответа так и не получил. Для стальных и чугунных труб, уже находящихся в эксплуатации, коэффициент сопротивления определяется но формуле: Л={либо 0,021/Д^0,3(степень)при Р>9,2*10^5 ,либо ((1,5*10^-6/Д)+1/Р)^0,3 при Р<9,2*10^5. Где Р=С*Д/В; Вычислить Р и Л если даны В=0,009 см^2/с Д=19,1мм С=1,2,5,10,20,50,100м/с

Обсуждение

Неизвестный
11.11.2007, 16:22
общий
это ответ
Здравствуйте, Артем Глушков!

Предварительно необходимо привести все величины к одному "измерению", а уж потом пробовать вычислять... (см<sup>2</sup> -> м<sup>2</sup>; мм -> м).

Вот код программы:
<code>var l,p,d,v:real;
     c:integer;
begin
   d:=0.0191;
   v:=0.0000009;
   for c:=1 to 100 do
    case c of
    1,2,5,10,20,50,100:
     begin
       p:=c*d/v;
       if p > 920000
          then l:=0.021/exp(0.3*ln(d))
          else l:=exp(0.3*ln(0.0000015/d+1/p));
       writeln(‘c=‘,c:3,‘ p=‘,p:11:3,‘ l=‘,l:4:3);
     end;
     else continue;
    end;
   readln;
end.</code>

Good Luck!!!
Форма ответа