【www.myl5520.com--教学设计】
小学生计算机程序设计初赛试题9.3
篇一:小学生编程初赛试题及答案
小学生计算机程序设计初赛试题
（说明：答案请写在答题卷上。考试时间90分钟，满分120分）
一、选择题(每小题2分，共40分)
下列各题A、B、C、D四个选项中，只有一个选项是正确的，请将正确选项写在答题卷相应位置上，答在试卷上不得分。
1、一个完整的计算机系统应包括____。
A 主机，键盘和显示器 B 计算机及其外部设备
C 系统硬件和系统软件 D 硬件系统和软件系统
2、十进制数2005转换为二进制，结果是（ ）。
A、11111010101 B、11000101101 C、11111001011 D、10111010101
3、下列电子邮件地址，正确的是( )。
A john@hotmail.com B cai@jcc.pc.tool@rf.edu.jp
C 162.105.111.22 D 表示的网站类别应是（ ）。
A、教育机构 B、军事部门 C、商业组织 D、非营利组织
10、计算机的硬件系统包括（ ）。
A、运算器、控制器、存储器、输入设备、输出设备
B、控制器、运算器、输入和输出设备
C、中央处理器、输入和输出设备
D、主机和键盘、显示器
11、算法是指（ ）
A、为解决问题而编制的计算机程序
B、为解决问题而采取的方法与步骤
C、为解决问题需要而采用的计算机编程语言
D、为解决问题而采用的计算方法
12、Internet上访问Web信息时用的工具是浏览器。目前常用的Web浏览器之一是（ ）。
A、Internet Explorer B、Outlook Express
C、Google D、Flash
13、小明打算向在远北京工作的叔叔发送电子邮件，下面的说法中，正确的是（）
A、小明叔叔的电脑必须开机，否则接收不到小明的电子邮件
B、小明可以将自己最近的一张照片以附件的形式发送给叔叔
C、只有小明的电脑与互联网保持连接状态，才能书写邮件内容
D、小明不能把祝福的邮件同时发送给他远在天津读书的小阿姨
14、某种计算机的内存容量是640K，这里的640K容量是指（）个字节
A、640 B、640*1000 C、640*1024 D、 640*1024*1024
15、以下有关操作系统的叙述中，哪一个是错误的（ ）
A、操作系统管理着系统中的各种资源
B、操作系统应为用户提供良好的界面
C、操作系统是资源的管理者和仲裁者
D、操作系统是计算机系统中的一个应用软件
16、下列四项中，合法的IP地址是 ( )
A、190．220．5 B、206．53．3．78
C、206．53．312．78 D、123，43，82，220
17、目前世界上最大的计算机互联网络是（ ）
A、ARPA网 B、IBM网 C、INTERNET D、 INK.ET
18、下列计算机语言中，CPU能直接识别的是（ ）。
A、自然语言 B、高级语言 C、汇编语言 D、机器语言
19、设A1=ture,A2=False,A3=True表达式A1 OR A2 ANDA3的值为______。
A、FALSE B、TRUE C、0 D、1
20、有下列程序：
for i=7 to 90 step 5
print i;
next i
共执行循环次数是（ ）。
A、14 B、15 C、16 D、17
二、读程序 (每空6 分，共30分)
请阅读下列各题程序，并将程序的正确运行结果写在答题卷相应位置上，答在试卷上不得分。
1、var a,b,c,d,e:integer;
begin
a:=79 ; b:=34; c:=57;d:=0 ; e:=-1;
if (a<c) or (b>c) then d:=d+e
else if (d+10<e) then d:=e+10
else d:=e-a;
writeln(d);
end.
程序运行结果：
2、 var i,j:integer;
str1,str2:string;
begin
str1:='pig-is-stupid';
str2:='clever';
str1[1]:='d'; str1[2]:='o';
i:=8;
for j:=1 to 6 do begin
str1[i]:=str2[j];inc(i);
end;
writeln(str1);
end.
程序运行结果：
3、 var m,n:integer;
begin
m:=18;
n:=81;
while m<>n do
begin
while m>n do
m:=m–n;
while n>m do
n:=n–m;
end;
writeln(m);
end
程序运行结果：
4、下列程序用来求sum=1+1/1*2+1/2*3+...+1/a(n+1),
直到累加到第30项为止,
试选择正确一项填入空格处______。
program sum(output);
var s,a:real;
n:integer;
begin
s:=1.0;n:=0
repeat
( 1 );
a:=1/( 2 );
s:s+a
until n=29;
wrileln('n=',n:2;s=',s:6:3)
end.
程序运行结果：
三、程序填空(每空5分，共30分)
请阅读下列各题的题意及程序，并将程序的空缺部分填空完善，填空的内容写在答题卷相应位置上，答在试卷上不得分。
1 函数FN使用递归方法求1+2+3+……+N。
其返回值为：当N〈1，则返回0；
当N〉=1，则返回1+2+3+。。。+N的值。
请填空完成它
function fn(n：integer)：integer；
begin
if n〈1 then
fn：=0
else
if n=1 then
fn：=____ 1 __ ;
else
fn：=fn( ______ 2 )+n;
end；
2 孪生素数是指两个相差为2的素数，例如：3和5，5和7，11和13等。 下面的程序可输15对孪生素数，其中函F判断整数A是否为素数。 program p(output)；
var
k，n：integer；
function f(a：integer)：boolean；
var
k：integer；
flag：boolean；
begin
flag：=__3________；
k：=2；
while(k〈=a div 2〉 and____4____do
if a mod k=0 then
______5______
else
k：=k+1;
f：=flag;
end；
begin
n：=0；
k：=2；
repeat
if f(k)and _____6____ then
begin
n：=n+1；
writeln(k，k+2)
end；
宁波市第25届小学生计算机程序设计竞赛试题及答案
篇二:小学生编程初赛试题及答案
宁波市第25届中小学生程序设计竞赛
小学组初赛试题
一、选择题（每题2分,共30分。每小题只有唯一一个正确答案）
1、在宁波市中小学生程序设计比赛复赛（上机编程）时，以下不能使用的编程语言是：
（A）Turbo Pascal （B）Free Pascal （C）C （D）C++
2、在Free Pascal中按功能键F7或F4时，以下叙述正确的是：
（A）F4逐条语句执行（包括子程序），F7运行至光标位置
（B）F7逐条语句执行（包括子程序），F4运行至光标位置
（C）F4逐条语句执行（不包括子程序），F7运行至光标位置
（D）F7逐条语句执行（不包括子程序），F4运行至光标位置
3、使用高级语言编写的程序称之为：
（A）源程序 （B）编辑程序 （C）编译程序 （D）链接程序
4、如果自己的程序进入了死循环，应当按什么键终止？
（A）Ctrl+C （B）Ctrl+D （C）Alt+C （D）Alt+D
5、参加宁波市中小学生程序设计比赛复赛（上机编程）时，以下哪种行为是允许的？
（A）访问互联网或局域网 （B）使用U盘或光盘
（C）使用自带的草稿纸 （D）考试时发现机器有问题，举手示意监考人员处理
6、参加宁波市中小学生程序设计比赛复赛（上机编程）时，你有一个程序被判0分。你发现程序其实是正确的，但存在以下问题，提出申诉，以下哪个申诉会被接受？
（A）源程序文件名和存放源程序的目录名错误
（B）只是存放源程序的目录名错误，源程序文件名是正确的
（C）存放源程序的目录名正确，源程序文件名是错误的
（D）根据比赛规则，以上申斥都不会被接受
7、在Free Pascal语言，以下关于各种数据类型占内存空间大小的描述错误的是：
（A）每个intege型占2个字节 （B）每个longint型占4个字节
（C）每个boolean型占2个字节 （D）每个extended型占10个字节
8、关键码相同的二个元素，原来在排在前面的还能保证排在前面,这种排序算法我们称它是稳定的。冒泡排序、选择排序、插入排序中,一般意义上是稳定的有几种：
（A）1 （B）2 （C）3 （D）0
9、在Free Pascal中编辑当前源程序时，可以使用快捷键Ctrl+F7增加调试程序时监视的变量，但如果不小心错按为Ctrl+F6时，会将当前源程序窗口隐藏起来。此时，可以使用菜单命令“Windows/List”调出Windows List对话框，在该对话框中选中隐藏的当前正在编辑的源程序，然后按下面哪个命令按钮可以显示当前正在编辑的源程序？
（A）Ok （B）Not Hide （C）Show （D）Delete
10、结构化程序设计的三种基本控制结构为顺序结构、选择结构和循环结构，以下说法正确的是：
（A）三种结构都是基本结构，内部不能再有其它结构
（B）三种结构都是基本结构，内部除了允许嵌套同一种结构外，不能再有其它结构
（C）选择结构和循环结构内部可以嵌套有其它结构，顺序结构不可以嵌套其它结构
（D）三种结构内部都可以嵌套其它结构
11、以下属于计算机的基本指令的是：
（A）数值和逻辑运算指令 （B）存储和输入输出指令（C）控制和转移指令 （D）以上都是
12、以下属于汉字输出时使用的编码的是：
（A）国标码 （B）区位码 （C）字形码 （D）五笔字形
13、以下存储介质中，一般说来存取速度最快的是：
（A）硬盘 （B）内存 （C）U盘 （D）光盘
14、以下主要用来网页制作的是：
（A）BASIC （B）Pascal （C）FrontPage （D）HTML
15、标准ASCII码最多能表示的字符个数是：
（A）128 （B）64 （C）256 （D）8
二．问题求解（每题5分，共10分）
1、一副扑克牌除去大小王外，有52张牌。其中有黑桃（Spade）、红心（Heart）、方块(Diamond)、梅花(Club)四种花色，每种花色点数从小到大各有13张，它们是：2、3、4、5、6、7、8、9、10、J、Q、K。
在上述52张中任取5张，取得炸弹（four of a kind,即四张点数相同的牌加一张另外点数的牌）的取法数有13*48=624种；取得辅鲁(full house,即三张点数相同另加二张点数相同牌)的取法数有多少种？请注意，二种取法中，只要有一张牌花色不同或点数不同，这二种取法就是不同的。
2、有若干堆硬币，甲乙二人参加游戏，游戏规则如下：
（1）由甲开始，二人轮流取硬币，每次取时只能从某一堆中取若干个硬币，可以把该堆硬币全部取完，最少可以只取一个硬币，但不能不取硬币。
（2）最后取完最后一个硬币的人为胜者。
比如一开始有二堆硬币，第一堆1枚，第二堆2枚，有几种取法：
（1）甲取第一堆1枚，乙取第二堆1枚，甲取第二堆1枚，甲获胜！
（2）甲取第一堆1枚，乙取第二堆2枚，乙获胜！
（3）甲取第二堆1枚，乙取第一堆1枚，甲取第二堆1枚，甲获胜！
（4）甲取第二堆1枚，乙取第二堆1枚，甲取第一堆1枚，甲获胜！
（5）甲取第二堆2枚，乙取第一堆1枚，乙获胜！
显然，当甲先取第二堆1枚时，甲能获胜！当甲采取其它取法时，当乙取对时，甲会失败的。但如果一开始二堆硬币数都为2枚，则甲无论在哪一堆中取多少个，乙可以在另外一堆中取同样多个，乙获胜，甲失败。
现在有三堆硬币，第1堆有2枚硬币，第2堆有4枚硬币，第3堆有5枚硬币。问甲先取，在大家都使用最佳方法的情况下，甲能否获胜？如果甲能获胜，请写出第一次在第几堆取多少枚硬币才能获胜？如果不能获胜，则只要写上“No”。
三．阅读程序，求程序运行输出结果(每题8分，共32分) 第1题：
program xx2010_1;
var i,j,s:longint;prime:boolean;
begin
for i:=2 to 20 do begin
prime:=true;
for j:=2 to i-1 do
if i mod j=0 then begin
prime:=false;
break;
end;
if prime then s:=s+1;
end;
writeln(s);
end.
第2题： 【输出】：______________
Program xx2010_2;
var a,b,c,d,n,i,j:longint;find:boolean;
f:array[0..9]of longint;
begin
f[0]:=2;f[1]:=3;f[2]:=5;f[3]:=7;f[4]:=11;
f[5]:=13;f[6]:=17;f[7]:=19;f[8]:=23;f[9]:=29;
readln(a,b,c,d);
n:=10;
a:=((f[a]*f[b]-f[c]*f[d]) mod n+n) mod n;
b:=((f[b]* f[c]-f[d]* f[a]) mod n+n) mod n;
c:=((f[c]* f[d]-f[a]* f[b]) mod n+n) mod n;
d:=((f[d]* f[a]-f[b]* f[c]) mod n+n) mod n;
writeln(a,' ',b,' ',c,' ',d); end.
【输入】：2 3 5 7 【输出】：______________
第3题：
Program xx2010_3;
var a:array[1..30]of longint;
s,n,i,x,y,z:longint;c:char;
begin
readln(x,y);
readln(z);
n:=0;
while z>0 do begin
n:=n+1;a[n]:=z mod 10;z:=z div 10;
end;
s:=0;
for i:=n downto 1 do s:=s*x+a[i];
writeln(s);
n:=0;
while s>0 do begin
n:=n+1;a[n]:=s mod y;s:=s div y;
end;
for i:=n downto 1 do write(a[i]);
writeln;
第4
题：
Program xx2010_4;
var f:array[1..46]of longint;
a:array[1..100]of longint;
x,y,z,i,j,n,count:longint;
function find(i,h,x:longint):longint;
var m:longint;
begin
if i<3 then find:=0
else begin
m:=h+f[i-1]-1;
count:=count+1;
if x=a[m] then find:=m
else if x<a[m] then find:=find(i-1,h,x)
else find:=find(i-2,m+1,x);
end;
end;
begin
f[1]:=1;f[2]:=1;
for i:=3 to 46 do f[i]:=f[i-1]+f[i-2];
readln(n,x,y);
for i:=1 to n do a[i]:=3*i-1;
i:=1;
while f[i]-1<n do inc(i);
for j:=n+1 to f[i]-1 do a[j]:=maxlongint;
count:=0;j:=find(i,1,x);
writeln(j,' ',count);
count:=0;j:=find(i,1,y);
writeln(j,' ',count);
end.
四．程序填空(第1题每空2
分，第2题每空3分，共28分)
1、人数统计
有二幢高楼，已知：
（1）第一幢高楼的各层上男性人数与第二幢高楼的同一层上的男性人数的差；
（2）第一幢高楼的各层上女性人数与第二幢高楼的同一层上的女性人数的差； 求第一幢高楼的各层上总人数与第二幢高楼的同一层上的总人数的差；
输入：第1行二个整数n1和n2。
第2行至第n1+1行，每行二个整数a1和b1。表示第b1层男性人数的差额为a1。
第n1+2行至第n1+n2+1行，每行二个整数a2和b2。表示第b2层女性人数的差额为a2。
输出：每行二个整数a和b，表示第b层总人数的差额为a。
请注意：
（1）输入时，如果某一层上二幢楼均没有男性（或女性），则不输入该层的差额情况
（2）输出时，如果某一层上二幢楼均没有人，则不输出该层的差额情况
（3）输入和输出时，均按照层数递增的次序。
请将程序补充完整。
宁波市第31届小学生计算机程序设计初赛试题
篇三:小学生编程初赛试题及答案
宁波市第31届小学生计算机程序设计初赛试题
— . 选择题（每題 1 . 5 分，共3 0分。每小题只有唯一个正确答案）
1. 一个 16 位整型变量占用（）个字节
A.1
B.2
C.4
D.8
2. 表达式 29 div 5 mod 2 + trunk（3．78）的值是（）
A.33
B.32
C.4
D.5
3. 字母信息在计算机中最终是以数值的形式存储的，ascii码统一规定了常用符号用哪些数值来表示，例如字母‘Z'的ascii码是十进制的 90，字母‘L’的ascii码是十进制（），
A. 108
B.90
C.76
D.75
4.下列选顶中不属于音频文件格式的是（）
A.wav 格式
B.mp3 格式
C.avi 格式
D.flac格式
5. 如主存容量为 32M 字节，且按字节编址，表示该主存地址至少应需要（）位
A.16
B.20
C.2
D.32
6. 如果一棵二叉树的前序遍历是 ABDEFC.中序遍历是 DEBFAC,那么它的后序遍历是 ()
A.ABCDFE
B.CAFBED
C.EDFBCA
D.DEFBCA
7. 表达式 a*(b+c)-d 的后缀表达式是（）
A.abcd*+-
B.abc+*d-
C.abc*+d-
D. -+*abcd
8. 计算机所能辨认的最小信息单位是（）
A.字节
B.位
C.字符串
D.（K）
9. 对于下图，至少要减掉（）条边，使之存在一条路径，经过图中每条边一次且仅一次
A.0
B.1
C.2
D.3
10. NFC 是近距离无线通讯技术，此项可以用在手机上，以下（）不属于此技术在手机上的应用实例
A.手机登录wifi刷微信
B.手机机场登机验证
C.手机充当大厦的门禁钥匙
D.手机公交刷卡
11. 己知有abcdef六个整型变量，大小关系如下： a>b,a>c,a>d,b>f,b>c,f>d,d>c,f>e,d>e,c>e 根据以上大小关系，请分折六个整型变量第 3 大的是（）
A.a
B.b
C.d
D.f
12. 一片容量为 16GB 的 SD 卡能存储大约（）张大小为 2MB 的码照片。
A.2000
B.4000
C. 8000
D.16000
13.下列哪个不属于物联网的应用实例( )
A.电脑实时显示快递车辆运动轨迹
B.苹果手机小偷刷机时警察定位并抓荻
C.远监控工地施工
D.实况足球里的角色具备 c 罗、梅西的个人能力
14. 互联网其中一大优势就是可以共享资源，以下哪项活动不属于共享资源（）
A.为网民提供代理服务器加速流览国外网站。
B.设计一个学生信息的数据库
C.QQ 传输文件
D.在校网上发布最新版编程软件
15. 15、三位水仙花数是指每个位上的数字的3 次幂之和等于它木身。（例如：1^3+5^3+3^3=153）找所有三位水仙花数程序如下，它的算法属于（） for i:l to 9 do for j:=0 to 9 do for k:=0 to 9 do if(i*i*i+j*j*j+k*k*k=i*100+j*10+k) then ……小学生编程初赛试题及答案。
A.动态规划
B.贪心
C.枚举
D.递归
16. 如果一个栈始时为字．当前栈中的元素从栈底到栈顶依次为 a，b·另有元素 c，d，己经出栈，则不可能的人栈顺序是（）。
A.bacd
B.cdab
C.cadb
D.dabc
17. 二进制数 10101 转化成十进制表示是（）
A.42
B.21
C.13
D.25
18. 18、己知逻辑表达式值为 false 的是（） a＝true b＝false c＝false d＝true
A.a and b xor c and d
B.a Or b and c or d
C.axor b or c and d
D.a or b xor d and c
19. 计算机前端总线的英文名字是 Front Side Bus，用 FSB 表示．指的是将 CPU 接到（）的总线。
A.内存
B.北桥芯片
C.南桥芯片
D.I/O 设备
20. 第 45 届全球超级汁算机 500 强排行榜．于 2015 年 7 月公布，冠军是（）
A.中国“天河二号”
B.美国橡树岭国家验率的“泰坦”
C.日本理化学研究所的"K Computer"
D.美国劳伦斯一利弗莫尔国家实验的“紅杉”
二.问题求解（每理5分，共10分）
1. 豆豆是个对数学非常敏感的孩子，刚学了加法，他就发现3的所有倍数个位数字都是有规律的，例如: 3,6,9,12,15,18,21,24,27,30,33,36,39,42 ....存个循环(3,6,9,2,5,8,1,4,7,0)。等到学了乘法后，他思考这个问题：3^2016(2016个3相乘)运算结果的个位上的数字是（）。 答案：
2. 豆豆课余爱好之一就是玩各种自创的数字游戏，其中一种很受同学的好评，大家经常开展比赛。这个游戏如下： 5行5列的数字方阵中选取5个数，求这5 个数任意2个既不是同一行，也不能同一列。看看谁能最先算出这5个数最大和是（）。豆豆总是能胜出。看人的了。 15 06 14 12 20 03 11 18 03 13 06 09 14 09 14 13 12 07 16 19 22 14 08 07 14
答案：
三.阅读程序，求程序运行输出结果（每题8分，共32分）
1.
var
a, b,c, d: longint;
begin
read(a, b, c);
a:=a+b*c;
b:=a-c;
c:=a+b;
d:=b*c-a;
a:=d*(a-b);
writeln('a=',a);
end.
【输入】：111 输出：
2.
var
i,j:longint;
a,b:array[0..20] of longint;
out：array[0..200] of boolean;
begin
for i:=1 to 12 do read(a[i]);
for i:=1 to 15 do read(b[i]);
for i:=1 to 12 do
for j:=1 to 15 do
if a[i]=b[j] then out[a[i]]:=true;
for i:=1 to 90 do
if not out[i] and (i mod 8=0) then
write(i,' ');
end.
【输入】：
2 17 23 28 29 37 38 48 49 58 79 114
2 17 23 28 29 38 45 48 56 58 67 72 75 101 122输出：
3.
var
j:longint;
use:array[0..10] of boolean;
a：array[0..10] of longint;
procedure dfs( i: longint);
var j:longint;
begin
if i>2 then begin
for j:= 1 to 2 do
write(a[j],' ');
writeln;
exit
end;
for j:=a[i-1]+1 to 3 do
If not use[j] then begin
use[j]:=true;
a[i]:=j；
dfs(i+1)；
use[j]:=false;
end;
end;
begin
dfs(1);
end.输出：
4.
var
n,i,j,t,sum:longint;
a:array[0..50] of longint;
f:array[0..50] of boolean;
begin
readln(n);
for i:= 1 to n do
read(a[i]);
fillchar(f,sizeof (f),true);
for i := 1 to n do
if f[i] then
2007年程序设计竞赛小学试题及答案
篇四:小学生编程初赛试题及答案
2007年程序设计竞赛小学组试题
1、输出1~100之间中能被3整除，且被5除余1的所有整数。(源程序保存名为 xone.pas，编译后的文件名为xone.exe)
要求：将结果用文件的方式输出在xone.out中。
2、从文件xtwo.in读入a、b两数，c为a与b差的绝对值（c>0），将c打印到文件xtwo.out中。(源程序保存名为xtwo.pas，编译后的文件名为xtwo.exe)
【输入样例1】
2 9
【输出样例1】
7
【输入样例2】
8 6
【输出样例2】
2
3、从文件xthree.in读入字符串str，判断是否为回文，若为回文结果为yes，否则结果no，将结果打印到输出文件文件xthree.out。（注：回文字符串即为从左向右读与从右向左读是同一个字符串，如abcdcba，abccba。源程序保存名为xthree.pas，编译后的文件名为xthree.exe）。
【输入样例1】
abcdcba
【输出样例1】
yes
【输入样例2】
abcde
【输出样例2】
no
4、从文件xfour.in中读入6个整数，将它们从小到大排序后打印到输出文件xfour.out中，并给出排序后每个元素所对应的原来输入的次序。（源程序保存名为xfour.pas，编译后的文件名为xfou.exe）
【输入样例】
27、3、2、28、14、39
【输出样例】
3 2
14 5
25 3
27 1
28 4
39 6
5、甲乙丙丁戊五个人在运动会上分获百米、二百米、跳高、跳远和铅球冠军， 有四个人猜测比赛结果：
Ａ说：乙获铅球冠军，丁获跳高冠军。
Ｂ说：甲获百米冠军，戊获跳远冠军。
Ｃ说：丙获跳远冠军，丁获二百米冠军。
Ｄ说：乙获跳高冠军，戊获铅球冠军。
其中每个人都只说对一句，说错一句。求五人各获哪项冠军。将五个人获得的冠军项目依次打印在输出文件xfive.out中。（源程序保存名为xfive.pas，编译后的文件名为xfive.exe）
6、从文件xsix.in读入字符串str，统计各字母出现的次数，并按字母出现的多少输出到文
件xsix.out中（先输出字母出现多的，次数相同的按字母表顺序输出，不出现的字母不输出）。（源程序保存名为xsix.pas，编译后的文件名为xsix.exe）
【输入样例】
5b3a+4 –hdeh5dh
【输出样例】
h 3
d 2
a 1小学生编程初赛试题及答案。
b 1
c 1
程序设计试题答案
1、答案：6 21 36 51 66 81 96
参考程序：var
i:integer;
f:text;
begin
assign( f,’tione.out’)
rewrite(f);
for i:=1 to 100 do
if (i mod 3 =0) and (i mod 5=1) then write(f,i:8);
writeln
close(f);
end.
2、参考程序：
Var
a,b,c,temp:integer;
f1,f2:text;
begin
assign(f1,’xtwo .in’);
assign(f2,’xtwo.out’)
reset(f1);
rewrite(f2);
read(f1,a,b);
if a<b then begin temp:=a;a:=b; b:=temp; end;
c:=a-b;
write(f2,c);
close(f1);
close(f2);
end.
3、参考程序:
Var
Str:string;
I,j,l:integer;
f1,f2:text;
begin
assign(f1,’xthree .in’);
assign(f2,’xthree.out’)
reset(f1);
rewrite(f2);
read(f1,str);
l:=length(str);
i:=1;j:=l;
while (str[i]=str[j])and(i<=j) begin i:=i+1;j:=j-1; end;
if i>j then write(f2,’yes’) else write(f2,’no’);
write(f2,str);
close(f1);
close(f2);
end.
4、参考程序：
Var
A,b:array[1..20]of real;小学生编程初赛试题及答案。
I,j,tem,temp:integer;
F1,f2:text;
Begin
Assign(f1,’xfour.in’);
Assign(f2,’xfour.out’);
Reset(f1);
Rwrite(f2);
For i:=1 to 20 do
Begin
Read(f1,a[i]); b[i]:=I;
End;
For i:=1 to 19 do
For j:=i+1 to 20 do
Begin
If a[i]>a[j]
Then begin
Temp:=a[i]; a[i]:=a[j]; a[j]:=temp;
Tem:=b[i];b[i]:=b[j];b[j]:=tem;
End;
For i:=1 to 20 do
Writeln(f2,a[i],’ ’,b[i]);
Close(f1);
Close(f2);
End.
5、【答案】甲 乙 丙 丁 戊
１ ２ ４ ３ ５
参考程序
var a,b,c,d,e:byte;
f:txet;
begin
assign(f);
rewrite(f);
for a:=1 to 5 do
for b:=1 to 5 do
for c:=1 to 5 do
for d:=1 to 5 do begin
e:=15-a-b-c-d;
if (ord(b=5)+ord(d=3)=1) and
(ord(a=1)+ord(e=4)=1) and
(ord(c=4)+ord(d=2)=1) and
(ord(b=3)+ord(e=5)=1) and (a*b*c*d*e=120) then writeln(f,'a:',a,'b:',b,'c:',c,'d:',d,'e:',e); end;
close(f);
end.
6、参考程序：var
Str:string;
A:array[’a’..’z’] of integer;
Ch:char;
N,l,i:integer;
F1,f2:text;
Begin
Assign(f1,’xsix.in’);
Assign(f2,’xsix.out’);
Reset(f1);
Rewrite(f2);
For ch:=’a’ to ’z’ do a[ch]:=0;
Read(f1,str);
L:=length(str);
For i:=1 to l do
If (str[i]>=’a’) and(str[i]<=’z’)
N:=0;
For ch:=’a’ to ’z’ do
If a[ch]>n then n:=a[ch];
While n>0 do
Begin
For ch:=’a’ to ’z’ do
If a[ch]=n
Then writeln(f2,ch,n);
N:=n-1;
End;
Close(f1);
Close(f2);
End.
then a[str[i]]:=a[str[i]]+1;