);         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:=0;         n2:=round(sqrt(n));         for i:=2 to n2 do         if (a1=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=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;       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))<ord(upcase(s1[i+1]))) do                         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<j) do begin     t:=s; s:=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    3    3 2    -1    1    3 4    1    1    5 4    4    5    5 2、（棋盘覆盖问题）在一个2k×2 k个方格组成的棋盘中恰有一个方格与其它方格不同（图中标记为-1的方格），称之为特殊方格。现用L型（占3个小方格）纸片覆盖棋盘上除特殊方格的所有部分，各纸片不得重叠，于是，用到的纸片数恰好是（4 k-1）/3。在下表给出的一个覆盖方案中，k=2，相同的3各数字构成一个纸片。     下面给出的程序使用分治法设计的，将棋盘一分为四，依次处理左上角、右上角、左下角、右下角，递归进行。请将程序补充完整。 Program j402; type arr1=array[1..65] of integer;     arr2=array[1..65] of arr1; var board:arr2; tile:integer; size,dr,dc:integer; procedure chessboard(tr,tc:integer; dr,dc:integer; var size:integer); var t,s:integer; begin     if (size=1) then  ;     t:=tile; inc(tile);     s:=size div 2;     if  then chessboard(tr,tc,dr,dc,s) else begin         board[tr+s-1]:=t; ; end; if (dr<tr+s) and (dc>=tc+s) then chessboard(tr,tc+s,dr,dc,s)     else begin board[tr+s-1][tc+s]:=t;      ; end; if (dr>=tr+s) and (dc<tc+s) then chessboard(tr+s,tc+s,dr,dc,s) else begin     board[tr+s][tc+s]:=t;      ; end; if (dr>=tr+s) and (dc>=tc+s) then chessboard(tr+s,tc+s,dr,dc,s) else begin board[tr+s][tc+s]:=t; ; end; end; procedure prt1(n:integer); var I,j:integer; begin     for I:=1 to n do begin     for j:=1 to n do write(board[j]:3);     writeln; end; end; begin     writeln(‘input size(4/8/16/64):’);     readln(size); writeln(‘input the position of special block(x,y):’);     readln(dr,dc);    board[dr][dc]:=-1;     tile:=1;    chessboard(1,1,dr,dc,size); prt1(size); end. NOIP2007年普及组（Pascal语言）参考答案与评分标准 一、单项选择题：（每题1.5分） 题号    1    2    3    4    5    6    7    8    9    10 答案    D    D    C    B    B    B    B    C    C    A 题号    11    12    13    14    15    16    17    18    19    20 答案    C    A    A    A    B    D    C    D    A    A 二、问题求解：（每题 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<tr+s)and(dc<tc+s) ⑦ 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)]]> :=p; end; for i:=n [___5___] do write(gr); writeln; end. 2. 连续邮资 n 种邮票面值，最多贴m张。如何设计面值，使得能够贴出尽量大的maxv,使得{1,2,3,...,maxv}的都能贴出来。例如，n=5,m=4 则答案为{1,3,11,15,32}，可以maxv=70，就是1..70都能贴出来。 下面是这个程序，x[1..n]表示n中面值，且严格递增。bestx[1..n]存放最优解的x[1..n]。y[1..maxl]记录当前的x[1..i]能够贴出来的各种邮资所需最少张数。]]>