Предмет: Информатика
Автор: Andernek
Вопрос задан 9 лет назад

Помогите пожалуйста сделать домашнее задание в паскале, экселе и блок-схему! (задание для продвинутых пользователей)

(более подробно на фото л.р.9)
Диаметр горловины водоструйного элеватора в системах водяного отопления вычисляют по формуле d=1,55G^0,5/P^0,25 (см). Здесь G-расход теплоносителя в системе отопления после элеваторного узла, который определяется по формуле G=0,8610^(-3)(Q/(t1-t0), т/ч; Q-мощность отопительной установки здания, Вт, принять от 100000Вт до 300000вт с шагом 20000вт, t1-температура в падающей магистрали системы отопления, применять 105; t0-температура в обратной магистрали системы отопления, принять 70; P-расчетное давление в системе отопления для циркуляции теплоносителя, кПа, принять Р=12кПа. Определение записать в виде функции.

Приложения:

Ответы

Ответ дал: Аноним

function d(P, Q, t, t0: real): real;
var
G: real;

begin
G := 0.86e-3 * Q / (t - t0);
d := 1.55 * sqrt(G) / sqrt(sqrt(P))
end;

var
Q, t, t0, P, q1, q2, h: real;

begin
q1 := 1e5; q2 := 3e5; h := 2e4;
t := 105; t0 := 70; P := 12;
Q := q1;
while Q <= q2 do
begin
Writeln('Qзд=', Q:0:0, ', d:=', d(P, Q, t, t0):0:3);
Q := Q + h
end
end.

Тестовое решение:

Qзд=100000, d:=1.305
Qзд=120000, d:=1.430
Qзд=140000, d:=1.545
Qзд=160000, d:=1.651
Qзд=180000, d:=1.751
Qзд=200000, d:=1.846
Qзд=220000, d:=1.936
Qзд=240000, d:=2.022
Qзд=260000, d:=2.105
Qзд=280000, d:=2.184
Qзд=300000, d:=2.261

Приложения: