Fortran语言教程的.ppt

* * 9.5 数组应用举例 课后练习题 P225：第一、三题。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. * * 第十章 语句函数 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. * * 10.1 语句函数的概念 看右边的例子： X=1.0 Write(*,*) X*X*X-2*X*X+2.0 X=2.0 Write(*,*) X*X*X-2*X*X+2.0 X=3.0 Write(*,*) X*X*X-2*X*X+2.0 End 可改写成： F(X)=X*X*X-2*X*X+2.0 X=1.0 Write(*,*) F(X) X=2.0 Write(*,*) F(X) X=3.0 Write(*,*) F(X) End Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. * * 10.2.1 语句函数的定义 一般形式为： 函数名(形参表)＝表达式 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. * * 10.2.2 定义语句函数应遵循的规则 只有当函数可以用一个表达式表示时才能定义成语句函数。 语句函数定义语句是非执行语句，它应放在所有可执行语句之前和有关的类型说明语句之后。 语句函数只在其所在的程序单位中才有意义。 语句函数定义中的虚参只能是变量名，不能是常量、表达式或数组元素。 Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. * * 10.2.2 定义语句函数应遵循的规则 语句函数定义中的表达式不仅可以包括形参与常量，还可以包括程序中的变量和已经定义过的函数，但不能包括自身。 例如：(1)SUM(a,b,c)=a+b+c AVER(a,b,c)=SUM(a,b,c)/3 √ (2)SF(B)=1.5-SF(B) X Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. * * 10.2.2 定义语句函数应遵循的规则 语句函数的类型即是语句函数名的类型，当需要用类型说明语句说明语句函数名的类型时，其类型说明语句必须在语句函数的定义之前。 例如：Real I,U,R I(U,R)=U/R Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Profile . Copyright 2004-2011 Aspose Pty Ltd. * * 10.3 语句函数的引用 语句函数定义后，只能在本程序单位中被引用，并且，在引用时其实参与虚参在个数、类型方面要一一对应。 FORTRAN允许在语句函数定义中没有虚参，此时在引用时也不能有实参，但括号不能省略。 CONST( )=SQRT(2.0)+SQRT(3.0) A=CONST( ) print *,A End Evaluation only. Created with Aspose.Slides for .NET 3.5 Client Prof