Question

Помогите пожалуйста по блок схеме составить, код программы

Answer 1

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.