2010年青岛市程序设计竞赛试题.docVIP

2010年青岛市程序设计竞赛试题(小学组) 说明：1、必须以题目中规定的文件名进行保存，并用FTP上传到指定文件夹中。FTP上传使用说明在试题最后。请选手每做完一道题及时上传一次，以确保因机器故障引起的文件丢失。 2、比赛时间为：60分钟，试题100分。 3、使用竞赛规定的文件格式输入、输出。 1、求和问题(程序文件名A1.PAS,20分) 编程输入正整数N和M(N，M≤100)，求N，M之间(包括N和M)所有5的倍数的数之和S。 输入(a1.In)：一行，用空格隔开的两个正整数N和M(1≤N，M≤100) 输出(a1.out)：一行，和值 样例1： 样例2： 输入：1 10 输入：31 15 输出：15 输出：90 program jk; var I,s,n,m:integer; f1,f2:text; begin assign(f1,a1.in); reset(f1); assign(f2,a1.out); rewrite(f2); read(f1,n,m); if nm then begin i:=n; n:=m; m:=I; end; for i:=n to m do if i mod 5=0 then s:=s+i; writeln(f2,s); close(f1); close(f2); end. 2、整数处理(程序文件名A2.PAS，20分) 电脑老师让小明编程做一道题：输入一个正整数A(A≤1000000000)，如果A的个位数字是5，则统计A能被5整除多少次？否则，统计A当中有多少个“0”？你能做吗？ 输入(a2.in)：一行，A(1≤A≤1000000000) 输出(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:array[1..100] of integer; f1,f2:text; begin assign(f1,a2.in); reset(f1); assign(f2,a2.out); rewrite(f2); read(f1,a); if s=5 then begin while h1 do begin h:=h div 5; i:=i+1; end; writeln(f2,i); end else if s5 then begin while a0 do begin s:=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公里后按2元/公里计价，超过10公里之后在2元/公里的基础上加价50%，另外，停车等候则按时间计费：1元/三分(注：不满三分钟不计费)。已知：小明到外婆家路程为N 公里，中间停车等候的时间总共M分钟，请计算小明到外婆家的出租车费用是多少元？ 输入(a3.in)：一行，两个用空格隔开的整数N和M。 输出：(a3.out)：一行，一个整数，小明到外婆家的出租车费。 样例1：输入：8 7 输出：20 program jk; var i,j,h,g,f,d,s,a,z,x,c,m,n:integer; f1,f2:text; begin assign(f1,a3.in); reset(f1); assign(f2,a3.out); rewrite(f2); read(f1,n,m); if n2 then i:=6; if (n2)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 9 5 4 6 7 8 4 3 5 2 1 3 2 4 9 0 2 1 5 4 8 则一行二列的数5就是马鞍数。 输入(a4.in)：5行，每行有5个由空格隔开的0~50间的整数。 输出(a4.out)：若马鞍数存在，则输出该数所在的位置行和列的值(用空格隔开)。如果该方阵中不存在马鞍数，则输出字符串no。 program fas; var x:array[1..5,1..5] of integer; a,b,c,d,e,f