[0] [16] = "Окружна швидкість на виході, м/с";
Grid1-> Cells [0] [18] = "Кількість лопаток";
Grid1-> Cells [0] [20] = "Окружна швидкість на виході 2, м/с";
Grid1-> Cells [1] [20] = k; (r22 = 1000 * u22/w0, fp);
Grid1-> Cells [0] [21] = "Радіус на виході, мм";
Grid1-> Cells [1] [21] = k; (d22 = 2 * r22, fp);
Grid1-> Cells [0] [22] = "Діаметр на виході, мм";
Grid1-> Cells [1] [22] = k; (b22 = 1000 * q11/(M_PI * d22 * c1m2/1000), fp);
Grid1-> Cells [0] [23] = "Ширина лопаті на виході, мм";
Grid1-> Cells [1] [23] = k; (k11 = 1/(1 - (z * det/(M_PI * 2 * r1 * sin (M_PI * bt1/180)))), fp );
Grid1-> Cells [0] [24] = "Поправочний к-т швидкості на вході";
Grid1-> Cells [1] [24] = k; (k12 = 1/(1 - (z * det/(M_PI * d22 * sin (M_PI * bt2/180)))), fp);
Grid1-> Cells [0] [25] = "Поправочний к-т швидкості на виході";
Grid1-> Cells [1] [25] = k;:
}
// --------------------------------------------- ------------------------------ __fastcall TForm1 :: N5Click (TObject * Sender)
{-> Close ();
}
// --------------------------------------------- ------------------------------ __fastcall TForm1 :: N11Click (TObject * Sender)
{= 1; -> Click ();
}
// --------------------------------------------- ------------------------------ __fastcall TForm1 :: N21Click (TObject * Sender)
{= 2; -> Click ();
}
// --------------------------------------------- ------------------------------ __fastcall TForm1 :: N31Click (TObject * Sender)
{= 3; -> Click ();
}
// --------------------------------------------- ------------------------------ __fastcall TForm1 :: N41Click (TObject * Sender)
{= 4; -> Click ();
}
// --------------------------------------------- ------------------------------ __fastcall TForm1 :: N7Click (TObject * Sender)
{-> ShowModal ();
}
// --------------------------------------------- ------------------------------
В
5.2 Побудова графічних характеристик насоса
program grafiki;
uses crt, graph; gd, gm: integer;, y1, x, y, i: integer; podacha (x, y: integer); i: = 1 to 6 do (x, y , x +20, y); (x +20, y-3, x +20, y +4); i = 1 then (x-8, y +4, '0 ') if i = 2 then (x -8, y +4, '10 ') if i = 3 then (x-8, y +4, '20') if i = 4 then (x-8, y +4, '30 ') if i = 5 then (x-8, y +4, '40 ') if i = 6 then (x-8, y +4, '50');: = x +20;; (x-10, y +4, '60 '); (x, y, x +10, y); (x +10, y-3, x +10, y +4); (x +6, y +4, '70');: = x +10; i: = 1 to 4 do (x, y, x +20, y); (x +20, y-3, x +20, y +4); i = 2 then (x-8 , y +4, '80 ') if i = 3 then (x-8, y +4, '90') if i = 4 then (x-11, y +4, '100 ');: = x + 20;; (x, y, x +20, y);...
