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

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 n m 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 如果 A 的个位数字是 5 则统计 A 能被 5 整除多少次 否则 统计 A 当中有多少个 0 你能做吗 输入 a2 in 一行 A 1 A 输出 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 h 1 do begin h h div 5 i i 1 end writeln f2 i end else if s 5 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 and n10 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 g h i j k l m n z integer f1 f2 text begin assign f1 a4 in assign f2 a4 out seret f1 sewrite f2 for i 1 to 5 do for j 1 to 5 do read f1 x i j for i 1 to 5 do begin c 0 a x i 1 b 1 for j 2 to 5 do begin if a x i j then begin a x i j b j z i end end for m 1 to 5 do if a x m b then c 1 if c1 then writeln f2 a i b else d 1 end if d1 then writeln no close f1 end 5 编码问题 程序文件名 A5 PAS 20 分 老师让小林设计一个对一英文字符串进行两次加密的程序 假定字母表是首尾相接的环 即 Z 和 A 相连 z 和 a 相连 第 一次加密的规则是这样的 把英文字符串的每个字母转换成它 后面的字母 例如对英文字符串 xyaZbzmNT 进行第一次加密后 得到 yzbAcanOU 第二次加密的编码规则是这样的 将第一次 加密后得到的字符串中相邻字母从右往左两两交换 到最后只 剩一个字母则不再换 如对上述所举例子中第一次加密后得到 的字符串 yzbAcanOU 进行第二次加密的结果是 ybzcAnaUO 老师要求小林编程求出任一字母字符串经过两次加密后得到 的字符串 输入 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 begin assign f1 a5 in reset f1 assign f2 a5 out rewrite f2 readln f1 x a length x for i 1 to a do if x i z then x i a els