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

OK; AA: real;: integer; : = OtrStan [1]; ProsTT: = 0; i: = 1 to Stanki do (OtrStan [i] <= AA) then begin AA: = OtrStan [i]; pribyt: = i; end; AA <= WreOtr then Exit: = AA-WreOtr; WreOtr: = AA;: = SumTT + ProsTT;;; DOSTAWKA; Poisk, then

Str (zaqwka: 3, ss); ss: = 'Âûïîëíåíî' + ss + 'òðàíñïîðòíûõ îïåðàöèé';

Form1.Memo2.Lines.Strings [0]: = ss;: = 0; i: = 1 to Razmer_SZ doNomin: = Nomin + WremqDU [(Posled [i])]; end;

Str (Nomin: 7:1, ss); ss: = 'Íîìèíàëüíàÿ òðóäî ¸ ìêîñòü ÑÇ, ìèí -' + ss;

Form1.Memo2.Lines.Strings [1]: = ss;: = 0; i: = 1 to Stanki do Fakt: = Fakt + OtrStan [i]/60;

Str (Fakt: 7:1, ss); ss: = 'Ôàêòè ÷ åñêàÿ òðóäî ¸ ìêîñòü ÑÇ, ìèí -' + ss;

Form1.Memo2.Lines.Strings [2]: = ss;: = OtrStan [1]; Sum: = 0; i: = 1 to Stanki do: = Sum + SumPR_S [i]/ 60; OtrStan [i]> AA then AA: = Otrstan [i];;: = AA/60;

Str (AA: 8:1, ss); ss: = 'îòðàáîòàííîå âðåìÿ, ìèí -' + ss;

Form1.memo2.Lines.strings [3]: = ss;

Str (sum: 7:1, ss); ss: = 'Ñóììàðíûå ïðîñòîè ñòàíêîâ, ìèí, -' + ss;

Form1.memo2.LineS.strings [4]: ​​= ss;: = sumTT/60; (SumTT: 7:1, ss); ss: = 'Ñóììàðíûå ïðîñòîè ñòàíêà, ìèí -' + ss;

Form1.Memo2.Lines.Strings [4]: ​​= ss;: = SumTT/60; (SumTT: 7:1, ss); ss: = 'Ñóììàðíûå ïðîñòîè ðîáîêàðû, ìèí -' + ss;

Form1.Memo2.Lines.Strings [5]: = ss;: = Nomin/Fakt; (Kgps: 7:2, ss); ss: = 'Êîýôôèöèåíò çàãðóçêè ÃÏÑ -' + ss;

Form1.Memo2.Lines.Strings [6]: = ss;: = Razmer_SZ/AA; (Pgps: 7:2, ss); ss: = 'Ïðîèçâîäèòåëüíîñòü ÃÏÑ, øò/ìèí -' + ss;

Form1.Memo2.Lines.Strings [7]: = ss;: = (AA-SumTT)/AA;

Str (Ktt: 7:2, ss); ss: = 'Êîýôôèöèåíò çàãðóçêè ðîáîêàðû -' + ss;

Form1.Memo2.Lines.Strings [8]: = ss;; TForm1.Button1Click (Sender: TObject); a, i, z, x: integer;: = StrToInt (Edit3.Text) ;. ColCount: = A; i: = 1 to A do.Cells [i, 0]: = IntToStr (i);

StringGrid4.Cells [0,0]: = '¹ ¹';. Cells [0,1]: = 'ÄÓ';

Wwod; SZ; i: = 1 to Emkost do.Cells [i, 1]: = IntToStr (KodSklad [i]); i: = 1 to razmer_sz do.cells [i, 1] : = intto...