pascal编程练习题

1、扫描识别

SCAN.BAS/SCAN.PAS/SCAN.C/SCAN.CPP

【问题描述】 “扫描识别”你知道是怎么回事吧？它的意思就是：先用扫描仪把纸上的文字扫描成一个图片，再用识别软件把那个图片中的文字识别出来，最后生成一个文本文件。这对于需要把大量的纸稿录入成电子文档的人来说，当然是非常方便的。 以现有的技术，扫描效果是比较理想的，但识别效果还不十分另人满意，经常会出现错误，尤其是当两个字形状特别接近的时候，而且，这种错误是很难用眼睛看出来的。

我们的纸稿上有一个数字串，识别之后得到的字符串保存在输入文件中，这个串可能有识别错误。已知，可能出现的错误有如下几种：

1、 把数字0错误地识别为大写字母O； 2、 把数字1错误地识别为小写字母l； 3、 把数字2错误地识别为大写字母Z； 4、 把数字5错误地识别为大写字母S； 5、 把数字6错误地识别为小写字母b； 6、 把数字8错误地识别为大写字母B；

7、 把数字9错误地识别为小写字母q。

你的改正方案是：如果字符串中出现了上述字母，请替换为原来的数字。最后把改正之后的数字串输出。 【输入文件】 文件名：SCAN.IN

文件中只有一个字符串，表示识别后得到的字符串。串的长度不超过100。 【输出文件】 文件名：SCAN.OUT 文件中只有一个数字串，表示改正后的数字串。 【样例输入】 321lO88BqS 【样例输出】 3211088895

2、寻找2的幂

CLOSE.BAS/CLOSE.PAS/CLOSE.C/CLOSE.CPP

【问题描述】 数学上把 叫2的幂，如4、8、16 32等。给定一个整数 ，请输出距离它最近的那个2的幂是多少。如果有两个距离相同，输出那个小的。 【输入文件】

文件名：CLOSE.IN

文件中只有一个整数。

数据范围<=1000000000000000

【输出文件】 文件名：CLOSE.OUT

文件中只有一个整数，表示距离 最近的那个2的幂。 【样例输入】 17

【样例输出】 16

3、循环的零（3.pas）

请编程求1×2×3×??×N所得的数末尾有多少个0？（N由键盘输入 N〈10000〉 【输入样例】：10 【输出样例】：2

4、小青蛙回来了

IAMBACK.BAS/IAMBACK.PAS/IAMBACK.C/IAMBACK.CPP

【问题描述】

关于小青蛙爬井的故事，你应该早就听过了：井深10尺，小青蛙从井底向上爬，每个白天向上爬3尺，每个晚上又滑下来2尺，然后问你第几天它能爬上来。答案是第8天。 现在，那只著名的小青蛙又回来了，它现在每个白天已经可以向上爬 （ ）尺了，当然，晚上还是要下滑 （ ）尺的。如果告诉你井深 （ ）尺，请计算一下，现在，它第几天可以爬上来。

【输入文件】 文件名：IAMBACK.IN

文件中有三个整数，分别表示白天爬的高度、晚上掉下来的高度、井的高度。 数据范围<=10000000 【输出文件】 文件名：IAMBACK.OUT 文件中只有一个整数，表示第几天可以爬上来。 【样例输入】 3 2 10

【样例输出】 8

5、循环的名次（2.pas）

在某市的学生信息学竞赛中有15名选手（选手序号分别为1、2、3、??、14、15），参加了最后的决赛。决赛的规则是决赛名次按选手得分高低排列，即最高分是第1名，其他类推；假设有N名选手获得相同分数，则他们的名次相同，而该名次后面的N-1个名次空缺（如：第2名若有两位选手，则第3名空缺）；具体如下例所示：

选手序号： 1， 2， 3， 4， 5， 6， 7， 8， 9， 10， 11， 12， 13， 14， 15 选手得分：75， 76， 77， 78， 79， 80， 80， 80， 81， 82， 83， 84， 86， 85， 84 选手名次：15， 14， 13， 12， 11， 8， 8， 8， 7， 6， 5， 3， 1， 2， 3

请编程完成根据决赛分数产生选手名次的工作。各选手得分按序号由键盘输入，输出为选手名次。 【输入样例】：75 76 77 78 79 80 80 80 81 82 83 84 86 85 84 【输出样例】：15 14 13 12 11 8 8 8 7 6 5 3 1 2 3

第6题 积 木

（100分 存盘程序名：T3）

【问题描述】

在一个矩形的坑的底部，无缝地铺了一层积木（为简单起见，本题中，用矩形表示积木），如下图所示（阴影部分表示地，中空的部分表示坑，所有的白色矩形都表示坑底的积木）：