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。

第1页 （共15页）

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页 （共15页）

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页 （共15页）

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。

第4页 （共15页）

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元的纸币，共有

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

第5页 （共15页）

28、A、B两个自然数的和、差、积、商四个数加起来等于243，求A、B两数。

29、一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称为绝

对素数，例如：13。试找出所有二位绝对素数。

30、输出如下图形（单重循环用取余数和计数器两种方法解，再用双重循环做）

123 456 789

31、从键盘输入一个n(1<=n<=9)，输出n行数字倒三角图形

如输入5 1 21 321 4321 54321 32、输出如下数字图形

1 2 3 4 5 6 7 8 9 10

33、百鸡百钱问题：一只公鸡值5元，一只母鸡值3元，而1元可买3只小鸡。

现有100元钱，想买100只鸡。问问买公鸡、母鸡、小鸡各几只？

第6页 （共15页）

34、输出如下图形：

* ## *** #### *****

35、有五个小朋友，分别得到a,b,c,d,e个糖果。他们围成一个圈，按序号相邻，

第五个小朋友又和第一个小朋友相邻。

现在老师让他们玩一个游戏，每个小朋友都把自己的糖果平均分成2分，将2份分给相邻的两个小朋友。

如果是奇数还余下一颗，自己就吃掉。当5个小朋友依次分完糖后，最后请你按1--5号的顺序在一行里输出每个小朋友手里还有多少糖,换一行输出以及这些小朋友共吃掉了几颗糖。

36、星期天上午小明乘出租车去本市的外婆家。出租车计价方案为：2公里以内

起步价是6元，超过2公里之后按1.8元/公里计价，超过10公里之后在1.8元/公里的基础上加价50%，另外，停车等候则按时间计费：1元/3分（注：不满3分钟不计费）。已知：小明到外婆家路程为N公里，中间停车等候时间总共M分钟，请计算小明到外婆家的出租车费用是多少元?

输入：N M（N，M都是整数） 输出：一个实数（表示车费，精确到0.1元）

例如：输入：8 7 输出：18.8

37、输入年、月，输出该年该月的天数；（练习case语句）

38、Pascal循环练习题 计算1+(1+2)+(1+2+3)+...+(1+2+...+n)（用for、repeat、while三种方法解）

第7页 （共15页）

39、1+3+5+7 ….. …..99=? （用for、repeat、while三种方法解）

40、算出1到100之间偶数的个数和奇数的个数。（用for、repeat、while三种方法解）

41、算出1到100之间所有偶数的和与奇数的和并分别输出。（用for、repeat、while三种方法解）

42、某服装公司为了推销产品，采取这样的批发销售方案:凡订购超过100 套的，每套定价为50元，否则每套价格为80元。编程由键盘输入订购套数，输出应付款的金额数。

43、对某产品征收税金，在产值1万元以上征收税5%；在1万元以下但在5000元以上的征收税3%；在5000元以下但在1000元以上征收税2%；1000元以下的免收税。编程计算该产品的收税金额。

44、运输公司计算运费时，距离(S)越长，每公里运费越低，标准如下: 如果S＜250公里；运费为标准运价的100% 如果250公里＜＝S＜500公里，运费为标准运价的98%； 如果500公里＜＝S＜1000公里，运费为标准运价的95%； 如果1000公里＜＝S＜2000公里，运费为标准运价的92%； 如果2000公里＜＝S＜3000公里，运费为标准运价的90%； 如果S＝＞3000公里，运费为标准运价的85%；。请编计算运费的程序。

45、一个两位数x，将它的个位数字与十位数字对调后得到一个新数y，此时y

恰好比x大36，请编程求出所有这样的两位数。

第8页 （共15页）

46、把整数3025从中剪开分为30和25两个数，此时再将这两数之和平方，(30+25)2=3025计算结果又等于原数。求所有符合这样条件的四位数。

47、从七张扑克牌中任取三张，有几种组合方法？请编程输出所有组合形式。 48、数学上把除了1和它本身，没有别的数能够整除它的自然数叫做素数(或质数)。现在由键盘输入一个自然数N，编程判断N是否是素数，是则输出“Yes”，否则输出“No”。

49、有一个三位数，它的各位数字之和的11倍恰好等于它自身，请编程求出这个三位数。（用for、repeat、while三种方法解）

50、在自然数中，如果一个三位数等于自身各位数字之立方和，则这个三位数就称为是水仙花数。如:153=13+53+33，所以153是一个水仙花数。求所有的水仙花数。（用for、repeat、while三种方法解）

51、A、B两个自然数的和、差、积、商四个数加起来等于243，求A、B两数。 52、输出100 以内的全部素数，要求每行显示5 个。

53、有三种明信片:第一种每套一张，售价2元；第二种每套一张，售价4元； 第三种每套9张，售价2元。现用100元钱要买100张明信片，要求每种明信片至少要买一套，问三种明信片应各买几套？请输出全部购买方案。 54、某人想把一元钱换成伍分、贰分、壹分这样的零钱， 在这三种零钱中每种零钱都至少各有一个的情况下，共有多少种兑换方案。并打出这些方案。

55、百钱买百鸡：今有钱100元，要买100只鸡，公鸡3元一只，母鸡1元一只，小鸡1元3只，若公鸡、母鸡和小鸡都至少要买1只，请编程求出恰好用完100元钱的所有的买鸡方案。

第9页 （共15页）

56.编程打印出如下图案：（用for、repeat、while三种方法解） 1 222 33333 4444444 555555555

57、编程序打印出下列图案：

平行四边形 等腰三解形 菱形 ****** * * ****** *** *** ****** ***** ***** ****** ******* *** ****** ********* *

58、求两个自然数M和N的最大公约数。

59、校体操队到操场集合,排成每行2人,最后多出1人;排成每行3人,也多出1人;分别按每行排4,5,6人,都多出1人;当排成每行7人时,正好不多。求校体操队至少是多少人?

60、从键盘输入一个整数X（X不超过10000），若X的各位数字之和为7的倍数，则打印“Yes”，否则中打印“No”。 61、求1992个1992的乘积的末两位数是多少？

62、尼科彻斯定理：将任何一个正整数的立方写成一组相邻奇数之和。 如: 33=7+9+11=27 43=13+15+17+19=64

63、猜价格：中央电视台的“幸运52”栏目深受观众喜爱，其中的“猜商品价格”的节目更是脍炙人口，现在请你编一个程序模拟这一游戏：由计算机随机产生200至5000之间的一个整数，作为某件商品的价格，然后由你去猜是多少，若你猜的数大了，则计算机输出提示“Gao”，若你猜的数小了，则计算机输出提示“Di”，然后你根据提示继续猜，直到你猜对了，计算机会提示“Ok”，并统计你猜的总次数。

第10页 （共15页）

本文来源：https://www.bwwdw.com/article/v0xf.html