2、1,B2:recordemptyB1:=1,fullB1:=0,emptyB2:=1,fullB2:=0cobeginprocessreadX:record; begin R:接收来自输入设备上一个记录X:=接收的一个记录; P(emptyB1); B1:=X; V(fullB1); goto R; end; Process move Y:record; begin
3、 M:P(fullB1); Y:=B1; V(emptyB1) 加工Y P(emptyB2); B2:=Y; V(fullB2); goto M; end; Process print Z:record; begin P:P(fullB2); Z:=B2; V(emptyB2)