思舞飞扬 ---我思，故我在！！

http://blog.cersp.com/6001/665070.aspx

1、机器是机房设施的一部分，如同我们身体的一部分，相信每个人都爱自己；
2、计算机安全是大家学习的重要保证，携带外来资料盘上机容易传染病毒，因此是不妥的；
3、安静的学习环境需要我们共同营造，请不要太过放纵自己的嗓门，也不要让手机响起悠扬的铃声；
4、机器为学习之便，请勿作游戏机或影碟机使用;
5、不期而至的水或饮料对机器可能是致命的，千万不要将机器置于危险之下；
6、机器出现故障，及时报告老师，即使你是个小专家，在未经教师同意前，请不要随意拆卸硬件设备；
7、为给他人留下优美的读书环境，请保持桌椅有序及各处的整洁。
8、……

考前注意事项：

1、请带上准考证，将准考证放在左上角，考后之后带走；

2、请按学号就座；

3、考试期间机器有问题，请举手叫老师解决；

4、不能自行重考，在老师允许的条件下才可以，重考密码是12345

5、交卷完毕之后方可离开考场；

6、若需要补考于午最后一场补考；

提示：

1、双击桌面上“运行考试系统”

2、考生文件夹看窗口红色提示，可点击直接进入文件夹

3、Excel题目做好后：保存－关闭－返回

4、Frontpage题目做好后：保存－关闭－返回

5、建议题目中有用信息可用CTRL+C(复制)，CTRL+V(粘贴)

6、交卷前务必关闭其他所有窗口

7、独立完成

NOIP2007年普及组（Pascal语言）参考答案与评分标准

一、单项选择题：（每题1.5分）

二、问题求解：（每题 5分）

1．90   2．210

三、阅读程序写结果

1. 15, 46（对1个数给4分，无逗号扣1分）

2.  3, 6

3.  2  3  5  7  11  13  17  19  23  29

  31  37  41  43  47

4.  wer2345defgh45456782qqq

四、完善程序(前4空（①--④），每空2.5分，后6空（⑤--⑩），每空3分)

（说明：以下各程序填空可能还有一些等价的写法，各省可请本省专家审定和上机验证，不一定上报科学委员会审查）

1．

①  inc(i) 或i:=i+1 

②  dec(j) 或 j:=j-1

③  kz<>-1

④  reverse(line) 

2. 

⑤ exit
⑥ (dr⑦ chessboard(tr,tc,tr+s-1,tc+s-1,s)
⑧ chessboard(tr,tc+s,tr+s-1,tc+s,s)
⑨ chessboard(tr+s,tc,tr+s,tc+s-1,s)
⑩ chessboard(tr+s,tc+s,tr+s,tc+s,s)

整理制作 电脑动力ComputerPower hjwz

http://www.cpbeta.cn

http://www.oifans.cn

http://bbs.pcbeta.com

http://bbs.wmzhe.com

三、阅读程序写结果（共4题，每题8分，共计32分。）

1、program j301;

var     i,a,b,c,x,y:integer;

        p:array[0..4] of integer;

begin

        y:=20;

        for i:=0 to 4 do read(p[i]);

        readln;

        a:=(p[0]+p[1])+(p[2]+p[3]+p[4]) div 7;

        b:=p[0]+p[1] div ((p[2]+p[3]) div p[4]);

        c:=p[0]*p[1] div p[2];

        x:=a+b-p[(p[3]+3) mod 4];

        if (x>10)

                then y:=y+(b*100-a) div (p[p[4] mod 3]*5)

        else

                y:=y+20+(b*100-c) div (p[p[4] mod 3]*5);

        writeln(x,',',y);

end.

{注：本例中，给定的输入数据可以避免分母为0或数组元素下表越界。}

输入：6 6 5 5 3  输出：______________________

2、program j302;

var     a,b:integer;

var     x,y:^integer;

procedure fun(a,b:integer);

var     k:integer;

begin   k:=a; a:=b; b:=k; end;

begin

        a:=3; b:=6;

        x:=@a; y:=@b;

        fun(x^,y^);

        writeln(a,',',b);

end.

输出：_______________________________

3、program j303;

var     a1:array[1..50] of integer;

var     i,j,t,t2,n,n2:integer;

begin

        n:=50;

        for i:=1 to n do a1[i]:=0;

        n2:=round(sqrt(n));

        for i:=2 to n2 do

        if (a1[i]=0) then

                begin

                        t2:=n div i;

                        for j:=2 to t2 do a1[i*j]:=1;

                end;

        t:=0;

        for i:=2 to n do

        if (a1[i]=0) then

                begin

                        write(i:4); inc(t);

                        if (t mod 10=0) then writeln;

                end;

        writeln;

end.

输出：_____________________________________________

      _____________________________________________

4、Program j304;

Type str1=string[100];

       Str2=string[200];

Var

       S1:str1; s2:str2;

Function isalpha(c:char):Boolean;

Var i:integer;

Begin

       i:=ord(c);

       if ((i>=65) and (i<=90)) or ((i>=97) and (i<=122)) then

        isalpha:=true

       else isalpha:=false;

end;

function isdigit(c:char):Boolean;

var i:integer;

begin

       i:=ord(c);  if (i>=48) and (i<=57) then isdigit:=true

       else isdigit:=false;

end;

procedure expand(s1:str1;var s2:str2);

var i,j:integer; a,b,c:char;

begin

       j:=1; c:=char(1); i:=0;

       while (i<=ord(s1[0])) do

       begin inc(i); c:=s1[i];

      if c='-' then begin {1}

              a:=s1[i-1]; b:=s1[i+1];

              if (isalpha(a) and isalpha(b)) or (isdigit(a) and isdigit(b)) then begin

                     dec(j);

                        while (ord(upcase(a))

                        begin

                            s2[j]:=a; inc(j); inc(a); end;

                       end

                        else

begin s2[j]:=c; inc(j); end;

end{1}

else begin s2[j]:=c; inc(j); end; end; s2[0]:=char(j-2); end;

begin readln(s1); expand(s1,s2); writeln(s2);

end.

输入：wer2345d-h454-82qqq               输出：__________________________

四、完善程序（前4空，每空2.5分，后6空，每空3分，共28分）。

1、（求字符的逆序）下面的程序的功能是输入若干行字符串，每输入一行，就按逆序输出该行，最后键入-1终止程序。

       请将程序补充完整。

Program j401;

type str1=string[100];

var line:str1; kz:integer;

procedure reverse(var s:str1);

var I,j:integer; t:char;

begin

       i:=1; j:=length(s);

       while (i

       t:=s[i]; s[i]:=s[j]; s[j]:=t;

       ; ;

       end;

end;

begin

       writeln(‘continue? -1 for end.’);

       readln(kz);

       while ( )do

       begin

       readln(line);

       ;

       writeln(line);

       writeln(‘continue? -1 for end.’);

       readln(kz);

       end;

end.

 2、（棋盘覆盖问题）在一个2^k×2 ^k个方格组成的棋盘中恰有一个方格与其它方格不同（图中标记为-1的方格），称之为特殊方格。现用L型（占3个小方格）纸片覆盖棋盘上除特殊方格的所有部分，各纸片不得重叠，于是，用到的纸片数恰好是（4 ^k-1）/3。在下表给出的一个覆盖方案中，k=2，相同的3各数字构成一个纸片。

       下面给出的程序使用分治法设计的，将棋盘一分为四，依次处理左上角、右上角、左下角、右下角，递归进行。请将程序补充完整。

Program j402;