Лидеры рейтинга

ID: 401284

Михаил Александров

Советник

376

Россия, Санкт-Петербург


ID: 259041

Алексеев Владимир Николаевич

Мастер-Эксперт

357

Россия, пос. Теплоозёрск, ЕАО


ID: 401888

puporev

Профессор

215

Россия, Пермский край


ID: 405338

vovaromanov.jr

1-й класс

125


ID: 400669

epimkin

Профессионал

111


ID: 242862

Hunter7007

Мастер-Эксперт

29

Россия, Омск


ID: 137394

Megaloman

Мастер-Эксперт

25

Беларусь, Гомель


8.10.2

13.10.2021

JS: 2.10.2
CSS: 4.6.0
jQuery: 3.6.0
DataForLocalStorage: 2021-10-20 21:46:11-standard


Создание программ на языках Pascal, Delphi и Lazarus.

Администратор раздела: Зенченко Константин Николаевич (Старший модератор)

Консультация онлайн # 108945

Раздел: Pascal / Delphi / Lazarus
Автор вопроса: Артем Глушков
Дата: 11.11.2007, 15:46 Консультация закрыта
Поступило ответов: 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м/с

Ответ # 193252 от Gh0stik
Здравствуйте, Артем Глушков!

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

Вот код программы:
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.


Good Luck!!!

Gh0stik

Посетитель
11.11.2007, 16:22
Мини-форум консультации # 108945
Нет сообщений в мини-форуме
Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Лучшие эксперты раздела

puporev

Профессор

Рейтинг: 215

Зенченко Константин Николаевич

Старший модератор

Рейтинг: 164

Gluck

8-й класс

Рейтинг: 60

Лысков Игорь Витальевич

Мастер-Эксперт

Рейтинг: 0

Асмик Гаряка

Советник

Рейтинг: 0

Орловский Дмитрий

Мастер-Эксперт

Рейтинг: 0