Реферат Підсистема моделювання роботи гнучкої виробничої осередку

str (posled [i]);; TForm1.Button5Click (Sender: TObject); ss: string;: integer; a, z, x: integer;: string; (FF1, 'Ciklgr2.mod'); (FF1 ); (ff1, Stanki); i: = 1 to stanki do (ff1, smena_du); (ff1, '');; (ff1);

Writeln (FF1, 'òðàíñ. îáñë. êîä ïðîñò âðåìÿ ìîìåíò íà ÷ àëî êîíåö'); (FF1, 'îïåð. ñòàíîê ÄÓ ÒÒ òðàíñ äîñòàâ îáðàá. îáðàá.');

NULL; wwod; Zaqwka: = 1 to Razmer_SZ do (Posled [zaqwka]);;;;; ; (FF1);; TForm1.Button4Click (Sender: TObject);: string;: integer;. Visible: = True;. Clear;; memo1.Lines doTForm1.Button7Click (Sender: TObject);: integer;: = StrTOInt ( Edit1.Text);. Strin gGrid1.ColCount: = Stanki;. StringGrid1.RowCount: = 2; i: = 1 to stanki do.StringGrid1.Cells [i-1, 0]: = IntToStr (i);; TForm1.Button8Click (Sender: TObject); : integer;; i: = 1 to stanki do.StringGrid1.Cells [i-1, 1]: = FloatToStr (random (1000)/10);; TForm1.Button9Click (Sender: TObject);: integer;: = StrToInt (Edit8.Text);. ColCount: = Nomenkl;. RowCount: = 2; i: = 1 to Nomenkl do.Cells [i-1, 0]: = IntToStr (i);; TForm1.Button10Click (Sender: TObject) ;: integer;; i: = 1 to Nomenkl do.Cells [i-1, 1]: = FloatToStr (random (1000)/10);; TForm1.Button11Click (Sender: TObject);

StringGrid3.Cells [0,1]: = 'Êîä. ÏÇ ';. Cells [0,2]: =' Êîë-âî øò. '; p align="justify"> end; TForm1.Button2Click (Sender: TObject); FF: TextFile;: to Stanki do Write (FF, Koord [i]: 8:2); Writeln (FF); i: = 1 to Nomenkl do Write (FF, WremqDU [i]: 8:2); Writeln (FF); i: = 1 to PZ do Write (FF, Kod_PZ [i]: 5); Writeln (FF); i: = 1 to PZ do Write (FF , Kol_PZ [i]: 5); Writeln (FF); i: = 1 to Emkost do Write (FF, KodSklad [i]: 5); Writeln (FF); (FF);; TForm1.Button3Click (Sender: TObject); FF: TextFile;: to Stanki do Read (FF, Koord [i]); Readln (FF); i: = 1 to Nomenkl do Read (FF, WremqDU [i]); Readln (FF); i: = 1 to PZ do Read (FF, Kod_PZ [i]); Readln (FF); i: = 1 to PZ do Read (FF, Kol_PZ [i]); Readln (FF); i: = 1 to Emkost do Read (FF, KodSklad [i]); Readln (FF ); (FF); Form1 do.Text: = IntToStr (Stanki);. Text: = IntToStr (Smena_DU);. ColCount: = Stanki; i: = 1 to Stanki do to Nomenkl do StringGrid2.Cells [i-1, 1]: = FloatToStr (WremqDU [i]);. Text: = IntToStr (PZ);....