程序设计答题分析12Word格式文档下载.doc

1、For i:=1 to n do For j:=1 to i do S:=s+（2*j-1）;Weite（s）; End.3. 李先生和他的孙子同出生于20世纪, 他的孙子与他的年龄之差为60岁,李先生和他的孙子出生年份被3,4,5,6除, 余数分别为1,2,3,4，编程求出李先生和他的孙子各出生在哪一年。这个题用穷举法就太累了。分析一下，一个数字被5除余3的话，这个数的个位数只能是3和8，被6除余4的话，个位数是4、8、2、6、0，这两者同时满足，这个年份的个位数只能是8。只要从1908、1918、1928、1938，这四个数中找一个满足条件同时加60后也满足条件的就行了。 4. 狼追兔子，

2、兔子躲进了10个环形分布的洞的某一个中。狼在第1个洞中没有找到兔子，就间隔1个洞，到第3个洞中去找，也没找到兔子，就间隔2个洞，到第6个洞中去找。以后狼每次多隔1个洞去找兔子，。这样狼找了1000次也找不到兔子。请问兔子可能躲在哪个洞中？该题看似简单，只要每次把狼找过的洞删除就行了，但是，这种删除操作的结束状态（条件）是什么呢？而且，狼的搜索过程中，如果要间隔11个洞时，我们是否可以认为就是间隔1个洞？实际上，第一个问题应该是当狼回到第1个洞，并且又上间隔1个洞去找兔子时，就应该结束删除操作，因为此后的搜索是重复以前的搜索了，此时，那些没有被删除过的洞就是答案。这里，大家一定不能想当然地认为：

3、结束条件就是只剩下一个洞的时候！题目中并没有说明只有一个答案，事实上是有四个洞的！第二个问题也是可行的。因为只有10个洞，间隔11个洞和间隔1个洞的作用是相同的。var d:array1.10 of integer; i,j,k,l:begin for i:=1 to 10 do di:=1; i: j: repeat di:=0; j:=j+1; if j10 then j:=j-10; i:=i+j; if i10 then i:=i-10; until （i=1） and （j=1）;=1 to 10 do if di0 then write（i）;end.初中1从键盘输入一个小于100

4、0的正整数, 若此数的各位数字之和能被7整除, 则输出这个数。此题简单，但重点在“被”字上，对输入的数分解出个、十、百位上的数字，相加后得出的和被7整除。参考程序program p1;var n,m,k:readln（k）;m:while n0 do=m+n mod 10;n:=n div 10;end;if m mod 7=0 then writeln（k）;2. 键盘输入N，求N！末尾有多少个连续的零。其中N!=123N（1=N=1000）。算法一：从1乘到n，每乘一个数判断一次，若后面有0则去掉后面的0，并记下0的个数。为了不超出数的表示范围，去掉与生成0无关的数，只保留有效位数，当乘完

5、n次后就得到0的个数。（pascal程序如下）var i,t,n,sum:longint; t: sum:readln（n）; for i: begin sum:=sum*i; while sum mod 10=0 do begin sum:=sum div 10; inc（t）;计数器增加1 end;=sum mod 1000;舍去与生成0无关的数 end; writeln（t:6）;算法二：此题中生成O的个数只与含5的个数有关，n！的分解数中含5的个数就等于末尾O的个数，因此问题转化为直接求n！的分解数中含5的个数。var t,n:begin readln（n）; repeat n:=n

6、div 5 ; inc（t,n）; 计数器增加n until n5;分析对比两种算法就不难看出，它们的时间复杂度分别为O（N）、O（logN）,算法二的执行时间远远小于算法一的执行时间。在信息学奥赛中，其主要任务就是设计一个有效的算法，去求解所给出的问题。如果仅仅学会一种程序设计语言，而没学过算法的选手在比赛中是不会取得好的成绩的，选手水平的高低在于能否设计出好的算法。3. 有1至8号共8个球，其中某一个为次品，仅重量不同（可轻可重）。编程，在以天平为工具，通过测重量用最少的次数挑出次品，并确定它是轻是重。 提示：可以用下面表示的比较方法来设计程序：b1+b2+b3 ? b4+b5+b6=b1

7、?b2 b3?b1 b2?b1 b7?b1 b8?bl bl?b2 b1?b3 b2?b1= = = =是是是是是是是是是是是是是是是是b1b5b6b3b2b4b7b8b7b8b2b4b3b6blb5重轻轻重重轻重轻轻重轻重轻重轻重参考考生程序program p3;var cpcode:-8.8;cpweight,zpweight,i:wt:array1.8 of integer;function finddiff（a,b,c:integer）:if a=b thenif a=c then finddiff:=0else if ac then finddiff:=-3 else finddif

8、f:=3elseif ab thenif b=c then finddiff:=1 else finddiff:=-2=-1 else finddiff:=2;write（cipin hao:）;readln（cpcode）;cipin zhong:readln（cpweight）;zhengpinzhong:readln（zpweight）;for i:=1 to 8 doif i=cpcode then wti:=cpweight else wti:=zpweight;if wt1+wt2+wt30 then cpcode:=3+finddiff（wt4,wt5,wt6）else cpco

9、de:=-3-finddiff（wt4,wt5,wt6）=finddiff（wt1,wt2,wt3）;endif wt7wt8 then if wt7wt1 then cpcode:=7 else cpcode:=-8else if wt7=wt1 then cpcode:=8 else cpcode:=-7;writeln（abs（cpcode）;Cipin: if cpcode0 then writeln（QING） else writeln（ZHONG4. 任意一个自然数，我们可以将其平均截取成三个自然数。例如135768，可以截取成13,57,68。如果某自然数不能平均截取（位数不能被3整除），可将该自然数高位补零后截取。如4128，可在高位补零后成为004128，平均截取成00，41，28三个数。编程从键盘上输入一个自然数N（N的位数12），计算截取后第一个数加第三个数减第二个数的结果。此题难点数据类型上，限定小于12位的自然数已超出长整数的范围，可以转成字符串来运行。 program p4;sting12; I,m,code,a: Readln（n）;Case length（n） mod 3 of2: n:0+0;1: n :=00+n;End;Val（copy（n,length（n） div 3）,m,code）;A:=m;Val（copy（nl