k=0;
j=1;
r=1;
FOR r=1 то m
i=1;
FOR i=1 то 2
WHILE a
1
i
<>a
2
i
;
a
1
i
:=Concat (a
1
i
,’ ‘,a
2
i
)
;
END
WHILE a
rj
<>END FILE
WHILE a
ij
<> Подзаголовок
IF k=0 THEN r=1; k=1;
a1
ij
:=a
ij
;
i:=i+1;
END WHILE;
k:=0;
IF j=1 THEN j:=2;
END WHILE;
COUNTER=0;
FOR r=1 то m
COUNTER1=0;
FOR f=1 то p
IF a
rp
=NULL THEN COUNTER1=COUNTER1+1;
NEXT f
IF COUNTER1=p-1 THEN COUNTER=COUNTER+1;
NEXT r
IF COUNTER < 2 THEN EXIT
REM Формирование двух отношений
R’=R(A
1
,. . . . . . ,A
i
,. . . . . . .,A
p
)
+R(KR)
COUNTER=0
FOR r=1 то m
COUNTER1=0;
FOR f=1 то p
IF a
rp
=NULL THEN COUNTER1=COUNTER1+1;
NEXT f
IF COUNTER1 =p-1 THEN
COUNTER=COUNTER+1;
Z(R2
COUNTER,1
)
=COUNTER;
Z(R2
COUNTER,2
)
=a
rp
;
DELETE * FROM R’ WHERE (A
1
=a
rp
)
;
ELSE
Z(R’
r,
1
)
=COUNTER;
68 ISSN 0236-3933. Вестник МГТУ им. Н.Э. Баумана. Сер. “Приборостроение”. 2012. № 2
