资源描述：
《pascal练习参考答案》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。
1、if1.假设邮局规定寄邮件时若每件重量在1公斤以内(含1公斤)，按每公斤1.5元计算邮费，如果超过1公斤时，其超出部分每公斤加收0.8元。请编程序计算邮件收费。2.输入三个正整数，若能用这三个数作为边长组成三角形，就输出y，否则输出N。(组成三角形的条件为：任意两边之和大于第三边)。3.某服装公司为了推销产品，采取这样的批发销售方案:凡订购超过100套的，每套定价为50元，否则每套价格为80元。编程由键盘输入订购套数，输出应付款的金额数。1.从键盘读入一个数，判断它的正负。是正数，则输出“+”，是负数，则输出“-”，是0，则输出0。2.判断两个数a，b，输
2、出较大数的平方值。3.某市的士费起步价8元，可以行使3公里。3公里以后，按每公里1.6元计算，手动输入的士行驶公里数，请你计算顾客需付费多少元？1.输入某学生成绩，根据成绩的好坏输出相应评语。如果成绩在90分以上（含90），输出评语：优秀（outstanding）。如果成绩在60分到90分之间，输出评语：良好（satisfactory）。如果成绩不足60分，输出评语：不及格（unsatisfactory）。2.输入三角形的三边，判断它是否是直角三角形。1.对一批货物征收税金。价格在1万元以上（含1万）的货物征税5%，在5000元（含5000）以上，1万元以
3、下的货物征税3%，在1000元以上（含1000），5000元以下的货物征税2%，1000元以下的货物免税。编写一程序，读入货物价格，计算并输出税金（保留2位小数）。2.输入三角形的三个边，判断它是何类型的三角形（等边DB，等腰DY，一般YB，不能构成三角形NO）。1.输入三个数，按由大到小顺序打印出来。2.输入三个数a，b，c，输出它们的平均值，并输出b与平均数的差的绝对值（保留两位小数）。3.读入三个整数，如果都是都是偶数，输出它们的平均数（保留两位小数），如果都是奇数，则输出它们的和，如果既有偶数又有奇数，则输出0。1.输入一个三位数的整数，将数字位置
4、重新组合，判断组合数中，最大数和最小数的差的奇（j）偶（o）性。case1.月收入T的所得税税率R如下：TRT<100002000>T>=10005%3000>T>=200010%T>=300020%分别用IF语句和CASE语句编写程序，输入月收入，输出所得税率、应缴所得税款以及扣除所得税后的实际收入。1.将字母A、B、C、D或a、b、c、d转换成1、2、3、4，其余的字符转换成5。for1.输出100-1000之间的所有能被3整除的奇数。2.编写一个评分程序，接受用户输入10个选手的得分(0-10分)，然后去掉一个最高分和一个最低分，求出某选手的最后得分
5、(平均分)。3.计算n！，其中n由键盘输入。4.计算100之内所有的奇数之和。5.求菲波拉契数列a0,a1,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个学生成绩，分别统计成绩在85—100分，60—85分，60分以下，各分数段中的人数。while1.用WHILE循环完成如下3题：①s=1+4+7+…+298②求s=1+2+3+4+…+10③求s=1+1/2
6、+1/3+…+1/100④s＝12+22+32+……+1002⑤求π的值。已知π/4=1–1/3+1/5–1/7+1/9-……，要求最后一项小于10-6为止。2.输入任一的自然数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、7+…+298②②求s=1+2+3+4+…+10③③求s=1+1/2+1/3+…+1/100④④s＝12+22+32+……+1002⑤⑤求π的值。已知π/4=1–1/3+1/5–1/7+1/9-……，要求最后一项小于10-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两
8、种规格的短料。在这两种规格的短料至少各截一根的前提下,如何截才能余
