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

Question

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

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

---

Comments

В Экселе тоже процедуру делать? А вы учили макросы и VBA?

Answer 1

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<br>  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

---

Скачать вложение Excel (XLS)