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

UptoLike

ВУЗ: 

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

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

Рубрика: 

62
ПРИЛОЖЕНИЕ 2
Программа выдачи файла с графиком загрузки оборудования опера-
циями сборочных процессов Spodg25.pas.
uses Crt;
var I, Im:byte;
F:text;Nm:string[15];
Arstr:array[1..40] of string[10];
Arpt:array[1..40] of byte;
procedure OpenRd;
begin
Write(#13, #10, 'Имя файла для чтения данных');
ReadLn(Nm); Assign(F, Nm); Reset(F);
end;
procedure OpenWr;
begin
Write(#13, #10, 'Имя файла для записи результатов');
ReadLn(Nm);
Assign(F, Nm);
Rewrite(F);
end;
function Pt(N:byte):byte;
var St:string[10];I:byte;
begin Pt:=0;
St:=Arstr[N];
if Pos(' ', St)=3 then Pt:=N else
begin
St[Pos(' ', St)-1]:=' ';
for I:=1 to N-1 do if St=Arstr[I] then
begin Pt:=I; I:=N-1 end;
end;
end;
procedure SetArst;
begin
OpenRd; ReadLn(F); ReadLn(F);
I:=0;
while not Eof(F) do
begin

Страницы