7、温习.doc

复习题 一、改错题（下述程序中各有一个小错误，请加以改正） ⒈输出计算结果为100。 program p1； begin writeln(36+64); end. ⒉在屏幕上显示“I’m studying Pascal!” begin writeln(‘I’m studying Pascal!’); end ⒊在屏幕同一行输出一个表达式及其运算结果 begin writeln(‘18/(21-15)=’); writeln(18/(21-15)) end. ⒋在屏幕同一行输出一个表达式及其运算结果 begin writeln(‘20÷{5×[(8+4)÷6]}=’,20/{5*[(8+4)/6]}); end. ⒌求底边长为20、底上的高为任意长度的三角形面积 begin write(‘Qing Shu Ru Sanjiaoxing De Gao:’); readln(h); write(‘Sanjiaoxing De Mianji Shi:’); write(20*h DIV 2); end. ⒍输出一个用数字组合而成的直角三角形。 begin writeln(‘1’:10); writeln(‘222’:11); writeln(‘33333’:12); writeln(‘4444444’:13); end. ⒎用竖式表示减法运算和计算结果。 begin writeln(5678:10); writeln(‘-‘,1234:10); writeln(‘======’,:10); writeln(5678-1234:10); end. ⒏按以下数据行输入数据，使得a、b、c、d、e的值分别为1、2、3、4、5。 输入数据行：1 2 3 4 5 var a,b,c,d,e:integer; begin readln(a,b); readln(c,d); readln(e); end. Randomize随机初始化Random(n)产生的随机数为0 - （n-1） Randomize随机初始化 Random(n)产生的随机数为0 - （n-1） Random(90) 产生的随机数为0 – 89 所以，本题要求产生一个任意二位数应表示为：Random(90)+10，相对应的随机数为10 – 99。 var a:integer; begin randomize; a:=random(100); writeln(‘a=’,a); end. ⒑一个梯形的上底为5、下底为9、高为8，求该梯形的面积 var a,b,h:integer; begin a=5; b=9; h=8; write(‘Tixing De Mianji Shi:’); write((a+b)*h/2); end. 二、编程题（请根据下列文字要求编写程序，并调试正确） ⒈输出以“*”表示的6╳6的空心正方形。 ⒉第一行输出“How do you do?”，第二行输出“I am fine. Thanks!” ⒊输入一个半径小于20的整数，输出圆的周长和面积。 ⒋输入一个学生的情况，包括学号（用整数表示）、姓名（用第一个字母表示）、语文成绩和数学成绩，然后输出学号、姓名和总分。 ⒌完成两个变量a、b的数据交换（要求：程序中只允许使用两个变量）。 Var a,b:integer; Begin A:=a+b; B:=a-b; A:=a-b; Writeln(a,’’,b); Readln; End. ⒍在一个由两个半圆（每个半圆的半径为10米）所组成的S型花圃，沿圆弧边缘每隔2米栽种一棵松树，问共栽种多少棵松树？ ⒎用随机数产生二位数乘法题目，要求： 被乘数和乘数均为二位数； 被乘数和乘数的十位数必须相同。 Var a,b,c,d:integer; Begin Randomize; A:=random(10); B:=random(10); C:=random(9)+1; Write(a+c*10,’’,b+c*10); Readln(d); Writeln(a+c*10,’’,b+c*10,’=’,(a+c*10)*(b+c*10)); Readln; End. ⒏用随机数产生一个任意二位数，输出该二位数的各个数位的值。