Курсовая работа: Расчет и анализ системы обслуживания робототехнического комплекса производства деталей ЭВА

l, c, b, p, R, svo2,svo3,B4,t,N,T4,X,svo4: array [1..4] of real;

constS, ls1, svp1,b21,svo1, Vrem1, sp1, Vrem2,ssvo2,sp2,Vrem3:real;

ssvo3,sp3,q,sum,ssvo4,sp4 :real;

i: integer;

implementation

uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

begin

Form2.ShowModal;

{Включение кнопок}

Button2.Enabled:=true;

Button3.Enabled:=true;

Button4.Enabled:=true;

Button5.Enabled:=true;

N12.Enabled:=true;

N13.Enabled:=true;

N14.Enabled:=true;

N15.Enabled:=true;

N16.Enabled:=true;

N17.Enabled:=true;

N18.Enabled:=true;

N19.Enabled:=true;

end;

procedure TForm1.N3Click(Sender: TObject);

begin

Close;

end;

procedure TForm1.Button4Click(Sender: TObject);