Помогите пожалуйста по блок схеме составить, код программы
Приложения:
![](https://st.uroker.com/files/8f3/8f3de0a97b08193b078f336360c11b9a.jpg)
![](https://st.uroker.com/files/37e/37efa645d6bd4cc15b654eb740eaa086.jpg)
pinguinbird:
а есть описание самой задачи, которую программа должна решать?
Ответы
Ответ дал:
0
program Danil;
var
Qj, Qjst, Bb, Bn, Z, Zy, Ya, Za, Vg, Vgv, Rg, Po, T, T_o, P, Snkt, d, Vsh: real;
begin
Qjst := 1;
Bb := 1;
Bn := 1;
Zy := 1;
Ya := 1;
Za := 1;
Vgv := 1;
Rg := 1;
Po := 1;
T := 1;
T_o := 1;
P := 1;
d := 1;
Qj := Qjst * (1 - Bb) * Bn + Qjst * Bb;
Z := Zy * (1 - Ya) + Za * Ya;
Vg := ((Vgv * (1 - Bb) + Rg) * Qjst * Z * Po * T) / (T_o * P);
Snkt := pi *sqr(d) / 4;
Vsh := (Qj + Vg) / Snkt;
write(Vsh:0:5);
end.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
6 лет назад
6 лет назад
8 лет назад