2007年3月30日 第三次pascal试验课 上机内容是循环结构程序设计
以下是我课上写的几段代码，文件名就是课本上题目的位置，例如P14_1_2.PAS即为第14页的习题1.2。
P87_4_4.PAS
PROGRAM factorial(input,output);
{计算1到35的阶乘并逐行输出}
VAR
{n!是个很大的数，用整型会造成溢出，应当声明为实型}
fac:real;
i,j:integer;
BEGIN
FOR i: = 1 TO 35 DO
BEGIN
{置初值}
fac: = 1 ;
{求i!并输出}
FOR j: = 1 TO i DO fac: = fac * j;
writeln( ' The factorial of ' ,i: 2 , ' is ' ,fac)
END
END.
( * 经测试发现使用TurboPascal编译此代码后，计算到34!时发生溢出(error code 205 )，但使用FreePascal编译此代码一切正常！ * )
{计算1到35的阶乘并逐行输出}
VAR
{n!是个很大的数，用整型会造成溢出，应当声明为实型}
fac:real;
i,j:integer;
BEGIN
FOR i: = 1 TO 35 DO
BEGIN
{置初值}
fac: = 1 ;
{求i!并输出}
FOR j: = 1 TO i DO fac: = fac * j;
writeln( ' The factorial of ' ,i: 2 , ' is ' ,fac)
END
END.
( * 经测试发现使用TurboPascal编译此代码后，计算到34!时发生溢出(error code 205 )，但使用FreePascal编译此代码一切正常！ * )
P87_4_6.PAS