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

UptoLike

ВУЗ: 

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

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

Рубрика: 

55
ПРИЛОЖЕНИЕ 1
Программа формирования постановки задачи распределения сбороч-
ных операций по рабочим местам Sborka23.pas.
uses Crt;
const Pg = 22; Ism = 50; Ism1 = 30; Z = 4; Ls = 8;
Im = 8; Rm = 9; Ir = 6; Bm = 4; Nbr = 1; Npr = 1;
Imr = 4; Npm = 10; Nbm = 4; NbO =2*(Nbr+Nbm+1);
Csm = 5;Imm = 7; PgM = 4*(Imm+Imr+1);Jr = 5;
Ng : array [1..6] of byte = (4, 8, 13, 15, 20, 24);
B : array [1..5] of string[2] =
('B1', 'B2', 'B3', 'B4', 'B5');
TabH : array [1..2] of string[65] =
(' V B1 B2 B3 B4 B5',
' C T C T C T C T C T');
TabH1 : array [1..2] of string[65] =
(' V B1 B2 B3 B4',
' C T C T C T C T');
{типы данных}
type TabL = record Nam : string[Ls];
Dat : array[1..NbO] of byte
end;
Dig = 1..5;
Bnn = set of Dig;
{переменные}
var I, Ip, Imt, I1, I2, Iz, Is, J, Ji, Jk, Jm, Jst:byte;
K, Kb, Kbv, Nb, Np, Cs, Lsv, Pgt:byte;
Otm:boolean; Ch:char;
J1:word; Fname : string[14];
F:text; Cw, Cwt : string[2];
Stm : longint; St : word;
S : string[1];
Cc, Jmx : integer;
Tab : array [1..PgM] of TabL;
Bn : Bnn;
VarX: array[1..100] of string[15];
{процедуры и функции}
procedure F2o; {формирование имен операций}

Страницы