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

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， 运行结果为：