Pascal上机习题

《Pascal上机习题》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第一章　初识Pascal语言【上机练习】1.输入三个数，计算并输出它们的平均值以及三个数的乘积，写出程序。2.输入圆的半径R，求圆的面积和周长。3.加法计算器：编程由键盘输入两个整数a和b，将它们的和输出到屏幕上。4.某梯形的上底、下底和高分别为8，12，9，求该梯形的面积。5.已知图圆柱体的高为12，底面圆的半r径为7，求圆柱体表面积。6.进入Fp，调试以下程序：programex1_6;vars:string;beginwrite(‘Pleaseinputyourname’);readln(s);writeln(s,’isthebest.’);end.第二章顺序结构【

2、上机练习2.4】1.已知某梯形的上底A=13，下底B=18，高H=9，求它的面积S。2.已知某圆的半径R=139，求该圆的周长C与面积S？3.输入长方形的边长a,b，计算它的面积和周长，输出。4.读入摄氏温度c，写程序将它转换成华氏温度f输出。已知f=9c/5+325.输入三个字符，输出每个字符的序号，然后反向输出这三个字符。(求序号用ORD函数)6.输入一个三位自然数，把这个数的百位与个位数对调，输出对调后的自然数。7.键盘输入两个实数，经过取整操作后，将其整数部分交换值后输出。【上机练习2.7】1.有三个小朋友甲乙丙。甲有50粒糖果，乙有43粒糖果，丙有13粒糖果。现

3、在他们做一个游戏。从甲开始，将自己的糖分三份，自己留一份，其余两份分别给乙与丙，多余的糖果自己吃掉，然后乙与丙也依次这样做。问最后甲、乙、丙三人各有书多少粒糖果？2.交换两个变量的值：由键盘输入两个正整数A和B，编程交换这两个变量的值。3.编写程序把一个三位整数反转，例如358反转成853。4.某车棚存有自行车和三轮车共65辆，它们的轮子数合计为150个，求该棚内存有的自行车和三轮车各是多少辆？5.五位好朋友相聚。第一位朋友带来了很多糖块赠送给各位朋友，使每人的糖块在各自原有的基础上翻了一倍；接着第二位好友也同样向每人赠送糖块，他同样使每人的糖块在各人已有的数量上翻了一倍

4、；第三、第四、第五位好友都照此办理。经过这样的赠送之后，每人的糖块恰好都为32块。问各位好友原先的糖块数分别是多少?6.从键盘输入a、b、c求一元二次方程ax2+bx+c=0的两个实数根(不考虑无解的情况)。第三章选择结构【上机练习3.2】1、假设邮局规定寄邮件时若每件重量在1公斤以内(含1公斤)，按每公斤1.5元计算邮费，如果超过1公斤时，其超出部分每公斤加收0.8元。请编程序计算邮件收费。2、输入三个正整数，若能用这三个数作为边长组成三角形，就计算并输出该三角形的面积，否则输出Can't。(组成三角形的条件为：任意两边之和大于第三边)3、输入一个三位数的整数，将数字位

5、置重新排列，组成一个尽可大的三位数。例如：输入213，重新排列可得到尽可能大的三位数是321。4、输入一个整数，打印出它是奇数还是偶数。5、某服装公司为了推销产品，采取这样的批发销售方案:凡订购超过100套的，每套定价为50元，否则每套价格为80元。编程由键盘输入订购套数，输出应付款的金额数。6、从键盘读入一个数，判断它的正负。是正数，则输出“+”，是负数，则输出“-”。7、判断两个数a，b，输出较大数的平方值。8、某市的士费起步价8元，可以行使3公里。3公里以后，按每公里1.6元计算，输入的士的公里数，请你计算顾客需付费多少元？【上机练习3.3】1．输入某学生成绩，根据

6、成绩的好坏输出相应评语。如果成绩在90分以上，输出评语：优秀（outstanding）。如果成绩在60分到90分之间，输出评语：良好（satisfactory）。如果成绩不足60分，输出评语：不及格（unsatisfactory）。2．输入三角形的三边，判断它是否是直角三角形。3．给一个不多于三位的正整数，求出它是几位数，并分别打印出各位上的数字。4．对一批货物征收税金。价格在1万元以上的货物征税5%，在5000元以上，1万元以下的货物征税3%，在1000元以上，5000元以下的货物征税2%，1000元以下的货物免税。编写一程序，读入货物价格，计算并输出税金。5．输入三角

7、形的三个边，判断它是何类型的三角形（等边DB？等腰DY？一般YB？）。6．输入三个数，按由大到小顺序打印出来。7．将字母A、B、C、D或a、b、c、d对应输出1、2、3、4，其余的字符输出5。8．输入三个数a，b，c，打印出最大者．【上机练习3.5】1．从键盘读入两个数，比较其大小，把大数置于x，小数置于y，请设计该程序。2．函数的表达式如下：0    (x<0)x    (0≤x<10)y=     10      (10≤x<20)-0.5x+20     (20≤x<40)-2x+40       (40≤x)编写程序，