y <0) or (d <20e-6);. Caption: = 'h =' + floattostr (y) + 'd =' + floattostr (d * 1e6);;// ------ -------------------------------------------------- ------- TForm1. BitBtn1Click (Sender: TObject);// -----------------------: integer;, Nu, y: real ; i: = 100 to 2200 do begin: = i;: = f_Vkin (Tg) * 1e6;. Chart1.Series [0]. AddXY (Tg, Nu,'', clRed);
// ============================================= ========
=========== i: = 0 to round (Ht) do begin: = i;: = f_Tg (y);. Chart2.Series [0]. AddXY (y, Tg, '', clRed);;
// ============================================= ========
=========== i: = 0 to round (Ht) do begin: = i;: = f_O2 (y);. Chart3.Series [0]. AddXY (y, O2, '', clRed);
end; end ;//----------------------------------------- ---------------------------