高级语言程序设计习题及答案.doc

习 题 一1-1 Pascal语言的程序结构由哪几部分组成？试述各部分的构成形式和作用。1-2 Pascal基本字符集有哪些成分构成？Pascal的保留字是什么？1-3 Pascal语言中标识符是怎样构成的？下列字符串哪些是正确的Pascal标识符？哪些是错误的？为什么？A5B，5H4，PEL，1，A31，xy，AB，A + B，$500，G1(x)，xyz，E-10，VAR1-4 下列数据哪些是整数？哪些是实数？哪些是非法的（假设计算机字长为32位）？256 2.54 25E+6 3.75E6 0.15E-6 1.2E70 1E-15 -673 E8 4,734 5.7E-6.6 0 58989 -73451 E-31-5 下列哪些常量定义是正确的？CONST hvalue=200； lvalue=0 OR 1 OR 2； firstchar=a； t=true； b=true OR false；1-6 假定已作了下述说明：CONST gap=；VAR m,n:integer； a,b:real； p,q:boolean； c1,c2:char；指出下列每一语句是否有效，并说明理由： m:=trunk(b)+a p:=m+n read(c1,c2,) c1:=gap p:=q AND (ord(c1)a) m:=n MOD a c1 :=c2 c2:=chr(a) m:=m-ord(0) writeln(a,p,m,n,q,q,b) n:=a-trunc(a) b:=2.99*109 a:=m/n b:ord(c1)+ord (c2)1-7 已知变量有下面指定的值：a=7，b=-6，c=30，d=10.8600，e=1E3，f=*，g=true求下面表达式的值：a+b DIV trunc(d)+3 d-0.75/(e+140.0)*70.0 sqrt(abs(b-a)+succ(ord(f) chr(10* a MOD sqr(b) NOT (a=b) AND g) (ord(b) OR (sqr(b)e) AND (g AND NOT(abs(b)6)1-8 已知有如下说明VAR p,q,r,s:Boolean； k:integer；试写出下列每一表达式的类型，如能确定，请写出它们的值。 sqr(2) sqr(2.0) ord(z)-ord(a) trunc(-99.9) round(99.9) round(-99.9) NOT (p AND q) = NOT (NOT p AND NOT q) 10 DIV 3 10/3 126 DIV 3 MOD 5 (p AND (q AND NOT q)，OR NOT(r OR (s OR NOT s) (round(-65.3)2.5 -/2 当x02-4 一个写的不好的Pascal程序中有下列语句： IF ab THEN IF cd THEN x:=1 ELSE IF ac THEN IF bd THEN x:=2 ELSE x:=3 ELSE IF ad THEN IF bc THEN x:=4 ELSE x:=5ELSE x:=6ELSE x:=7 试用较好的语句格式重写该语句。 该语句中有没有多余或矛盾的条件？ 写一个效果相同但比该语句简单的语句。2-5 编写程序计算 cos (x+3.0) 当x02-6 使用分情形语句重写例3-22-7 编写一程序输出2的方幂表。2-8 编写程序计算m=11+22+33+44+nn直到m1030,m为实数。2-9 编写程序计算直到最后一项小于10-5。2-10 用牛顿迭代法求方程 2x3-4x2+3x-6=0在x=2.5附近的实根，直到满足条件 2-11 用迭代法求x=，计算公式是要求满足条件2-12 100匹马驮100担货，大马一匹驮3担，中马一匹驮2担，小马两匹驮一担货。试编程序计算大、中、小马的数目。2-13 试说明 任何REPEAT语句可以用WHILE来改写。 任何WHILE语句可以用IF和REPEAT来改写。2-14 编写列出从1到100的所有整数的平方、立方和阶乘表的程序。2-15 编写一个译码程序将一英语句子译成数字代码。译码规则是以数字1代替字母A，数字2代替字母B，26代替字母Z，如遇空格则打印一个星号“*”。英文句子以“.”结束。2-16 下面是一个用直到语句写的程序。PROGRAM testrepeat(output) VARi:integer; BEGINi:=1；REPEAT； writeln(i)； i:=i+1UNTIL i5 END.试用当语句重新写出该程序。2-17 写一个程序，按顺序和倒序两种形式打印英文字母。2-18 写一个程序计算正整数1到n中的奇数之和及偶数之和。2-19 某工程预计到2010年产值100万元，并计划在此基础上每年增加产值10%，试编一程序，求该厂从2011年到2020年每年的产值应是多少？2-20 编一个程序，读入n个整数的平均值，找出最大值和最小值，统计出有多少正整数和多少负整数，分别计算出正整数和负整数的总和。2-21 编一个程序，把从终端上输入的一串连续的数字符转换成相应的整数值，并把这一数值用八进制形式输出。2-22 什么是自顶向下法？自顶向下的研制法有什么优点？习 题 三31 编写一个过程，将一个实数分解为整数部分和小数部分。32 编写一个过程，将以秒为单位计算的时间转换成小时、分、秒。33 指出下列程序中的全程变量、局部变量、变量参数、数值参数，写出程序运行后的结果。PROGRAM pfoc(output) VARa,b,c:integer； PROCEDURE p(VAR x:integer；y:integer)；VAR m,n:integer；BEGIN m:=x*y； x:=x+5； y:=y+5； n:=x*y；writeln(x=,x:3, y=,y:3, m=,m:4, n=,n:4)END；BEGIN a:=3； b:=3；p(a,b)； p(a,b)； p(a,b)；END.3-4 编写一个函数digit(n,k),它能求出数n的从右边开始的第k个数字的值。例如digit(254693,2)=9digit(7622,6)=03-5 定义试编写一个求bin(n,k)的函数。3-6 编写程序计算调和级数的部分和，要求输出结果表示成有理数，即的形式。其中分子和分母都是整数。(提示：编写一个从分子和分母中消去公因子的过程）。3-7 分析程序hanoi（例4-10），计算移动n个盘子所需的次数，若按每微妙移动一次计算，需要多少时间？3-8 计算组合时，有两个常用公式 前一个公式常用于m2n时，后一个公式是实际计算组合时的递归定义，试编制程序计算。3-9 已知一对兔子每一个月可以生出一对一雌一雄的小兔，每对小兔在两个月以后也逐月生一对一雌一雄的小兔，试编一程序，求n个月后的兔子对数（设最初只有一对一雌一雄的小兔）。3-10 定义Hermite多项式如下：分别写出递归和递推函数计算。3-11 阅读下列程序，写出输出结果。PROGRAM paranest(output)； PROCEDURE pl；PROCEDURE p1a； BEGIN Writeln(PROCEDURE p1a!) END；PROCEDURE p1b； BEGIN Writeln(PROCEDURE p1b!) END；BEGIN Writeln(PROCEDURE pl!)； P1a；P1bEND； PROCEDURE p2；PROCEDURE p2a； BEGIN Writeln(PROCEDURE p2a!) END；PROCEDURE p2b； BEGIN Writeln(PROCEDURE p2b!) END；BEGIN Writeln(PROCEDURE p2!)； p2a；p2bEND； BEGINp1；p2 END.3-12 编写程序，使用函数参数计算函数 在x等于1.5，3.7和-3.7各处的值。3-13 有一字符序列以句号“.”结束（例如一英文句子）。试设计一递归过程能按倒序打印出这一字符序列。3-14 编一程序用梯形公式求定积分的近似值。3-15 编一程序，用辛卜生法求积分 的近似值。辛卜生求积分的公式为：习 题 四41 检查以前做过的习题，看看是否有可能使用枚举类型或子界类型。42 编写一个程序，若输入数字为0到6则转换成输出相应的一星期的7天，从星期日（Sunday）到星期六（Saturday）;若读入的是字符m，p，c，e，则转换输出相应的专业：数学（mathematic）,物理（physic）,计算机（computer）,英语（English）等。43 编写一个程序，读入某一天的日期（1.31），月份（1.12），年份（1900.2020），并以日期/月份/年份的形式打印出来，或者以日期：月份：年份的形式打印出来（月份要以January，February，等英文名词打印）。44 定义一函数确定15009999年中那一些年份是闰年，编写一程序（或子程序）确定在15009999年中各年12个月的天数。习 题 五5-1 给定类型TYPEnumberset = SET OF minmax；其中min和max是整型常量，试编写过程printset，它能打印类型numberset的变量的值。例如，元素为3，7，11和19的集合应打印为：3,7,11,195-2 编写一个程序将一个月的日期按星期日到星期六排列在不同的集合中。5-3 试编写一个程序读入3个英文句子，打印出同时出现在第一句和第二句中，但是不在第三句中的那些字符。5-4 输入一系列字符，将数字字符、英文字母字符和其他字符分别计算，并求出各占的百分比，输出格式要求如下：Namenumber persentLetter -Digit -Other -遇到“1”停止计算，试编写一程序实现之。5-5 假定一本书由下述说明定义：CONSTLinelen = 70；Pagesize = 55；Thickness = 330；TYPELine = ARRAY1.linelen OF char；Page = ARRAY1.pagesize OF line；Volume = ARRAY1.thickness OF page；VARBook:volume；指出下述每一表达式的类型和值。Book25Book18750Book46710写一个合适的格式打印book内容的子程序。5-6 编一程序计算如下两个多项式的值P1 = a100x100+a99x99+a1x+a0P2 = b100x100+b99x99+b1x+b05-7 编一个程序。读入形式为B的字符串，其中为A进制的数字串。代表一个A进制的整数。然后将此整数转换成B进制的整数再输出。A，B为2到10之间的整数。如字符串17652表示将8进制整数1765转换成2进制整数，要求程序能连续读入和处理一个文件上的多个这样的字符串，直到文件结束。5-8 编写一个程序，计算两个矩阵的乘积。5-9 编写一个转置n阶矩阵的过程。5-10 编写程序，读入一些英文单词，当遇到单词stop时就停止阅读，并统计读入了几个单词。5-11 b为一个6*6的方阵，先输入36个数据形成该方阵，然后在完成下列运算：（1）计算两条对角线元素的和、积；（2）计算方阵中所有不靠边的元素之和；（3）计算方阵中所有靠边元素之和；（4）使两条对角线上的元素均为1，其余的元素为0。5-12 编写一个程序对市场某商品价格进行调查。连续10年，每年12个月份的价格作为输入数据。该程序能计算某一年的平均价格，10年间某一个月的平均价格（例如20012010年，10年间2月份的平均价格），打印输出最高价格及年份月份（用一个二位数组来描述所读入的10年的价格）。5-13 输入两个复数，计算并输出他们的和数及乘积。5-14 编写一个程序，计算直角坐标系中任一点到坐标原点之间的距离。5-15 某班进行了数学考试，每个学生的姓名、学号、考试成绩作为输入数据，编写一个程序完成以下功能：（1）计算并打印班级的平均成绩；（2）根据每个学生的成绩给出评定等级（A、B、C、D、E）；90-100（A），80-89（B），70-79（C），60-69（D），0-59（E）；（3）打印出每个学生的姓名、学号、成绩和等级；（4）计算出每一个等级的学生人数。5-16 有一批图书（设为100本），每本图书要登记作者姓名、书名、出版社、出版年月、价格等信息。试编写一个程序完成下列功能：（1）读入每本书的信息存入一个记录数组中；（2）打印出价格在2.00元以上的书名；（3）打印出1985年以后出版的书名和作者名。习 题 六6-1 编写一个程序计算统计类型为FILE OF items 的文件中有多少个元素，items是一个用定义的记录类型。6-2 编写一个过程检索一给定的文件f（FILE OF integer）查找一给定值values是否存在。设置一布尔变量标志查找是否成功。6-3 编写一程序将班级同学的姓名、地址、电话号码写到一个文件中去。6-4 编写一程序读入班级学生的姓名，四门功课的成绩，并把这些数据拷贝到一个顺序文件grades中去。另编写一过程读和打印该文件。6-5 有两个文件f1和f2。文件元素的内容包括学生的姓名和学号，f1为男学生组成的文件，f2为女学生组成的文件，且其中学号按递增顺序排列。编写一程序读入这两个文件f1和f2并将它们合并成第三个文件f3，仍按照学号的递增顺序排列。6-6 设在文件inventory中存放了一个仓库的存货清单，该清单包括货物的库存号、库存量。编写一个程序，检查仓库的库存量，要求打印出所有库存量小于10的货物的库存号，并建立一个新文件，它包括所有库存量大于1000的货库的库存号和库存量。6-7 有一个已形成好的文件，每一元素是一记录，其中包括职工号、姓名、性别、出生日期、工资额等项，编写一程序将这一文件按职工号递增顺序排列形成一个新文件。假设该文件可以一次读入内存进行处理。6-8 若上题中文件较长一次不能读进内存，需分二次，请编一程序重做习题6-7中的排序工作。6-9 编写一程序（或过程）分别找出一行文文件中长度最长和长度最短的行。6-10 编写一程序用来统计一行文文件中出现的空格数和非空格字符数。6-11 设计一程序，计算一个文件中每个字母出现的次数，用变量n来表示，n说明为： VAR n:ARRAYcharOF integer；nc表示文件中字母c出现的次数。6-12 编写一程序可以查找并修改文件中第n个记录。6-13 某单位工作人员健康状况简表如下： 姓名 工号 年龄 性别 健康状况假设已建立了基类型为记录类型的文件。编写一程序，将文件按性别区分产生men和women两个文件，文件的记录仅包含姓名、工号、年龄、健康状况。并要求打印出年龄在40岁到50岁之间的工作人员健康记录。6-14 建立一个包括奇数1到999的文件。习 题 七7-1 建立一个工厂车间人员情况表