j:=j+i; end; end;
for i:=1 to n do
if a[i]=true then write('0',' ')
else write('1',' '); end. 输入:8
输出:
4.program test4;
vara,b:array[1..1000] of integer; i,j,t,h,n,e:integer; begin
readln(n);
for i:=1 to n do a[i]:=i; a[1]:=1;h:=2;t:=n;b[1]:=1;e:=n; for i:=2 to n do begin
for j:=1 to 2 do begin
if h=e+1 then begin
e:=e-i+1; break end; inc(t); a[t]:=a[h]; inc(h); end;
b[a[h]]:=i;inc(h); end;
for i:=1 to n do write(b[i],' '); end.
输入:10
输出:
四.程序填空(前5空每空2分,后6空每空3分,共28分)
神舟九号飞船(以下简称神九)(计划发射中)是一艘载人宇宙飞船,是中国“神舟”号系列飞船之一。担负此次任务的飞行乘组将由3名航天员组成。神舟九号是中国的第一个宇宙实验室项目921-2计划的组成部分。根据任务计划,神舟九号飞船将于今年6月至8月择机发射,与在轨运行的天宫一号目标飞行器进行载人交会对接。航天员将进入天宫一号工作和生活,开展相关空间科学实验,在完成预定任务后返回地面。对接过程中,将实现航天员手控交会对接,全面验证交会对接技术。 神舟九号主要有以下职能:
第一, 用做货运飞船。用于搭载水,食物,推进剂和试验设备。 第二, 用做紧急逃生飞船(救生船)。 第三, 进行载人空间对接。
神舟九号将搭载大量的物品进入太空进行空间实验,其中有两大问题需要同学们帮忙解决。
1.【物品身份识别】
为了提高装载物品的效率与准确性,科学家们采用了人工智能装载技术——机器通过对物品上的条码扫描来确定物品的身份,然后来确定是否需要装载。为了确保读入条码的无误,在条码后面增设了一位作为校验位。通过一系列计算之后若计算结果与末尾校验位上的数值相同即为读入条码准确,反之重读。 校验位计算公式方法如下:
(1)代码位置序号
代码位置序号是指包括校验码在内的,由右至左的顺序号(校验码的代码位置序号为1)。
(2)计算步骤
校验码的计算步骤如下:
a、从代码位置序号2开始,所有偶数位上的数字代码求和。 b、将步骤a的和乘以3。
c、从代码位置序号3开始,所有奇数位的数字代码求和。 d、将步骤b与步骤c的结果相加。
e、用大于或等于步骤d所得结果且为10的最小整数倍的数减去步骤d所得结果即为所求校验码的值。
步 骤 举例说明(其中的x表示校验位数字)
(1)自右向左顺序编号 位置序号 13 12 11 10 9 8 7 6 5 4 3 2 1
代
码 9 7 8 7 5 6 4 0 0 1 4 5 X
(2)从序号2开始求出偶数位数字之和 5+1+0+6+7+7=26 ①
(3)①式中的结果26乘以3 26×3=78 ②
(4)从序号3开始求出奇数位数字之和 4+0+4+5+8+9=30 ③
(5)将②式和③式中的结果相加 78+30=108 ④
(6)用大于或等于④式中108且为10最小整数倍的数减去④式结果。即:110-108=2,其差即为所求校验码的值 校验码X=2
输入说明,输入13个数,为商品扫描器读入值,中间用空格隔开。 输出说明,第一行包含一个整数,表示校验位计算值。第二行输出true或false,表示商品扫描器读入是否正确。 【输入样例1】
9 7 8 7 5 6 4 0 0 1 4 5 2 【输出样例1】 2 true
【输入样例2】
9 7 8 7 5 6 4 0 0 1 4 5 3 【输出样例2】 2 false
请按上述说明将下列程序补充完整。 var d:array[1..13] of 0..9; i,s:integer; begin
for i:=13 downto 1 do read(d[i]); readln;
for ① do
if i mod 2=0 then s:=② ; s:= ③ ;
for i:=3 to 13 do if ④ then s:=s+d[i]; s:=s mod 10;
if s<>0 then s:=10-s; writeln(s);
if ⑤ then write('true') else write('false'); end.
2.【物品选择】
神舟九号将搭载三名航天员进入天宫一号进行为期十几天的空间科学实验和生活,这在我国航天史上是前所未有的。它需要搭载水,食物,推进剂和试验设备等进入太空。由于火箭燃料费用很高,飞船的空间与载重能力又有限。所以科学家必须选择最有必要带入太空进行本次试验的物品进行装载。科学家通过一段时间的研究分析,对带入太空的物品测定了三个参数:体积V、重量W、必要度K。如甲物品必要度为50,乙物品的必要度为30,那么火箭搭载甲、乙物品所取得的必要度为80。现在科学家需要设计一个程序,在给定飞船所能搭载物品最大体积与最大重量的情况下,选择合适的物品进行搭载以取得最大搭载必要度总和。(注:物品不能进行分割。所搭载物品体积之和、重量之和分别不能超过飞船所能搭载物品最大体积与最大重量)
输入说明,第一行包含两个数,依次表示飞船所能搭载物品的最大体积和最大载重量,第二行包含一个整数,表示可供选择的物品数量N(不超过99),第三行至第2+N行每行三个整数,依次表示每个物品的体积(<50000)、重量(<50000) 和必要度(<50000)。 输出说明,包含一个整数,表示所能达到的最大必要度总和。 【样例输入】 320 350 4
160 40 120 80 110 240 220 70 310 40 400 220 【样例输出】
550
请按上述说明将下列程序补充完整。
var
i,j,n:integer;
tw,tv,maxk,temp_v,temp_w,temp_k:real; b,temp:array[1..100]of integer; v,w,k:array[1..100]of real;
begin
readln(tv,tw); ① ;
for i:=1 to n do readln(v[i],w[i],k[i]); maxk:=0;
for i:=1 to 100 do b[i]:=0; while ② do
begin i:=1;
while b[i]=1 do inc(i); b[i]:=1;
for ③ do b[j]:=0;
temp_v:=0;temp_w:=0; ④ ; for j:=1 to n do if ⑤ then
begin
temp_w:=temp_w+w[j]; temp_v:=temp_v+v[j]; temp_k:=temp_k+k[j] end;
if (temp_v
⑥ ; for j:=1 to n do temp[j]:=b[j]; end;
end;
writeln(maxk:0:0); end.
宁波市第27届中小学生程序设计竞赛答案
小学组 初赛试题
一.选择题(每题2分,共30分。每小题只有唯一一个正确答案)
题号 选择 题号 1 B 9 2 C 10 3 B 11 4 D 12 5 B 13 6 C 14 7 B 15 8 C
百度搜索“77cn”或“免费范文网”即可找到本站免费阅读全部范文。收藏本站方便下次阅读,免费范文网,提供经典小说教育文库2012年宁波小学生程序设计竞赛试卷(2)在线全文阅读。
相关推荐: