一.单项选择题（每小题1分，共10分）

1.D
2.C
3.D
4.B
5.A
6.D
7.D
8.D
9.C
10.A

二.填空题（每空1分，共15分）

1.独立性
2.字符型
3.TRUE（不区分大小写字母）
4.8
5.yellow（大写字母不给分）
6.not(ch in ['x','y','z']或not (ch in [‘x.'..'z'])
7.已无定义（或无确定的值，或等价的文字说明）
8.3
9.50
10.值参数
11.必须大于（或大于等于）
12.day:=pred(fri)(不区分大小写字母)
13.字符（或紧凑字符）
14.eoln或eoln（）（不区分大小写字母）
15.p↑(不区分大小写字母)

三.改错题（每题4分，共20分）

注：①错误原因说明除这里给出的外，可为其他等同含义的描述。
    ②错误位置指明除这里标明的外，可视具体程序灵活考虑。
评卷时要根据以上两面三刀点恰当评分。

1.错误位置：PROGRAM calcA(input,output);
               VAR    a,b:   INTEGER;
                       multi,div: REAL;
                            (1)
               BEGIN
                  readln(a,b);
                  multi=a*b;   div=a/b;
                  writeln(a:4,b:4,multi:8:2,div:8:2)
               END.
   错误说明：（1）div为（系统）保留字，不能用作变量名。
            （2）赋值语句的赋值号应为“：=”，不是“=”。
评分标准：指出错误位置每处及错误原因说明每个各1分。

2.错误位置：PROGRAM findmin (input,output);

                VAR    x,y,z,min:  INTEGER;
                BEGIN
                   readln(x,y,z);
(1) (2)              If x<y THENIF x<z THEN min:=x;
(1) (2)              If y<x THENIF y<z THEN min:=y;
(1) (2)              If z<x THENIF z<y THEN min:=z;
                   writeln(x:4,y:4,z:4);
                   writeln('MINIMUM IS',min:4)
                END.
错误说明：（1）各个关系式中的小于号（<）应该为小于等于号（<=）否则，对于相等的特殊情形将找不出最小数。
         （2）THENIF应改为 THEN IF。
评分标准：指出错误位置每种及错误原因说明每个各1分。
*其他形式的正确程序段参考：
形式一   IF x<=y THEN IF x<=z THEN min:=x;
         IF y<=x THEN IF y<=z THEN min:=y;
         IF z<=x THEN IF z<=y THEN min:=z;
形式二   IF x<y
         THEN IFx<=z
               THEN min:=x
               ELSE min:=z
         ELSE  IF y<=z
               THEN min:=y
               ELSE min:=z;