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

UptoLike

ВУЗ: 

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

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

Рубрика: 

58
begin
if Tab[I].Dat[1+2*J] < Rm+1 then {запись целевой функции}
begin St:=Tab[I].Dat[2]*Tab[I].Dat[1+2*J]*Tab[I].Dat[2+2*J];
Inc(Jst);
VarX[Jst]:=B[J]+Tab[I].Nam;
Write(Sgn(J), St, 'X', Jst);
Write(F, Sgn(J), St, 'X', Jst);
ConPg
end;
end;
Jmx:=Jst
end;
function Indx(Str:string):integer; {индекс имени операции}
var I:integer;
begin
I:=0;
repeat
Inc(I);
until (VarX[I]=Str) or (I>Jmx);
if I>Jmx then
begin
Write('О Ш И Б К А В I n d x'); Halt(1)
end;
Indx:=I
end;
procedure SubR; {выполнение операции на одном рабочем месте}
begin
for I:=1 to Pgt do
begin for J:=1 to Nb do
if Tab[I].Dat[1+2*J] < Rm+1 then
begin
Write(Sgn(J), 'X', Indx(B[J]+Tab[I].Nam));
Write(F, Sgn(J), 'X', Indx(B[J]+Tab[I].Nam))
end;
Write('=1'); Write(F, '=1'); Writeln; Writeln(F);
Inc(I2);if I2 mod 23 = 0 then ReadLn
end
end;

Страницы