Pascal百题练习

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。

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两种方法）

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

18.输入两个两位数，它们各位上的数字互不相等，如果这两个两位数的乘积等于把它们各

自位上的数字交换后所得的新的两位数的乘积，输出等式，否则输出不等式。

例如：

输入：12 63 输出：12*63=21*36

输入：12 34 输出：12*34<>21*43

19.给出一个英文字母，要求按字母顺序输出5个字母，给定的字母是五个字母中间的一个

字母。例如，给定的字母是“R”，应输出PQRST；给定的字母是“Z”，应输出XYZAB；

给定的字母是“B”应输出ZABCD，其余类推。（用两种方法解）

输入：R 输出：PQRST

输入：Z 输出：XYZAB

20、编程模拟剪刀石头布游戏，J表示剪，S表示石，B表示包。根据游戏者自己输入，计

算机出结果。

21、现有1,2,3,4,5……n整数分多排排列，其中每排放x个，

（1）输入n、x，编程输出n在第几排第几列。

如输入16 7，输出3 2

（2）输入n、x，编程在屏幕上输出如下排列的数字（用取余和计数器两种方法解）

1 2 3 4 5 6 7

8 9 10 11 12 13 14

15 16

22、输入两个正整数A、B，A不大于31，B不超过三位数。使A在左，B在右，

拼接成一个新数C，再输出C的值。如A=2，B=16，则C为216。若A=18，B=467，则C=18467。

23、小林有69元钱，准备全部购买笔。店里有元、6元、5元一支的四种笔，

请编程，在8元一支的笔必须购买一支的前提下，使购买的笔数量最多，而钱又恰好用完，输出此时购买的各种笔的数量。

24、已知2012年1月2日是星期一，输入2012年的一个月和日，输出该天是

这一年中的第几天？并输出是星期几？如输入12 20 输出为354 5。

（星期天用7表示）

25、四个同学上地理课，回答我国四大淡水湖泊大小的时候是这样说的：

甲：最大洞庭湖，最小洪泽湖，鄱阳湖第三。

乙：最大洪泽湖，最小洞庭湖，鄱阳湖第二，太湖第三。

丙：最小洪泽湖，洞庭湖第三。

丁：最大鄱阳湖，最小太湖，第二，洞庭湖第三。

对于每个湖的大小，每个学生仅答对一句，请编程确定四个湖的大小。

26、有N盏灯放在一排，从1到N依次编号，有N个人也从1到N依次编号，

第一个人将灯全部打开，第二个人将凡是2的倍数的灯全部关闭，第三个人将凡是3的倍数的灯作相反处理，第4、5、……、N个人都把自己编号的倍数的灯作相反处理。问第N个人走过后，哪些灯是开着的？

27、将一张面值100元的纸币换成若干张面值为1元，2元和5元的纸币，共有

多少种换法？要求输出每一种换法。