资源描述：
《7 Fortran 程序设计7-函数.ppt》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、九函数和子程序概述语句函数函数子程序（自定义函数）（funcation）子例行程序（subroutine）实参和虚参之间的数据传送其它应用概述使用顺序结构、选择结构和循环结构可设计和编写一些比较复杂的程序；使用函数和子例行程序能编写编写结构清晰、层次分明、短小简洁的好程序，是编写高质量、高水平、高效率程序的有效手段。在设计和编写程序时,程序中不同部位会多次出现相同或相似的运算或处理过程（程序代码）例如：求五边形ABCDE的面积问题,如图9-1所示。已知：五边形5条边长为：a、b、c、d、e,两条对角线为：f、g。五边形面积计算问题变为3个三角形面积计算问题,3个三角形面积area1、a
2、rea2、area3之和就是五边形面积area。三角形面积A求解公式：三边长为x,y,z。ABCDEabcdefgarea1area2area3如情况1：PROGRAMpentagonREALa,b,c,d,e,f,gREALarea1,area2,area3,area,p,q!输入五边形5个边长和两条对角线READ*,a,b,c,d,e,f,g!计算三角形ABE的面积area1p=(a+f+e)/2q=p*(p-a)*(p-f)*(p-e)area1=SQRT(q)!计算三角形BDE的面积area2p=(g+d+f)/2q=p*(p-g)*(p-d)*(p-f)area2=SQRT(
3、q)!计算三角形BCD的面积area3p=(b+c+g)/2q=p*(p-b)*(p-c)*(p-g)area3=SQRT(q)!计算五边形面积areaarea=area1+area2+area3PRINT*,‘五边形面积:',areaEND一般方法求解PROGRAMpentagonREALa,b,c,d,e,f,gREALarea!输入五边形5条边长和两条对角线READ*,a,b,c,d,e,f,g!计算五边形面积areaarea=t_area(a,f,e)+t_area(g,d,f)+t_area(b,c,g)PRINT*,'五边形面积为：',areaCONTAINS!定义计算任意
4、三角形面积函数t-areaFUNCTIONt_area(a,b,c)REALt_area,a,b,c,p,qp=(a+b+c)/2q=p*(p-a)*(p-b)*(p-c)t_area=SQRT(q)ENDFUNCTIONt_areaEND计算任意三角形函数方法求解如情况2：问题一：某房地产公司买下一块呈三角形形状的地盘准备盖住宅小区,地价为每平方米1000元,求这块地的总价。求解问题的核心是计算三角形面积。问题二：某单位有一个呈三棱台形状的水箱,平均每天消耗2水箱水,水价为每立方米8角钱,计算每天需支付的水费。求解问题的核心是计算三角形面积。PROGRAMtotal_pricesRE
5、ALa,b,c,area,p,q,t_prices!输入三角形边长a,b,cREAD*,a,b,c!计算三角形面积areap=(a+b+c)/2q=p*(p-a)*(p-b)*(p-c)area=SQRT(q)!计算总价t_pricest_prices=area*1000PRINT*,'地块总价为：',t_pricesEND用一般方法求解：PROGRAMwater_pricesREALa,b,c,h,area,cubage,p,q,w_prices!输入三棱台底面三角形边长a,b,c和三棱台高hREAD*,a,b,c,h!计算三角形面积areap=(a+b+c)/2q=p*(p-a)*
6、(p-b)*(p-c)area=SQRT(q)!计算三棱台容积cubagecubage=area*h!计算水价w_pricesPRINT*,'每天需支付水价为：',t_pricesEND!使用函数求解问题一程序，area为外部函数PROGRAMtotal_pricesEXTERNALarea!声明area为外部函数REALa,b,c,t_pricesREAD*,a,b,c!输入三角形边长a,b,ct_prices=area(a,b,c)*1000!计算总价t_pricesPRINT*,'地块总价为：',t_pricesEND!使用函数求解问题二程序，area为外部函数PROGRAMwa
7、ter_pricesEXTERNALarea!声明area为外部函数REALa,b,c,h,cubage,w_pricesREAD*,a,b,c,h!输入棱台底面三角形边长a,b,c和台高hcubage=area(a,b,c)*h!计算三棱台容积cubagew_prices=cubage*0.8*2!计算水价w_pricesPRINT*,'每天需支付水价为：',w_pricesEND!定义外部函数areaFUNCTIONarea(x,y,z)R
