2010年长沙市小学生计算机奥林匹克竞赛决赛试题.pdfVIP

2010 年长沙市小学生计算机奥林匹克竞赛决赛试题 （时间：120 分钟） 一、救援时刻（100 分）（存盘程序名：T1） 华华参加了玉树地震的某次救援行动，救援开始时刻为 hs 时 ms 分，救援过程共用了 h 小时 m 分钟 （不超过 7 天的时间）。请计算出完成救援那天的时间（以 24 小时制表示）。 输入：hs ms h m 输出：ht:mt （表示完成救援那天的时间） 例如：输入：11 20 36 40 （表示 11:20 开始救援，共用了 36 小时 40 分钟） 输出：0:0 程序： program cs201001; var hs,ms,h,m,ht,mt:longint; begin readln(hs,ms,h,m); hs:=hs+h; ms:=ms+m; ht:=hs+ms div 60; mt:=ms mod 60; ht:=ht mod 24; writeln(ht,:,mt); end. 二、号码分类（100 分）（存盘程序名：T2） 华华有来自长株潭的 n 个朋友，现在要将他们的电话号码按长沙、湘潭、株洲的顺序分类输出，相同 地区的号码则按原序输出。 （注：电话号码的第一位：长沙为 8，湘潭为 5，株洲为 2）。 输入：n (朋友人数 n=100) N 个八位电话号码（以空格相隔） 输出：ChangSha:长沙朋友的电话号码 （以空格相隔，若没有长沙的，则空着） XiangTan:湘潭朋友的电话号码 （以空格相隔，若没有湘潭的，则空着） ZhuZhou:株洲朋友的电话号码 （以空格相隔，若没有株洲的，则空着） 例如：输入：3 22826558 输出：ChangSha822222052 XiangTan: ZhuZhou program cs201002; var n,i:longint; a:array[1..100] of longint; begin readln(n); for i:=1 to n do read(a[i]); write(ChangSha:); for i:=1 to n do begin if a[i] div8 then write(a[i], ); end; writeln; write(XiangTan:); for i:=1 to n do begin if a[i] div5 then write(a[i], ); end; writeln; write(ZhuZhou:); for i:=1 to n do begin if a[i] div2 then write(a[i], ); end; writeln; end. 三、压缩密文（100 分）（存盘程序名：T3） 华华接到任务：要对一个仅有英文字母的密文进行压缩处理，将其中连续的重复字母压缩成“一个字 母+个数”的形式。例如：AaaaaaaaAaaBbBaAc 应压缩成 a11b3a2c。但是华华拿到的密文已被人马虎的处 理过，密文没有完全压缩好，处理起来反而更麻烦。如上例密文可能已变成