Pascal百题练习

1、1、 有一数字如下：65436543654365436543循环排列，（1） 输入一个数字n，输出第n个数字。如输入3则输出为4，输入1则输出为6。 （2）输入一个数字n,在屏幕上输出如题数字，每行30个数字。 (3)输入一个数字n，输出所有数字4所在的位数。 如输入15，输出4所在的位置，即3 7 11 152、有一字符串如下：EDCBAEDCBAEDCBA.循环排列，(1)输入一个整数n，输出第n位字符。如输入3输出为C，输入1则输出为E。 (2)输入一个整数n，在屏幕上输出如题字母，每行30个字母。 (3)输入一个数字n，输出所有1-n范围内字母C所在的位数,场宽4。 如输入15，输出D

2、所在的位置，即2 7 12 3、输入一字符，如该字符为小写字母，则转换成大写并输出；如该字符为大写字母，则转换成小写并输出，如果输入是数字则将该数字转成整数并输出该整数。否则输出Error,即错误。如输入a则输出为A，如输入为B则输出为b，如输入9则转成整数9并输出。（提示：a小写字母z，A大写字母Z）4、输入三个数，判断这三个数能否作为边长组成三角形，如果能组成则输出TRUE，不能组成三角形则输出FALSE。5、输入三个数，按从大到小的顺序输出。如，输入15 20 16 ，输出为20 16 156、输入一个三位整数，输出一个新三位数，使其百位数最大，个位数最小。如，输入315，输出531。7

3、、输入四个整数，输出四个数中的最大值和最小值。（分两行输出）8、输入一个秒数，转换成小时、分、秒并输出。如输入4500，输出为1:15:0。9、有鸡兔同笼，现发现有头30个脚90只，试编程算出鸡兔各多少只并输出。10、有五个好朋友相聚，第一个朋友带来很多糖块赠送给各位好友，使每人的糖块在原来的基础上增加了一倍，第二个朋友也向各位朋友分发糖块，使每人在已有糖块的基础上又增加了一倍，第三、第四、第五位朋友都照此办理，最终每人刚好都有32块糖，请编程算出原来每位好友各有多少糖块。11、假设邮局规定寄邮件时若每件重量在1公斤内（含1公斤）以每公斤1.5元收取邮费，超过部分按每公斤0.8元收取邮费。编程

4、输入邮件重量，输出应收邮费。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。（用两种方法解）输入格式：输入两个数据，之间用一个空格隔开，第一个数据是小写字母，第二个数据是一个正整数。输出格式输出一个

5、字符，表示移位后的字母。样例输入： b 3 样例输出：e15、输入一个年份，判断是否是闰年，是则输出Yes，否则输出No（年份能被4整除，并且不能被100整除，或年份能被400整除即为闰年。） (用IF和CASE两种方法)。16、输入一个5位数，判断它是不是回文数。即12321是回文数，个位与万位相同，十位与千位相同。17、读入一个小写字母，如果它的ASCII码是奇数，输出其后继字母，如果它的ASCII码是偶数，则输出其前趋字母。输入：f（ASCII码102） 输出：e18. 输入两个两位数，它们各位上的数字互不相等，如果这两个两位数的乘积等于把它们各自位上的数字交换后所得的新的两位数的乘积，

6、输出等式，否则输出不等式。例如：输入：12  63 输出：12*63=21*36输入：12  34 输出：12*34<>21*4319. 给出一个英文字母，要求按字母顺序输出5个字母，给定的字母是五个字母中间的一个字母。例如，给定的字母是“R”，应输出PQRST；给定的字母是“Z”，应输出XYZAB；给定的字母是“B”应输出ZABCD，其余类推。（用两种方法解）输入：R 输出：PQRST输入：Z 输出：XYZAB20、编程模拟剪刀石头布游戏，J表示剪，S表示石，B表示包。根据游戏者自己输入，计算机出结果。21、现有1,2,3,4,5n整数分多排排列，其中每排放x

7、个，（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 1622、输入两个正整数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

8、、已知2012年1月2日是星期一，输入2012年的一个月和日，输出该天是这一年中的第几天？并输出是星期几？如输入12 20 输出为354 5。（星期天用7表示）25、四个同学上地理课，回答我国四大淡水湖泊大小的时候是这样说的： 甲：最大洞庭湖，最小洪泽湖，鄱阳湖第三。 乙：最大洪泽湖，最小洞庭湖，鄱阳湖第二，太湖第三。 丙：最小洪泽湖，洞庭湖第三。 丁：最大鄱阳湖，最小太湖，第二，洞庭湖第三。对于每个湖的大小，每个学生仅答对一句，请编程确定四个湖的大小。26、有N盏灯放在一排，从1到N依次编号，有N个人也从1到N依次编号，第一个人将灯全部打开，第二个人将凡是2的倍数的灯全部关闭，第三个人将凡是

9、3的倍数的灯作相反处理，第4、5、N个人都把自己编号的倍数的灯作相反处理。问第N个人走过后，哪些灯是开着的？27、将一张面值100元的纸币换成若干张面值为1元，2元和5元的纸币，共有多少种换法？要求输出每一种换法。28、A、B两个自然数的和、差、积、商四个数加起来等于243，求A、B两数。29、一个自然数是素数，且它的数字位置经过任意对换后仍为素数，则称为绝对素数，例如：13。试找出所有二位绝对素数。30、输出如下图形（单重循环用取余数和计数器两种方法解，再用双重循环做）12345678931、从键盘输入一个n(1<=n<=9)，输出n行数字倒三角图形如输入5  

10、;   1        21        321       4321        5432132、输出如下数字图形    1    2 3     4 5 6    7 8 9 1033、百鸡百钱问题：一只公鸡值

11、5元，一只母鸡值3元，而1元可买3只小鸡。现有100元钱，想买100只鸡。问问买公鸡、母鸡、小鸡各几只？34、输出如下图形：   *   #   *   #   *35、有五个小朋友，分别得到a,b,c,d,e个糖果。他们围成一个圈，按序号相邻，第五个小朋友又和第一个小朋友相邻。 现在老师让他们玩一个游戏，每个小朋友都把自己的糖果平均分成2分，将2份分给相邻的两个小朋友。 如果是奇数还余下一颗，自己就吃掉。当5个小朋友依次分完糖后，最后请你按1-5号的顺序在一行里输出每个小朋友手里还有

12、多少糖,换一行输出以及这些小朋友共吃掉了几颗糖。36、星期天上午小明乘出租车去本市的外婆家。出租车计价方案为：2公里以内起步价是6元，超过2公里之后按1.8元/公里计价，超过10公里之后在1.8元/公里的基础上加价50%，另外，停车等候则按时间计费：1元/3分（注：不满3分钟不计费）。已知：小明到外婆家路程为N公里，中间停车等候时间总共M分钟，请计算小明到外婆家的出租车费用是多少元? 输入：N M（N，M都是整数） 输出：一个实数（表示车费，精确到0.1元） 例如：输入：8 7 输出：18.837、输入年、月，输出该年该月的天数；（练习case语句）38、Pascal循环练习题 计算1+(1+

13、2)+(1+2+3)+.+(1+2+.+n)（用for、repeat、while三种方法解）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万

14、元以下但在5000元以上的征收税3%；在5000元以下但在1000元以上征收税2%；1000元以下的免收税。编程计算该产品的收税金额。44、运输公司计算运费时，距离(S)越长，每公里运费越低，标准如下:      如果S250公里；运费为标准运价的100%                      如果250公里S500公里，运费为标准运价的98%

15、；           如果500公里S1000公里，运费为标准运价的95%；          如果1000公里S2000公里，运费为标准运价的92%；         如果2000公里S3000公里，运费为标准运价的90%；         如果S3000公里，运费为标准运价的85%；

16、。请编计算运费的程序。45、一个两位数x，将它的个位数字与十位数字对调后得到一个新数y，此时y 恰好比x大36，请编程求出所有这样的两位数。46、把整数3025从中剪开分为30和25两个数，此时再将这两数之和平方，(30+25)2=3025计算结果又等于原数。求所有符合这样条件的四位数。47、从七张扑克牌中任取三张，有几种组合方法？请编程输出所有组合形式。48、数学上把除了1和它本身，没有别的数能够整除它的自然数叫做素数(或质数)。现在由键盘输入一个自然数N，编程判断N是否是素数，是则输出“Yes”，否则输出“No”。49、有一个三位数，它的各位数字之和的11倍恰好等于它自身，请编程求出这个三

17、位数。（用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张明信片，要求每种明信片至少要买一套，问三种明信片应各买几套？请输出全部购买方案。

18、54、某人想把一元钱换成伍分、贰分、壹分这样的零钱， 在这三种零钱中每种零钱都至少各有一个的情况下，共有多少种兑换方案。并打出这些方案。55、百钱买百鸡：今有钱100元，要买100只鸡，公鸡3元一只，母鸡1元一只，小鸡1元3只，若公鸡、母鸡和小鸡都至少要买1只，请编程求出恰好用完100元钱的所有的买鸡方案。56.编程打印出如下图案：（用for、repeat、while三种方法解）          1         222&

19、#160;       33333       4444444      55555555557、编程序打印出下列图案：平行四边形            等腰三解形菱形*          *   &

20、#160;          *   *          *                *  *          *  &

21、#160;           * *          *              *          *     

22、0;        *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  

23、;          43=13+15+17+19=6463、猜价格：中央电视台的“幸运52”栏目深受观众喜爱，其中的“猜商品价格”的节目更是脍炙人口，现在请你编一个程序模拟这一游戏：由计算机随机产生200至5000之间的一个整数，作为某件商品的价格，然后由你去猜是多少，若你猜的数大了，则计算机输出提示“Gao”，若你猜的数小了，则计算机输出提示“Di”，然后你根据提示继续猜，直到你猜对了，计算机会提示“Ok”，并统计你猜的总次数。64、求两个自然数M和N的最小公倍数。（如果求三个或更多个数的最小公倍数呢

24、？应如何解决）65、小会议室里有几条相同的长凳,有若干人参加开会。如果每条凳子坐6人,结果有一条凳子只坐有3人;如果每条凳子坐5人,就有4人不得不站着。求会议室里有多少人开会,有多少条长凳?66、某动物饲养中心用1700元专款购买小狗(每只31元)和小猫(每只21元)两种小动物。要求专款专用,正好用完, 应当如何购买?请输出所有方案。67、某整数X加上100就成为一个完全平方数,如果让X加上168 就成为另一个完全平方数。求X?68、某次同学聚会,老同学见面个个喜气洋洋,互相握手问好。参加此次聚会者每人都与老同学握了一次手,共握903次,试求参加聚会的人数？69、输入年、月、日，输出该天是一年

25、中第几天，该天距年底还有几天；70、输入年、月、日和天数，输出该天经过指定天数后的日期； 如输入2012 1 5 20 输出为2012 1 2571、输入时、分和一个分钟数，输出经过该分钟数的时间 如输入5时30分，180分，输出经过180钟后的时间，即8时30分。72、编程求1平方+2平方+.+n平方（用for、repeat、while三种方法解）73、编程求1+1/2+1/3+.+1/n（用for、repeat、while三种方法解）74、编程求1-1/2+1/3-1/4+1/5-1/6.+1/n（用for、repeat、while三种方法解）75、编程求1-2+3-4+5-6+.+ n（

26、用for、repeat、while三种方法解）76、编程计算1+(1+1/2)+(1+1/2+1/3)+ (1+1/2+1/3+1/4).+(1+1/2+.+1/n)（用for、repeat、while三种方法解）77、求100+97+4+1的值（用for、repeat、while三种方法解）78、找出1N中能被5整除且至少有一位数字是5的所有整数的个数.N<3276779、编程求正整数M与N之间的所有素数的个数.（M<=N）80、现有1,2,3,4,5n整数分多列排列，其中每列放x个，（1）输入n、x，编程输出n在第几排第几列。 如输入16 3，输出1 6 （2）输入n、x，编程

27、在屏幕上输出如下排列的数字 1 4 7 10 13 16 2 5 8 11 14 3 6 9 12 1581、算算以.结束的一串字符中含有多少个大写的英文字母。82、输入整数n,输出数中各位数之和。 如输入3541，输出为13，输入125，输出883、输出100 以内的全部素数，要求每行显示5 个。84、A、B两个自然数的和、差、积、商四个数加起来等于243，求A、B两数。85、求两个自然数M和N的最大公约数。86、从键盘输入一个整数X（X不超过10000），若X的各位数字之和为7的倍数，则打印“Yes”，否则中打印“No”。87、算算以#结束的一串字符中字母A、B、C各有几个（不区分大小写）

28、 输入一字符串如ABcdAbCD#，输出A 2 B 2 C 288、输出如下数字图形    1    2 3 4     5 6 7 8 9    7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 2289、输出如下图形：   *   #   *   #   *90、编程计算1*3+3*5+5*7+7*9+99*10191、Faibo

29、nacci数列前几项为: 0,1,1,2,3,5,8,其规律是从第三项起, 每项均等于前两项之和。求前30项,   并以每行5个数，场宽6的格式输出。92、给出某整数N,将N写成因数相乘的形式。如: N=12,输出: 12=1*2*2*3.93、求满足条件 N！ 100000 的最大值N94、给出一个正整数N（1N100），即可得到一个由N 个正整数组成的从1开始的如下数列：1，2，3，4，N-2,N-1,N，且可求出从1开始的这N个数的全部各个数位上的数字之和。 例如：当N=12时，这12个数是：1，2，3，4，5，6，7，8，9，10，11，12。则这12个数的数字之和

30、为： S=1+2+3+4+5+6+7+8+9+1+0+1+1+1+2=51 95、小明坐公交车去学校，他从公交站台上车后，数了一下车上的人数。此后公交车每次到站，小明都数一下有多少名乘客上车，小明下车之前，又数了一下车上剩下的乘客的数目，问期间有多少名乘客下车。输入数据的第一行是一个整数N（1N100），表示小明坐车经过了多少站。按下来N 行每行包含一个整数x（0x10），表示在这一站有多少名乘客上车。此后还有一行包含两个整数A（0A20）和B（0N20），分别表示小明上车时车上乘客的数目和他下车时车上乘客的数目。输出数据只有一行，是小明坐车期间下车的乘客数目。【样例输入】35678 9【样例

31、输出】1795编程序打印出下列图案：平行四边形            等腰三解形菱形*          *              *   *        

32、0; *                *  *          *              * *          *              *          *              *96编程打印出如