初一学生信息学竞赛PASCAL编程考试试卷

1 初一学生信息学竞赛 PASCAL 编程考试试卷 姓名 评分 注意 注意 本次考试评分方试采用 黑箱 评分法 即不看程序 只运行程序 只要程序运行通过 且 测试数据符合题目规定要求 即可得分 否则不得分 故提醒考生注意 编程时 最重要的是要让 程序能够运行 每一小题 10 分 共 100 分 120 分钟 1 T1 问题描述 输入矩形的边长 计算该矩形的周长和面积 输入格式示例 输入两个正整数 a 28 b 16 输出格式示例 l 28 16 2 88 s 28 16 448 2 T2 问题描述 输入三个整数 将它们从大到小排列 输入格式示例 a 47 b 2 c 319 输出格式示例 319 47 2 3 T3 问题描述 计算 n n 1 2 3 n 输入格式示例 输入正整数 n 7 输出格式示例 n 5040 4 T4 问题描述 输入一个四位整数 把它的各位数字倒序输出 输入格式示例 输入正整数 1234 输出格式示例 输出正整数 4321 5 T5 问题描述 输入一个整数 判断其奇偶性 若是奇数 则输出 It s an odd number 若是偶数 则输出 It s an even number 输入格式示例 输入整数 n 32 输出格式示例 It s an even number 2 6 T6 问题描述 读入两个字符 若这两个字符的 ASCII 码之差是奇数 输出这两个字 符的后继字符 否则输出它们的前趋字符 输入格式 输入两个字符 c1 D c2 输出格式 由于 D 的 ASCII 码为 68 的 ASCII 码为 40 两者差 28 是偶数 所以输 出它们的前趋字符 分别为 C 7 T7 问题描述 利用下列公式计算 的值 n 10000 14 1 34 1 7 1 5 1 3 1 1 4 nn 8 T8 问题描述 求菲波拉契数列 a0 a1 a2 a20 菲波拉契数列可以按如下定义 a0 0 a1 1 a2 a0 a1 a3 a1 a2 an an 2 an 1 输出格式 输出菲波拉契数列前 20 项的值 每行输出 5 个数 具体输出格式如下 0 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610 987 1597 2584 4181 6765 9 T9 问题描述 拼数 将以字符形式输入的数字序列转换成实数 输入格式 输入字符 8 5 3 7 输出格式 输出为实数 85 37 10 T10 问题描述 输出所有 100 999 中的水仙花数 若有三位正整数 abc 满足 a3 b3 c3 abc 则称 abc 为水仙花数 例如 153 13 53 33 1 125 27 153 则 153 称 为水仙花数 3 信息学奥林匹克竞赛 PASCAL 编程考试试卷参考答案 答案不是唯一的 PROGRAM T1 VAR a b l s integer BEGIN write a readln a write b readln b l a b 2 s a b writeln l a b 2 l s a b s END PROGRAM T2 VAR a b c i integer BEGIN write a readln a write b readln b write c readln c IF aa THEN writeln c a b ELSE IF c b THEN writeln a c b ELSE writeln a b c END PROGRAM T3 VAR n i sum integer 4 BEGIN read n sum 1 FOR i 1 TO n DO sum sum i writeln n sum END PROGRAM T4 VAR sou des i a integer BEGIN write Please input a four figures plus integer readln sou des 0 FOR i 1 TO 4 DO BEGIN des des sou MOD 10 trunc exp 4 i ln 10 sou sou DIV 10 END FOR writeln The reverse order plus integer is des END PROGRAM T5 VAR n integer BEGIN write n readln n IF odd n THEN write It s an odd number ELSE write It s an even number END PROGRAM T6 VAR c1 c2 char BEGIN write c1 5 readln c1 write c2 readln c2 IF odd ord c1 ord c2 THEN writeln succ c1 succ c2 ELSE writeln pred c1 pred c2 END PROGRAM T7 VAR i integer sum pi real BEGIN sum 0 FOR i 1 TO 10000 DO sum sum 1 4 i 3 1 4 i 1 pi sum 4 writeln pi pi END PROGRAM T8 VAR a0 a1 a2 i integer BEGIN writeln a0 0 a1 1 write a0 a1 FOR i 2 TO 20 DO BEGIN a2 a0 a1 write a2 IF i MOD 5 4 THEN writeln a0 a1 a1 a2 END END 6 PROGRAM T9 VAR ch char result scale real BEGIN result 0 read ch write ch REPEAT result result 10 ord ch ord 0 read ch write ch UNTIL ch 9 IF ch THEN BEGIN scale 1 read ch write ch REPEAT result result 10 ord ch ord 0 scale scale 10 read ch write ch UNTIL ch 9 result result scale END writeln result END PROGRAM T10 VAR n