全国信息学奥林匹克联赛(NOIP2010)复赛_普及组_解题报告(pascal).docVIP

全国信息学奥林匹克联赛（NOIP2010）复赛 普及组 解题报告 1．数字统计 (two.pas/c/cpp) 【问题描述】 请统计某个给定范围[L, R]的所有整数中，数字2 出现的次数。 比如给定范围[2, 22]，数字2 在数2 中出现了1 次，在数12 中出现1 次，在数20 中出现1 次，在数21 中出现1 次，在数22 中出现2 次，所以数字2 在该范围内一共出现了6次。 【算法思路】 枚举法，依次将L至R转化为字符串，查找当中有多少个”2”. 【程序代码】 program two; var l,r:1..10000; i,j,h,c:longint; s:string; begin assign(input,two.in); assign(output,two.out); reset(input); rewrite(output); readln(l,r); c:=0; for i:=l to r do begin str(i,s); h:=length(s); for j:=1 to h do if s[j]=2 then c:=c+1; end; writeln(c); close(input); close(output); end. 2．接水问题 (water.pas/c/cpp) 【问题描述】 学校里有一个水房，水房里一共装有m 个龙头可供同学们打开水，每个龙头每秒钟的供水量相等，均为1。 现在有n 名同学准备接水，他们的初始接水顺序已经确定。将这些同学按接水顺序从1到n 编号，i 号同学的接水量为wi。接水开始时，1 到m 号同学各占一个水龙头，并同时打开水龙头接水。当其中某名同学j 完成其接水量要求wj 后，下一名排队等候接水的同学k马上接替j 同学的位置开始接水。这个换人的过程是瞬间完成的，且没有任何水的浪费。即j 同学第x 秒结束时完成接水，则k 同学第x+1 秒立刻开始接水。若当前接水人数n’不足m，则只有n’个龙头供水，其它m?n’个龙头关闭。 现在给出n 名同学的接水量，按照上述接水规则，问所有同学都接完水需要多少秒。 【算法思路】 纯粹模拟，用repeat-until循环。 【程序代码】 program water; var n,m,i,r,min,j:longint; f:boolean; w:array[1..20000]of integer; begin assign(input,water.in); assign(output,water.out); reset(input); rewrite(output); readln(n,m); for i:=1 to n do read(w[i]); r:=m; repeat min:=min+1; for j:=1 to m do begin if w[j]0 then dec(w[j]); if (w[j]=0)and(rn) then begin inc(r); w[j]:=w[r]; end; end; f:=true; for j:=1 to m do if w[j]0 then f:=false; until f and (r=n); writeln(min); close(input); close(output); end. 3．导弹拦截 (missile.pas/c/cpp) 【问题描述】 经过11 年的韬光养晦，某国研发出了一种新的导弹拦截系统，凡是与它的距离不超过其工作半径的导弹都能够被它成功拦截。当工作半径为0 时，则能够拦截与它位置恰好相同的导弹。但该导弹拦截系统也存在这样的缺陷：每套系统每天只能设定一次工作半径。而当天的使用代价，就是所有系统工作半径的平方和。 某天，雷达捕捉到敌国的导弹来袭。由于该系统尚处于试验阶段，所以只有两套系统投 入工作。如果现在的要求是拦截所有的导弹，请计算这一天的最小使用代价。 【算法思路】 循环每个导弹到两个系统的距离。哪个距离近，则用哪个系统去拦截。最后统计出两个系统距所要拦截的最远距离导弹的平方和。（虽然只有70分） 【程序代码】 program missile; var x1,x2,y1,y2:inte