2014年宁波市第29届中小学生计算机程序设计竞赛小学组初赛试题
四．程序填空（前5空，每空2分，后6空，每空3分，共28分）
1.
问题描述：小明手头有一份红十字会的捐款名单，但是这份名单被外星人恶意破坏过，你的任务是帮助小明去恢复这份名单。由于外星人低估了你的智商，破坏的规则非常简单，先是将姓名和捐款金额联接到一行，再将这一行内容按顺序切成多行。 输入格式：有很多行，表示输入的字符串。
输出格式：输出共有多行，其中每一个人的信息一行，分别是姓名和金额，中间用空格隔开。
输入样例： zhangsa n890liu hua111 输出样例： zhangsan 890 liuhua 111
程序清单: var
s, t: ansistring; x, len, i: longint; flag: boolean; begin
s := ‘‘;
while not ⑴ do begin
readln(t); s := s + t; end;
len := length(s); t := ‘‘; x := 0; flag := false; for i := 1 to len do begin
if (s[i] <= ‘9’) and (s[i] >= ‘0’) then begin
x := ⑵ + ord(s[i]) – ord(‘0’); if flag = false then
⑶ ;
end else begin
if flag = true then begin
⑷ ; x := 0; t := ‘‘;
第6页 共8页
2014年宁波市第29届中小学生计算机程序设计竞赛小学组初赛试题
⑸ ; end;
t := t + s[i]; end; end;
writeln(t, ‘ ‘, x); end. 2.
问题描述：有一天小明来到一台神奇的取款机前，取款机可以无限提供某些特定面额的货币，小明想知道他要取出x元共存在几种不同的方案（取出顺序的不一样认为是相同的方案，具体以样例为准）。 输入格式：
第一行一个整数m，表示提供的货币种数。
第二行共m个用空格隔开的数字，表示其具体面额。 第三行一个整数x，表示需要取出的钱额。 输出格式：输出一个整数，表示方案数。 输入样例： 3
1 2 5 4
输出样例： 3
输出说明：
取出4元的3种方案分别为（2,2），（1,1,2），（1,1,1,1）。 程序清单： var
dp: array[ ⑹ ..10001] of longint; a: array[1..10] of longint; i, j, x, m:longint; begin
read(m);
for i := 1 to m do read(a[i]); ⑺ ;
fillchar(dp, sizeof(dp), 0); dp[0] := ⑻ ;
for i := 1 to m do for j := 0 to x do begin
if ⑼ then break;
if dp[j] = 0 then ⑽ ;
dp[j+a[i]] := dp[j+a[i]] + ⑾ ; end;
writeln(dp[x]); end.
第7页 共8页
2014年宁波市第29届中小学生计算机程序设计竞赛小学组初赛试题
一、选择题 A D D C D C A A D B C B D B D A A B C D
二、问题求解 【1】 25 【2】 7.6
三、程序阅读
【1】 not a leap year! 【2】 27 【3】 3021
【4】 0，0，0，1，4
四、程序填空 【1】 eof 【2】 x*10
【3】 flag:=true
【4】 writeln(t,' ',x) 【5】 flag:=false 【6】 0
【7】 readln(x) 【8】 1
【9】 j+a[i]>x 【10】 continue 【11】 dp[j]
第8页 共8页
宁波市第29届小学生计算机程序设计竞赛试卷及答案
