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

UptoLike

ВУЗ: 

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

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

Рубрика: 

57
procedure WriteK; {отметка концевых операций}
begin
repeat Cs:=random(Csm);
Case Cs of
0, 1:begin Tab[Iz+2].Dat[1]:=1;Inc(Iz);F2o;Inc(Iz) end;
4, 5:begin Tab[Iz+1].Dat[1]:=1;Inc(Iz);Inc(Iz);F2o end;
else begin Inc(Iz);F2o;Inc(Iz);F2o end
end;
until I > Imt;
Imt:=I; for I:=Iz+1 to Imt do Tab[I].Dat[1]:=1; Iz:=Imt;
end;
procedure TabHd(V : string); {заголовок таблицы}
begin WriteLn(V); WriteLn(F, V) end;
procedure WriteT; {запись таблицы}
begin
for I:=1 to Pg do Wtabl; {начало таблицы}
ReadLn; ClrScr;
for I:=1 to 2 do
if Nb = 4 then WriteLn(TabH1[I]) else WriteLn(TabH[I]);
for I:=Pg+1 to Pgt do Wtabl; {конец таблицы}
Close(F);
end;
procedure ConPg;{размер строк и страниц}
begin Inc(J1);
if J1 mod Jr = 0 then {Jr слагаемых в строку}
begin Writeln; Writeln(F); J1:=0;
Inc(I2);if I2 mod 23 = 0 then
begin ReadLn;ReadLn end
end
end;
function Sgn(N:integer):char; {знаки коэффициентов}
begin
if Jst=1 then Sgn:=' ' else Sgn:='+'
end;
procedure ObjF; {целевая функция}
begin Jst:=0;WriteLn('min'); WriteLn(F, 'min');
for I:=1 to Pgt do for J:=1 to Nb do

Страницы