Pascal百题练习要点.docxVIP

1、 有一数字如下： 65436543654365436543 循环排列， 1）输入一个数字 n，输出第 n 个数字。 如输入 3 则输出为 4，输入 1 则输出为 6。 2）输入一个数字 n,在屏幕上输出如题数字，每行 30 个数字。 (3)输入一个数字 n，输出所有数字 4 所在的位数。 如输入 15，输出 4 所在的位置，即 3 7 11 15 2、有一字符串如下： EDCBAEDCBAEDCBA ..循环排列， (1)输入一个整数 n，输出第 n 位字符。 如输入 3 输出为 C，输入 1 则输出为 E。 (2)输入一个整数 n，在屏幕上输出如题字母，每行 30 个字母。 (3)输入一个数字 n，输出所有 1-n 范围内字母 C 所在的位数 ,场宽 4。如输入 15，输出 D 所在的位置，即 2 7 12 3、输入一字符，如该字符为小写字母，则转换成大写并输出；如该字符为大写字母，则转换成小写并输出，如果输入是数字则将该数字转成整数并输出该整数。否则输出 ’Error’,即错误。 如输入 a 则输出为 A，如输入为 B 则输出为 b，如输入 9 则转成整数 9 并输出。 （提示： ’a’≤小写字母≤ ’z’，’A’≤大写字母≤ ’Z’） 4、输入三个数，判断这三个数能否作为边长组成三角形，如果能组成则输出TRUE，不能组成三角形则输出 FALSE。 第 1页 （共 16页） 5、输入三个数，按从大到小的顺序输出。如，输入 15 20 16 ，输出为 20 16 15 6、输入一个三位整数，输出一个新三位数，使其百位数最大，个位数最小。 如，输入 315，输出 531。 7、输入四个整数，输出四个数中的最大值和最小值。 （分两行输出） 8、输入一个秒数，转换成小时、分、秒并输出。 如输入 4500，输出为 1:15:0。 9、有鸡兔同笼，现发现有头 30 个脚 90 只，试编程算出鸡兔各多少只并输出。 10、有五个好朋友相聚，第一个朋友带来很多糖块赠送给各位好友，使每人的糖块在原来的基础上增加了一倍，第二个朋友也向各位朋友分发糖块，使每人在已有糖块的基础上又增加了一倍，第三、第四、第五位朋友都照此办理，最终每人刚好都有 32 块糖，请编程算出原来每位好友各有多少糖块。 11、假设邮局规定寄邮件时若每件重量在 1 公斤内（含 1 公斤）以每公斤 1.5 元收取邮费，超过部分按每公斤 0.8 元收取邮费。编程输入邮件重量，输出应收邮费。 12、输入考试成绩， 如果获得 80 分以上为 A 等，60 到 79 分为 B 等，60 分以下为 C 等。编程输入分数，输出相应等级。 （用 IF 和 CASE 两种方法） 第 2页 （共 16页） 13、输入两个 0 到 99 的整数，输出这两个整数相乘的竖式。 如，输入 15 9 则输出 15 和 9 相乘的竖式，输入 18 21 则输出 18 和 21 相乘的竖式。 14、输入任意的小写字母 ch 和任意数字 n，将该字母按照字母表顺序向后移动 n 位（字母表首尾相连成环状） ，输出移位后的字母。例如输入 b 3，则输出 e；输入 x 4，则输出 b。（用两种方法解） 输入格式：输入两个数据，之间用一个空格隔开，第一个数据是小写字母， 第二个数据是一个正整数。 输出格式 输出一个字符，表示移位后的字母。 样例输入： b 3 样例输出： e 15、输入一个年份，判断是否是闰年，是则输出 ’Yes’，否则输出 ’No’ （年份能被 4 整除，并且不能被 100 整除，或年份能被 400 整除即为闰年。）(用 IF 和 CASE 两种方法 )。 16、输入一个 5 位数，判断它是不是回文数。即 12321 是回文数，个位与万位相同，十位与千位相同。 17、读入一个小写字母，如果它的 ASCII 码是奇数，输出其后继字母，如果它的 ASCII 码是偶数，则输出其前趋字母。 输入： f （ASCII 码 102） 输出： e 第 3页 （共 16页） 输入两个两位数，它们各位上的数字互不相等，如果这两个两位数的乘积等于把它们各自位上的数字交换后所得的新的两位数的乘积，输出等式，否则输出不等式。 例如： 输入： 12 63 输出： 12*63=21*36 输入： 12 34 输出： 12*3421*43 给出一个英文字母，要求按字母顺序输出 5 个字母，给定的字母是五个字母中间的一个 字母。例如，给定的字母是“ R”，应输出 PQRST；给定的字母是“ Z”，应输出 XYZAB；给定的字母是“ B”应输出 ZABCD，其余类推。（用两种方法解） 输入： R 输出： PQRST 输入： Z 输出： XYZAB 20、编程模拟剪刀石头布游戏， J 表示剪， S 表示石， B