/3; end; : = j +1; S: = dSq0; dSq1S: = dSq1; [0]: = q [0]-H [0] * dSq0/norma; [1]: = q [1]-H [1] * dSq1/norma;; pi: = q [0]; pi: = q [1];: = 0; i: = i0 to Npp do: = Spi + sqr (yz [i]-y [i]);: = Npp; abs ((yz [i]-y [i])/yz [i]) <0.05 do i: = i-1;: = i +1;: = i0; y [i]> = y [i-1] do i: = i +1;: = y [i-1]-yz [i-1]; y [i] <= y [i-1] do i: = i +1 ; y [i]> = y [i-1] do to Npp TObject);. Label26.Caption: = 'Ui = k1 * U (i-1) + k2 * U (i-2) + k3 * f (i-dx + d) + k4 * f (i-1-dx + d) + k5 * f (i-2-dx + d) ';. Label21.Caption: =' k1 = '+ FloatToStrf (k1, ffgeneral, 7,2);. Label22.Caption: =' k2 = ' + FloatToStrf (k2, ffgeneral, 7,2);. Label23.Caption: = 'k3 =' + FloatToStrf (k3, ffgeneral, 7,2);. Label24.Caption: = 'k4 =' + FloatToStrf (k4, ffgeneral , 7,2);. Label25.Caption: = 'k5 =' + FloatToStrf (k5, ffgeneral, 7,2);; TForm1.FormCreate (Sender: TObject);. Caption: = TimeToStr (Time);; TForm1.Button4Click (Sender: TObject);
begin.Caption: = 'Розпочався процес подачі води';. Caption: = 'Розпочався процес подачі дріжджів';
timer4.Enabled: = true;. Enabled: = true;: = 0;; TForm1.Timer1Timer (Sender: Table1.Fields [3]. AsFloat,'', clDefault);. AddXY (Table1.RecordCount-1, Table1.Fields [4]. AsFloat,'', clDefault);; TForm1.Timer4Timer (Sender: TObject); i : integer; (mc); shape2.Brush.Color = clgreen then shape2.Brush.Color: = clwhiteshape2.Brush.Color: = clgreen; shape1.Brush.Color = clgreen then shape1.Brush.Color: = clwhiteshape1.Brush. Color: = clgreen; shape3.Brush.Color = clgreen then shape3.Brush.Color: = clwhiteshape3.Brush.Color: = clgreen; mc> = 40 then begin.Caption: = 'Процес подачі води завершено';. Caption: = 'Процес подачі дріжджів завершено';. Enabled: = false;. Enabled: = false;
timer5.Enabled: = true;. Caption: = 'Розпочався процес подачі закваски в тістомісильні машину';
end;; TForm1.Timer5Timer (Sender: TObject); (mc); shape4.Brush.Color = clgreen then shape4.Brush.Color: = clwhiteshape4.Brush.Color: = clgreen; shape5.Brush.Color = clgreen then shape5.Brush.Color: = clwhiteshape5.Brush.Color: = clgreen; mc> = 20 then begin.Caption: = 'Процес подачі закваски завершено';. Enabled: = false;. Enabled: = true;: = 0; ;; TForm1.Timer6Timer (Sender: TObject); (mc); shape6.Brush.Color = clgreen then shape6.Brush.Color: = clwhiteshape6.Brush.Color: = clgreen;
if mc> = 20 then begin.Capti on: = 'Розпочався процес подачі закваски далі на лінію';
timer6.Enabled: = false;: = 0;
end;
en.
