2007年3月16日 第一次pascal试验课 上机内容是顺序结构程序设计
以下是我课上写的几段代码，文件名就是课本上题目的位置，例如P14_1_2.PAS即为第14页的习题1.2。
P14_1_2.PAS
PROGRAM count(input,output);
{输入三个数，计算并输出它们的平均值及乘积}
VAR
num1,num2,num3,average,product:real;
BEGIN
write( ' please input three numbers: ' );
readln(num1,num2,num3);
{计算这三个数的平均值}
average: = (num1 + num2 + num3) / 3 ;
{计算这三个数的乘积}
product: = (num1 * num2 * num3);
{进行回打并输出其平均数和乘积}
writeln;
writeln( ' the numbers you input is ' ,num1: 4 : 2 , ' ' ,num2: 4 : 2 , ' ' ,num3: 4
{输入三个数，计算并输出它们的平均值及乘积}
VAR
num1,num2,num3,average,product:real;
BEGIN
write( ' please input three numbers: ' );
readln(num1,num2,num3);
{计算这三个数的平均值}
average: = (num1 + num2 + num3) / 3 ;
{计算这三个数的乘积}
product: = (num1 * num2 * num3);
{进行回打并输出其平均数和乘积}
writeln;
writeln( ' the numbers you input is ' ,num1: 4 : 2 , ' ' ,num2: 4 : 2 , ' ' ,num3: 4