编程作业，附：参考答案

你学会了如何定义变量和改变它们的值。现在，开始做你的第一个作业吧？

不过，有个小问题：你还不知道如何将数据显示在屏幕上。

所以，在开始之前，下面的代码将用来显示数据，并在以后的作业中使用到：

writeln (参数列表);

参数列表是由字符串或以逗号分隔的变量名来组成，如：

writeln ('Sum = ', sum);

复制代码

编程作业：

在45、68、2、34，这5个整数中，求出它们的平均值、总和。
（求和运算，结果类型应该为整数型；求平均值是实数型。）

使用常量存储该程序处理整数的数目，即定义一个常量，值为5。

然后显示它，显示应该是这个样子：



Number of integers = 5

Number1 = 45

Number2 = 7

Number3 = 68

Number4 = 2

Number5 = 34

Sum = 156

Average = 3.1200000000E+01

复制代码

正如你看到的，实数默认以科学记数法方式显示。



参考答案如下：
在45、68、2、34，这5个整数中，求出它们的平均值、总和。

program SumAverage;



const

   NumberOfIntegers = 5;



var

   A, B, C, D, E : integer;

   Sum : integer;

   Average : real;



begin    (* Main *)

   A := 45;

   B := 7;

   C := 68;

   D := 2;

   E := 34;

   Sum := A + B + C + D + E;

   Average := Sum / NumberOfIntegers;

   writeln ('Number of integers = ', NumberOfIntegers);

   writeln ('Number1 = ', A);

   writeln ('Number2 = ', B);

   writeln ('Number3 = ', C);

   writeln ('Number4 = ', D);

   writeln ('Number5 = ', E);

   writeln ('Sum = ', Sum);

   writeln ('Average = ', Average)

end.     (* Main *)

复制代码