作业5：

1.（1）

.

1.（2）

2.

作业6：

1.(1)

2.(2)

2.(1)

2.(2)

3.

 打开卡片文件;

  读卡片;

  A:=0;

  处理前置部分 iter until 出现K1卡;

     处理非K1卡 seq

       A:=A+1

       读卡片;

     处理非K1卡 end;

  处理前置部分 end;

  打印起始卡;

  B:=0;C:=0;D:=0;

  读卡片;

  处理批部分 iter until 出现K2卡;

    处理批 seq

      统计总批数;   {B:=B+1}

      处理批类 select 是K1卡

         处理K1批 iter while 出现K1卡;

           处理K1卡 seq

             C:=C+1;

             读卡片;

           处理K1卡 end;

         处理K1批 end;

      处理批类 or 是K3卡

        处理K3批 seq;

          D:=D+1;

          处理批体 iter while 出现K3卡;

            读卡片;

          处理批体 end;

        处理K3批 end;

      处理批类 end;

    处理批 end;

  处理批部分 end;

  打印终止卡;

  打印A,B,C,D;

  关闭卡片文件;

卡片分析程序；

作业5、6