完善程序训练1.docVIP

完善程序训练——第一组 第1题 [问题描述] 求出所有满足列条件的二位数：将此二位数的个位数字与十位数字进行交换，可得到一个新的数，要求新数与原数之和小于100。 程序要求：每行输出6个满足要求的数。 [算法说明] 分解每一个二位数，然后重新组成一个新数，当满足条件时，用计数器来统计个数。 [程序清单] begin k:=0； for i:=_____①____ to 99 do begin x:=____②____; y:=____③____; j:=x*10+y; if ____④____ then begin k:=k+1; write(1:4); ____⑤____ then writeln; end end end． 第2题 [问题描述] 找出小于33的6个正整数，用这些整数进行加法运算，使得包括原来的整数在内能组成尽可能多的不同整数。 例如：用2，3，5这3个数能组成下面的数 2，3，5 2+3=5, 5已经存在 2+5=7， 3+5=8， 2+3+5=10 所以用2，3，5能组成6个不同的数。 程序要求：输出所选的这6个数，以及能组成不同整数的个数。 [算法说明] 选择的这6个数，用来组成数时应该尽可能不重复，引入数组a保存找出的这6个数。 [程序清单] begin a[1]:=1；t:=0； for i:=2 to 6 do begin ____①____； for j:=1 to i-1 do s:=____②____； a[i]:=____③____； end； for i:=1 tO 6 dO begin t:=____④____； write(a[i]，) end； writeln(能组成不同整数的个数：，t) end． 第3题 [问题描述] 求出2—1000之间长度最长的、成等差数列的素数(质数)。 例如：在2-50之间的全部素数有 2，3，5，7，11，13，17，19，23，29，3l，37，4l，43，47 其中公差为1的素数数列为2，3，其长度为2 公差为2的素数数列为3，5，7，其长度为3 程序要求：输出满足条件的素数数列。 [算法说明] 首先用筛选法求出此范围内的全部素数，存放在数组b中，然后用2个变量i，j， 逐步求出满足条件的素数数列。 [程序清单] begin max:=0；num:=1000； for i:=2 to num do b[i]:=i； for i:=2 to ____①____ do if ____②____ then begin k:=i+i； while k = num do begin b[k]:=0； k:=k+i end end； for i:=2 to num-1 do if ____③____ then begin j:=1； d[j]:=b[i]； for i1:=____④____ do if b[i1]0 then begin delta:=____⑤____； k:=delta； while (i+k = num) and ____⑥____ do begin j:=j+1； d[j]:=i+k； k:=k+delta end； if j max then begin max:=j； c:=d {数组d的值赋给数组c} end； j:=1 end end； writeln(The max length is:，max)； write(The string is：)； for i:=1 to max do write(c[i]，)； writeln end．  第4题参考图第4题 [问题描述] 求出二个整形数组错位相加的最大