《2010年青岛市程序设计竞赛试题(共10页).doc》由会员分享，可在线阅读，更多相关《2010年青岛市程序设计竞赛试题(共10页).doc（10页珍藏版）》请在taowenge.com淘文阁网|工程机械CAD图纸|机械工程制图|CAD装配图下载|SolidWorks_CaTia_CAD_UG_PROE_设计图分享下载上搜索。
1、精选优质文档-倾情为你奉上2010年青岛市程序设计竞赛试题(小学组)说明：1、必须以题目中规定的文件名进行保存，并用FTP上传到指定文件夹中。FTP上传使用说明在试题最后。请选手每做完一道题及时上传一次，以确保因机器故障引起的文件丢失。2、比赛时间为：60分钟，试题100分。3、使用竞赛规定的文件格式输入、输出。1、求和问题(程序文件名A1.PAS,20分)编程输入正整数N和M(N，M100)，求N，M之间(包括N和M)所有5的倍数的数之和S。 输入(a1.In)：一行，用空格隔开的两个正整数N和M(1N，M100)输出(a1.out)：一行，和值样例1： 样例2：输入：1 10 输入：31
2、15输出：15 输出：90program jk;var I,s,n,m:integer;f1,f2:text;beginassign(f1,'a1.in');reset(f1);assign(f2,a1.out');rewrite(f2);read(f1,n,m);if n>m then begin i:=n;n:=m;m:=I; end;for i:=n to m doif i mod 5=0 then s:=s+i;writeln(f2,s);close(f1);close(f2);end.2、整数处理(程序文件名A2.PAS，20分)电脑老师让小明编程做一道
3、题：输入一个正整数A(A)，如果A的个位数字是5，则统计A能被5整除多少次？否则，统计A当中有多少个“0”？你能做吗？输入(a2.in)：一行，A(1A)输出(a2.out)：一行，要求统计的结果。(A的个位数是5，输出被5整除的次数；A的个位不足5，输出A中“0”的个数)program jk;var i,j,h,g,f,d,s,a,z,c,v,b,n,m:longint;x:array1.100 of integer;f1,f2:text;beginassign(f1,'a2.in');reset(f1);assign(f2,'a2.out');rewrite
4、(f2);read(f1,a);if s=5 then beginwhile h>1 dobeginh:=h div 5;i:=i+1;end;writeln(f2,i);endelse if s<5 then beginwhile a<>0 dobegins:=a mod 10;if s=0 then g:=g+1;a:=a div 10;end;end;writeln(f2,g);close(f1);close(f2);end.3、乘车费用(程序文件名A3。PAS，20分)星期天上午小明乘出租车去本市的外婆家。出租车计价方案为：2公里以内起步价是6元，超过2公里后按
5、2元/公里计价，超过10公里之后在2元/公里的基础上加价50%，另外，停车等候则按时间计费：1元/三分(注：不满三分钟不计费)。已知：小明到外婆家路程为N 公里，中间停车等候的时间总共M分钟，请计算小明到外婆家的出租车费用是多少元？输入(a3.in)：一行，两个用空格隔开的整数N和M。输出：(a3.out)：一行，一个整数，小明到外婆家的出租车费。样例1：输入：8 7输出：20program jk;var i,j,h,g,f,d,s,a,z,x,c,m,n:integer;f1,f2:text;beginassign(f1,'a3.in');reset(f1);assign(f
6、2,'a3.out');rewrite(f2);read(f1,n,m);if n<2 then i:=6;if (n>2)and(n<=10) then i:=6+2*(n-2);if n >10 then i:=i+3*(n-10);m:=m div 3;i:=i+m;writeln(f2,i);close(f2);end.4、马鞍数(程序文件名A4.PAS，20分)求一个5×5方阵中的马鞍数，输出它的位置。所谓马鞍数，是指在行上最小而在列上最大的数。如下： 6 5 7 8 95 4 6 7 84 3 5 2 13 2 4 9 02 1 5
7、 4 8则一行二列的数5就是马鞍数。输入(a4.in)：5行，每行有5个由空格隔开的050间的整数。输出(a4.out)：若马鞍数存在，则输出该数所在的位置行和列的值(用空格隔开)。如果该方阵中不存在马鞍数，则输出字符串no。program fas;var x:array1.5,1.5 of integer;a,b,c,d,e,f,g,h,i,j,k,l,m,n,z:integer;f1,f2:text;beginassign(f1,'a4.in');assign(f2,'a4.out');seret(f1);sewrite(f2);for i:=1 to 5
8、dofor j:=1 to 5 doread(f1,xi,j);for i:=1 to 5 dobeginc:=0;a:=xi,1;b:=1;for j:=2 to 5 dobeginif a>xi,j then begina:=xi,j;b:=j;z:=i;end;end;for m:=1 to 5 doif a<xm,b then c:=1;if c<>1 then writeln(f2,a,' (',i,',',b,')')else d:=1;end;if d<>1 then writeln('n
9、o');close(f1);end.5、编码问题(程序文件名A5。PAS，20分)老师让小林设计一个对一英文字符串进行两次加密的程序。假定字母表是首尾相接的环，即Z和A相连，z和a相连。第一次加密的规则是这样的：把英文字符串的每个字母转换成它后面的字母。例如对英文字符串xyaZbzmNT进行第一次加密后得到yzbAcanOU。第二次加密的编码规则是这样的：将第一次加密后得到的字符串中相邻字母从右往左两两交换，到最后只剩一个字母则不再换。如对上述所举例子中第一次加密后得到的字符串yzbAcanOU进行第二次加密的结果是ybzcAnaUO。老师要求小林编程求出任一字母字符串经过两次加密后得
10、到的字符串。输入(a5.in)：一行，英文字母组成的字符串。输出(a5.out)：一行，两次加密后得到的字符串。program fasd;var g,h,k,l,m,n:char;a,b,i,j,e,f:integer;x:string;f1,f2:text;beginassign(f1,'a5.in');reset(f1);assign(f2,'a5.out');rewrite(f2);readln(f1,x);a:=length(x);for i:=1 to a doif xi='z' then xi:='a'else if xi='Z' then xi:='A'else xi:=succ(xi);for j:=a downto 1 doif j mod 2=0 then beging:=xj;xj:=xj+1;xj+1:=g;end;writeln(f2,x);close(f1);close(f2);end.专心-专注-专业