7、复习.doc

计算机Pscal程序设计复习题一、改错题（下述程序中各有一个小错误，请加以改正）输出计算结果为100。program p1； begin writeln(36+64);end.在屏幕上显示“Im studying Pascal!”begin writeln(Im studying Pascal!);end在屏幕同一行输出一个表达式及其运算结果begin writeln(18/(21-15)=); writeln(18/(21-15)end.在屏幕同一行输出一个表达式及其运算结果begin writeln(205(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。输入数据行：12345var a,b,c,d,e:integer;begin readln(a,b); readln(c,d); readln(e);end.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.二、编程题（请根据下列文字要求编写程序，并调试正确）输出以“*”表示的66的空心正方形。第一行输出“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); Writ