Pascal练习题及答案

一、熟悉Pascal的集成环境，了解主菜单的各项功能
二、完成下面程序的输入、编译、运行、保存，并注意观察程序的运行结果
1、程序代码如下：
program exe1 (input ，output) ；
var
h ，k ：integer ；
begin
for h ：＝ 1 to 8 do begin
write( ' '：20-h)；
for k ：＝1 to 2*h-1 do write(' * ')；
writeln；
end；
end.
2、编程计算半径为R的圆的面积和周长
程序代码如下：
Program Exe2；{程序首部}
Const Pi=3.14
Var R，S，C: Real；{变量说明部分}
Begin
Write ('R=')；{提示输入半径}
Readln(R)；{输入半径值}
S:=Pi*R*R；｛利用圆面积公式s=Πr2面积｝
C:=2*Pi*R；｛利用圆周长公式c=2πr求周长｝
Writeln('S='，S)；{输出结果}
Writeln('C='，C)；
Readln；｛等待输入回车键｝
End.
3、编程在屏幕上显示‚Hello World!‛。

程序代码如下：
Program exe3;
Begin
Writeln( ‘ Hello World!’);
Readln;
End.
4、下面是一道猜数的趣味程序，程序运行后，由计算机随机地产生一个100
以内的整数，用户有十次猜数的机会，并且计算机会根据你猜的数给你相应的提示。

程序代码如下：
program caishu (input ，output) ；
var
x，n，k ：integer；
begin
randomize；
x：＝random( 100) ；
repeat
write('Please input a number(0- 100) : ' ) ；
readln( k) ；
n：＝n+l;
if k=x then writeln( 'You are right ! ')；
if k>x then writeln( 'Too big. Please try again! ' ) ；
if k<x then writeln( 'Too small. Please try again! ') ；
until (k=x) or (n= 10) ；
if ( n=10) and ( k<>x) then writeln( ' You are fail. The number is ：' ，x) ；
end.
三、上机时要注意的操作步骤
四、练习：工人每工作一小时可得工资80元，求工作130小时的工资。

１program Exe (input, output);
２var h, r, w : integer;
３begin
４ h := 130;
５ r := 80; ６ w := h * r; ７ writeln (w) ８
end.
a)
b) 。

10400
c) 如果将行7改为 writeln ( ‘Total wages = ’, w )，將程式编译（Compile ）后，执行程序（Run ），写下屏幕上看到了什么。

Total wages=10400
d) 试着在行６和行７之间加上两语句，使程序产生的输出结果如下：
Total working hours = 130 Hourly rate = 80
Total wages =10400
Writeln(‘Total working hours=’,h); Writeln(‘Hourly rate=’,r);
五、试编一程序,从键盘输入一梯形的上底、下底、高, 求该梯形的面积。

、
a)、所求程序编制如下：
var v,b,h:real; begin
writeln(‘v=’);read (v); 1.350000000000000E+002 readln;
writeln(‘b=’);read(b); readln;
writeln(‘h=’);read(h); readln;
writeln(‘C=’,(v+b)*h/2); readln; end.
b)、把上述程序输入PAS 程序输入程序编辑窗口，从键盘输入一梯形的上底、下底、高分别为12、
18、9，运行结果为：
六、从键盘输入3个数，计算并输出这3个数的平均值。

a)、所求程序编制如下： program pingjun(input,output);
var a,b,c:real; begin 2.340000000000000E+002 writeln(‘a=’);read(a);
readln;
writeln(‘b=’);read(b); readln;
writeln(‘c=’);read(c); readln;
writeln(‘Average value=’,(a+b+c)/3); readln; end.
b)、把上述程序输入PAS 程序输入程序编辑 窗口，从键盘输入三个数为12、456、234， 运行结果为：。