Pascal语言配套练习.doc

第一章　初识Pascal语言 【上机练习】 1. 输入三个数，计算并输出它们的平均值以及三个数的乘积，写出程序。 2. 输入圆的半径R，求圆的面积和周长。 3. 加法计算器：编程由键盘输入两个整数a和b，将它们的和输出到屏幕上。 4. 某梯形的上底、下底和高分别为8，12，9，求该梯形的面积。 ( 梯形面积公式为 S= 5. 已知图圆柱体的高为12，底面圆的半径为7，求圆柱体表面积。 6. 进入Fp，调试以下程序： program ex1_6; var s : string; begin write(‘Please input your name’); readln(s); writeln(s,’ is the best.’); end. 第二章 顺序结构 【上机练习2.4】 1.已知某梯形的上底A=13，下底B=18，高H=9，求它的面积S。 2.已知某圆的半径R=139，求该圆的周长C与面积S？ 3.输入长方形的边长a,b，计算它的面积和周长，输出。 4.读入摄氏温度c，写程序将它转换成华氏温度f输出。已知f=9c/5+32 5.输入三个字符，输出每个字符的序号，然后反向输出这三个字符。(求序号用ORD函数) 6.输入一个三位自然数，把这个数的百位与个位数对调，输出对调后的自然数。 7.键盘输入两个实数，经过取整操作后，将其整数部分交换值后输出。 【上机练习2.7】 1.有三个小朋友甲乙丙。甲有50粒糖果，乙有43粒糖果，丙有13粒糖果。现在他们做一个游戏。从甲开始，将自己的糖分三份，自己留一份，其余两份分别给乙与丙，多余的糖果自己吃掉，然后乙与丙也依次这样做。问最后甲、乙、丙三人各有书多少粒糖果？ 2.交换两个变量的值：由键盘输入两个正整数A和B，编程交换这两个变量的值。 3.编写程序把一个三位整数反转，例如358反转成853。 4.某车棚存有自行车和三轮车共65辆，它们的轮子数合计为150个，求该棚内存有的自行车和三轮车各是多少辆？ 5.五位好朋友相聚。第一位朋友带来了很多糖块赠送给各位朋友，使每人的糖块在各自原有的基础上翻了一倍；接着第二位好友也同样向每人赠送糖块，他同样使每人的糖块在各人已有的数量上翻了一倍；第三、第四、第五位好友都照此办理。经过这样的赠送之后，每人的糖块恰好都为32块。问各位好友原先的糖块数分别是多少? 6.从键盘输入a、b、c求一元二次方程ax2+bx+c=0的两个实数根(不考虑无解的情况)。 第三章 选择结构 【上机练习3.2】 1、假设邮局规定寄邮件时若每件重量在1公斤以内(含1公斤)，按每公斤1.5元计算邮费，如果超过1公斤时，其超出部分每公斤加收0.8元。请编程序计算邮件收费。 2、输入三个正整数，若能用这三个数作为边长组成三角形，就计算并输出该三角形的面积，否则输出Cant。(组成三角形的条件为：任意两边之和大于第三边) 3、输入一个三位数的整数，将数字位置重新排列，组成一个尽可大的三位数。例如：输入213，重新排列可得到尽可能大的三位数是321。 4、输入一个整数，打印出它是奇数还是偶数。 5、某服装公司为了推销产品，采取这样的批发销售方案:凡订购超过100?套的，每套定价为50元，否则每套价格为80元。编程由键盘输入订购套数，输出应付款的金额数。 6、从键盘读入一个数，判断它的正负。是正数，则输出“+”，是负数，则输出“-”。 7、判断两个数a，b，输出较大数的平方值。 8、某市的士费起步价8元，可以行使3公里。3公里以后，按每公里1.6元计算，输入的士的公里数，请你计算顾客需付费多少元？ 【上机练习3.3】 1．输入某学生成绩，根据成绩的好坏输出相应评语。如果成绩在90分以上，输出评语：优秀（outstanding）。如果成绩在60分到90分之间，输出评语：良好（satisfactory）。如果成绩不足60分，输出评语：不及格（unsatisfactory）。 2．输入三角形的三边，判断它是否是直角三角形。? 3．给一个不多于三位的正整数，求出它是几位数，并分别打印出各位上的数字。 4．对一批货物征收税金。价格在1万元以上的货物征税5%，在5000元以上，1万元以下的货物征税3%，在1000元以上，5000元以下的货物征税2%，1000元以下的货物免税。编写一程序，读入货物价格，计算并输出税金。 5．输入三角形的三个边，判断它是何类型的三角形（等边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．从键盘读入两个数，比较