《Pascal练习参考答案》由会员分享，可在线阅读，更多相关《Pascal练习参考答案（9页珍藏版）》请在金锄头文库上搜索。
1、if1. 假设邮局规定寄邮件时若每件重量在1公斤以内(含1公斤)，按每公斤1.5元计算邮费，如果超过1公斤时，其超出部分每公斤加收0.8元。请编程序计算邮件收费。2. 输入三个正整数，若能用这三个数作为边长组成三角形，就输出y，否则输出N。(组成三角形的条件为：任意两边之和大于第三边)。3. 某服装公司为了推销产品，采取这样的批发销售方案:凡订购超过100 套的，每套定价为50 元，否则每套价格为80元。编程由键盘输入订购套数，输出应付款的金额数。4. 从键盘读入一个数，判断它的正负。是正数，则输出“+”，是负数，则输出“-”，是0，则输出0。5. 判断两个数a，b，输出较大数的平方值。6.
2、某市的士费起步价8元，可以行使3公里。3公里以后，按每公里1.6元计算，手动输入的士行驶公里数，请你计算顾客需付费多少元？7. 输入某学生成绩，根据成绩的好坏输出相应评语。如果成绩在90 分以上（含90），输出评语：优秀（outstanding）。如果成绩在60分到90分之间，输出评语：良好（satisfactory）。如果成绩不足60分，输出评语：不及格（unsatisfactory）。8. 输入三角形的三边，判断它是否是直角三角形。9. 对一批货物征收税金。价格在1 万元以上（含1万）的货物征税5%，在5000 元（含5000）以上，1 万元以下的货物征税3%，在1000元以上（含1000
3、），5000元以下的货物征税2%，1000元以下的货物免税。编写一程序，读入货物价格，计算并输出税金（保留2位小数）。10. 输入三角形的三个边，判断它是何类型的三角形（等边DB，等腰DY，一般YB，不能构成三角形NO）。11. 输入三个数，按由大到小顺序打印出来。12. 输入三个数a，b，c，输出它们的平均值，并输出b与平均数的差的绝对值（保留两位小数）。13. 读入三个整数，如果都是都是偶数，输出它们的平均数（保留两位小数），如果都是奇数，则输出它们的和，如果既有偶数又有奇数，则输出0。14. 输入一个三位数的整数，将数字位置重新组合，判断组合数中，最大数和最小数的差的奇（j）偶（o）性。
4、case1. 月收入T的所得税税率R如下：T RTT=1000 5%3000T=2000 10%T=3000 20%分别用IF语句和CASE语句编写程序，输入月收入，输出所得税率、应缴所得税款以及扣除所得税后的实际收入。2. 将字母A、B、C 、D或a、b、c、d转换成1、2、3、4，其余的字符转换成5。for1. 输出100-1000之间的所有能被3整除的奇数。2. 编写一个评分程序，接受用户输入10个选手的得分(0-10分)，然后去掉一个最高分和一个最低分，求出某选手的最后得分(平均分)。3. 计算n！，其中n由键盘输入。4. 计算100之内所有的奇数之和。5. 求菲波拉契数列a0,a1,
5、a2,a20。 a0=0,a1=1,a2=a1+a0,a3=a2+a1,an=an-1+an-2; 如0,1,1,2,3,5,8,13,21,6. 输出20个数中的最大值和最小值。7. 按字母表的顺序，从字母A到Z顺序打印输出。8. 输入30个学生成绩，分别统计成绩在85100分，6085分，60分以下，各分数段中的人数。while1. 用WHILE循环完成如下3题：s=1+4+7+298求s=1+2+3+4+10求s=1+1/2+1/3+1/100s12+22+32+1002求的值。已知/4=1 1/3 +1/5 1/7 + 1/9 - ，要求最后一项小于10-6为止。2. 输入任一的自然数
6、A, B, 求A , B的最小公倍数。3. Faibonacci数列前几项为: 0,1,1,2,3,5,8,其规律是从第三项起, 每项均等于前两项之和。求前30项,并以每行5个数的格式输出。4. 小球从100高处自由落下,着地后又弹回高度的一半再落下。求第20次着地时, 小球共通过多少路程?5. 鸡兔同笼,头30,脚90, 求鸡兔各几只？repeat1. 用REPEAT循环完成如下3题： s=1+4+7+298 求s=1+2+3+4+10 求s=1+1/2+1/3+1/100 s12+22+32+1002 求的值。已知/4=1 1/3 +1/5 1/7 + 1/9 - ，要求最后一项小于10-
7、6为止。2. 读一组实数,遇零终止,打印其中正、负数的个数及各自的总和。3. 计算sin（x）=X-X3/3！+X5/5！-X7/7！+直到最后一项绝对值小于10-7时停止计算，x由键盘输入 。4. 用辗转相除法求两个自然数的最大公约数。5. 找出被2、3、5除时余数为1的最小的十个数。6. 将一根长为369cm的钢管截成长为69cm和39cm两种规格的短料。在这两种规格的短料至少各截一根的前提下, 如何截才能余料最少。多重循环1. 求s=1!+2!+3!+10!2. 求s=1+1/2!+1/3!+1/10!3. 求s=11+22+33+.+NN4. 把一张一元钞票换成一分，二分和五分的硬币，
8、每种至少一枚。问有哪几种换法？5. 输入一个整数，若是素数，输出“YES”，否则输出“NO”6. 任给一个自然数n，求出这个自然数不同因数的个数。如：n=6时，因为1，2，3，6这四个数均是6的因数，故输出为total=4。7. 输入二个正整数，求出它们的最大公约数和最小公倍数。8. 输入一列图形（字母金字塔）aa ba b c. .a b c y z9. 1-100之间的所有素数（素数是大于1，且除1和它本身外，不能被任何其它整数所整除的整数）。(4.28)10. 哥德巴赫猜想（任何充分大的偶数都可由两个素数之和表示）。将4-100中的所有偶数分别用两个素数之和表示。输出为：4=2+26=3
9、+3.100=3+9711. 某人想将手中的一张面值100 元的人民币换成10 元、5 元、2 元和1 元面值的票子。要求换正好40张，且每种票子至少一张。问：有几种换法？应适当考虑减少重复次数。12. 百鸡问题：一只公鸡值5元，一只母鸡值3元，而1元可买3只小鸡。现有100元钱，想买100只鸡。问可买公鸡、母鸡、小鸡各几只？13. 编写一程序，验证角谷猜想。所谓的角谷猜想是：“对于任意大于1的自然数n，若n为奇数，则将n变为3*n+1，否则将n变为n的一半。经过若干次这样的变换，一定会使n变为1。”14. 有一堆100多个的零件，若三个三个数，剩二个；若五个五个数，剩三个；若七个七个数，剩五
10、个。请你编一个程序计算出这堆零件至少是多少个？枚举类型和子界类型1. 变量s已定义如下：var s(knife,rule,pen,rubber)且s中已有值，试写一程序，输出s中的值。2. 定义枚举类型monthtype表示十二个月，输入1-12中的某一个数，输出对应月份的英文缩写和表示下一个月的数字。如输入：6输出：jun next month: 73. 由五个字符组成一个字符串，规定前四个字符为小写字母，第五个字符为数字，问有多少种排列方法。4. 类型定义 type ren=A.F用A至F表示6个人，输出6个人相互握手的各种情况，并统计握手的次数。5. 从红(red)、黄(yellow)、兰(blue)、白(white)、黑(black)五种颜色的球中，任取三种不同颜色的球，求所有可能的取法？6. 一家水果店出售4种水果，每千克价格分别是：苹果1.15元，桔子1.20元，香蕉0.95元，菠萝0.85元。编一程序使售货员主要从键盘上打入货品的代码及重量，计算机将显示货品名、单价、重量及总价。货品代码为苹果1，桔子2，香蕉3，菠萝4。
