Автоматизация технологического проектирования. Смирнов О.Л. - 59 стр.

UptoLike

ВУЗ: 

СПб ГУАП | Санкт-Петербург

Составители: 

Рубрика: 

59
procedure SubTr; {загрузка рабочего места}
begin
for J:=1 to Nb do
begin J1:=0; Stm:=0; for I:=1 to Pgt do
if Tab[I].Dat[1+2*J] < Rm+1 then
begin ConPg;
St:=Tab[I].dat[2]*Tab[I].Dat[2+2*J]; Stm:=Stm+St;
Write(Sgn(I), St, 'X', Indx(B[J]+Tab[I].Nam));
Write(F, Sgn(I), St, 'X', Indx(B[J]+Tab[I].Nam))
end; Stm:=Stm div 4; WriteLn; WriteLn(F);
WriteLn(' <= ', Stm); WriteLn(F, ' <= ', Stm)
end;
end;
procedure SubPr; {одновременное выполнение операций}
begin
for I:=1 to Pgt do
if Length(Tab[I].Nam) > 2 then
begin
for J:=1 to Nb do
if (Tab[I].Dat[1+2*J] < Rm+1) and (Tab[I+1].Dat[1+2*J] < Rm+1)
then
begin {параллельные операции на разных рабочих местах}
WriteLn('X', Indx(B[J]+Tab[I].Nam), '+', 'X',
Indx(B[J]+Tab[I+1].Nam), ' = 1');
WriteLn(F, 'X', Indx(B[J]+Tab[I].Nam), '+', 'X',
Indx(B[J]+Tab[I+1].Nam), ' = 1');
Inc(I2);if Iz mod 23 = 0 then ReadLn
end;
Inc(I);
end;
end;
procedure FormTask; {файл с постановкой задачи}
begin
Write('':15, 'ИМЯ ФАЙЛА С ПОСТАНОВКОЙ ЗАДАЧИ =>');
Read(Fname);WriteLn;
Assign(F, Fname); ReWrite(F); {открытие файла}
J1:=0;I2:=0; ObjF; WriteLn; WriteLn(F);
Inc(I2);if I2 mod 23 = 0 then ReadLn;

Страницы