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

UptoLike

ВУЗ: 

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

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

Рубрика: 

60
WriteLn('st'); WriteLn(F, 'st');
Inc(I2);if I2 mod 23 = 0 then ReadLn;
SubTr; SubR; SubPr;
WriteLn('end'); WriteLn(F, 'end');
Close(F);
end;
procedure VarName; {файл с именами переменных}
var I:integer;
begin
Write('':15, 'ИМЯ ФАЙЛА С ИМЕНАМИ ПЕРЕМЕННЫХ => ');
Read(Fname);WriteLn;
Assign(F, Fname); ReWrite(F); {открытие файла}
for I:=1 to Jmx do
begin
WriteLn(VarX[I]); WriteLn(F, VarX[I]);
end;
Close(F);
end;
procedure FirstData; {исходные данные: число процессов и рабочих
мест}
begin
Write('':25, 'ИМЯ ФАЙЛА С ИСХОДНЫМИ ДАННЫМИ => ');
Read(Fname);
Assign(F, Fname); ReWrite(F); {открытие файла}
for I:=1 to PgM do begin Tab[I].Nam:=' ';
for J:=1 to NbO do Tab[I].Dat[J]:=0
end;
repeat WriteLn;
Write('':27, 'ЧИСЛО ПРОЦЕССОВ ? <3-4>'); ReaδΛn(Np);
until (Np = 3) or (Np = 4);
repeat WriteLn;
Write('':27, 'ЧИСЛО РАБОЧИХ МЕСТ ? <4-5>'); ReadLn(Nb);
untiλ (Nb = 4) or (Nb = 5);
Imt:=0;I:=0;Iz:=0;
for Ip:=1 to Np do {имена операций}
begin Inc(I); Str(Ip, S); Tab[I].Nam:='P'+S; Inc(Iz);
F2o; Imt:=Imt+Imm+random(Imr); WriteK;

Страницы