程序填专练(一)答案.docVIP

程序填空 这部分题目得分率很低。没关系，尽量做吧。实在不会把一些简单的填好就行了。有些题目即使不懂也能填出来：）比如：i:=i+1；i:=0； 注意经常问自己程序中有没有做下面的事： 1）初始化(i:=0; j:=0; for i:=1 to n do a[i]:=0之类的) 2）一些明显的动作： a.结果没有储存在需要的地方。 b.累加器没有做加法 c.输出 3)关键动作。 例如交换排序程序的“交换”操作等很明显需要完成的操作。 分析方法和写运行结果类似，注意分析变量和程序结构，理解变量和模块的作用是解题的关键。 不熟练是不妨用自然语言描述一下。 一般的解题步骤： 仔细阅读程序的目的和算法、数据结构的描述！ 千万不要一激动一紧张，题目都没看透彻！！！ 把程序中的变量和题目中数据结构描述结合起来，记住关键变量的作用！ 有时就能填出一些简单的空！！！不信？！！！ 结合问题的算法描述和要求及步骤，把程序划分成几段，每段完成指定的功能！ 千万不要忘记：这是完善程序，不是让你自己编！！！一定要不断地结合题意和程序。 逐步解决每段！ 注意不要因为个别空而影响你对整个程序的把握，不知道的，先空在那儿，把知道的填好，最后再收拾那些难点！！！ 注意一定要提醒自己：程序中有没有做那些最基本的事。 做完后，不要忘了把程序从前往后读两遍，看看是否完成了题目的任务；还要检查一些细节性的问题，如“”还是“=”，是n-i，还是n-i+1？ 下面举例给予说明。 1.基础题（算法、数据结构很清楚、很朴素，送分！） [程序的说明] 本程序对随机产生的100个0到50之间的随机数用一个数组存放后进行排序，然后再将其中重复出现的数进行删除，只保留一个，使得剩下的数中任何两个都不相同且连续存储在原数组中。 const maxn=100; type arraytype=array [1..maxn] of integer; var i,j,temp,current,tail:integer; a:arraytype; begin randomize; for i:=1 to maxn do a[i]:=random(51); for i:=1 to __ ① do for j:= _ ② _ to maxn do if a[i]a[j] then begin temp:=a[i];a[i]:=a[j];a[j]:=temp end; for i:=2 to maxn do if __ ③ __ then a[i]:=-a[i]; tail:=0;current:=1; while _____ ④ _____ do begin while a[current]0 do current:=current+1; tail:=tail+1; a[tail]:= __⑤__ ; current:=current+1 end; if ___⑥__ then begin tail:=tail+1; a[tail]:=0 end; for i:=1 to tail do write(a[i]:5); writeln end. [解答] 程序的思想已经不能再清楚了，因为要排序（很明显是冒泡排序），所以： ①maxn-1 ②i+1 那么如何删除呢？先分析一下变量的含义，current和tail分别表示队列的头尾指针。再看删的过程：好象是先做标记（置为负！），然后从队首current开始找第1个没被做标记（0）的数，把它放到当前队尾tail的下一个位置。所以： ③a[i]=abs(a[i-1]) ④(current=maxn) and (a[current]0) ⑤a[current] ⑥(a[tail]0) and (a[current]=0) 2.关键变量+特定的思想方法+灵感（1995年初中组2） 找出小于33的6个正整数，用这些整数进行加法运算，使得包括原来的整数在内能组成尽可能多的不同整数。 例如：用2，3，5这三个数能可组成下面的数： 2, 3, 5， 2 + 3 = 5（但5已经存在） 2 + 5 = 7, 3 + 5 = 8, 2 + 3 + 5 = 10 所以用2，3，5能组成6个不同的数。 程序要求：输出所选的这6个数，以及能组成不同