Fortran95程序设计-第七章课案.pptx

中山大学环境科学与工程学院 陆 希;概述 语句函数 函数子程序（自定义函数）（funcation） 子例行程序（subroutine） 实参和虚参之间的数据传送 其它应用; 概述;例如：求五边形ABCDE的面积问题,如图所示。 已知：五边形5条边长为：a、b、c、d、e,两条对角线为：f、g。五边形面积计算问题变为3个三角形面积计算问题,3个三角形面积area1、area2、area3之和就是五边形面积area。 三角形面积A求解公式：三边长为x,y,z。 ;一般方法求解;函数方法求解;如情况2： 问题一：某房地产公司买下一块呈三角形形状的地盘准备盖住宅小区,地价为每平方米1000元,求这块地的总价。 求解问题的核心是计算三角形面积。 问题二：某单位有一个呈三棱台形状的水箱,平均每天消耗2水箱水,水价为每立方米8角钱,计算每天需支付的水费。 求解问题的核心是计算三角形面积。 ;用一般方法求解：;用函数方法求解两问题：;对于比较复杂的问题,设计和编写程序需要采用科学的程序设计方法。模块化和结构化程序设计方法是常用的程序设计方法,使用这些方法可大大降低问题的复杂性,使复杂问题的求解变得相对容易。使用函数和子程序可使用模块化和结构化程序设计方法设计和编写大型、复杂、高质量程序。 对复杂问题逐层进行任务分解,得到问题分层结构图。根据分层结构图, 逐层设计和编写程序。最顶层问题用主程序实现,其余层子问题用函数或子例行程序实现,最后将主程序和若干函数或子例行程序组装成完整的可运行程序。 设计和编写主程序时,可假定下一层子问题已经通过函数或子程序实现,暂不考虑其具体实现内容;如情况3：;结构化程序设计方法及求解：;; 语句函数;[例951]已知角度A＝36?43?27?,B＝15?24?,C＝8?16?54?,计算 ： S＝cos2A-4sinB?tgC 角度Dn＝x1?x2 ?x3?的弧度转换公式: ;语句函数定义：; 调用一般形式为： 语句函数名([实在参数表]) 说明： 语句函数名同语句函数定义语句中的语句函数名相同。 实在参数表为实在参数或实参,其个数、次序和类型应与定义语句中形式参数一致。实在参数之间用逗号分隔。 实参可是常数、变量、数组元素、函数名、表达式。 当调用语句函数时,其执行过程如下： 首先计算实参表达式的值; 将实参值赋予对应的形参,即形实参结合 用被赋值的形参对语句函数定义语句中的表达式进行求值运算; 将运算后的表达式值转换为函数名类型,并将其按函数值返回到调用位置。; 使用语句函数的一些规定： 一个语句函数只能在一行内定义。如果太长,可续行书写。 语句函数只有一个函数返回值。 定义语句函数,右端表达式中可调用已定义语句函数或标准函数,但不能调用该语句函数自己,即不能递归调用。 H（x1,x2)=x1*x1+x2*x2 F（x1,x2)=SQRT(H(x1,x2)) 语句函数的形式参数不允许为数组或下标变量。 DIMENSION A(10),B(2,3) F1(x,y)=x+A(1)+y-B(1,2) !表达式中可以引用数组元素 F(C)=C+100 语句函数的虚参应该是变量名，不能是常量、表达式或数组元素 语句函数可无虚参,称为无参函数,圆括号不能省略,即：F()。 ; [例953]计算空间一点P(x,y,z)的方向弦,其计算公式如下： 其中:α、β、γ为点P到原点直线与坐标轴x、y、z的夹角。; [例954]已知α=30?,β=38?,γ=58?,编写程序求： ; 自定义函数 （funcation）-函数子程序，外部函数;可以用一个函数子程序来定义之： ;函数子程序的定义： 类型说明 FUNCTION函数名（虚参列表） ... END [FUNCTION函数名] 其中函数名的取法与变量名相同。 函数名既是某个函数的名字又代表该函数的函数值，所以必须有类型说明。 也可以在FUNCTION语句后进行说明： FUNCTION 函数名 （虚拟参数，……） 类型说明 函数名 虚拟参数之间用逗号隔开，虚参可以是变量名、数组名、子程序名 没有虚参时，一对括号必不可少;FUNCTION …… …… END 其中语句的排列和主程序相同： 说明语句在前，执行语句在后 说明语句包括对虚参变量和虚参数组的说明，也包括对函数中所用变量、数组和符号常量的说明。 执行语句用来完成对函数值的运算，在程序的执行流程返回调用单位之前，必须有求得到函数值赋给函数名。给函数赋值时注意：