Fortran95实验指导 实验八 子程序.doc

实验八 函数与子例行程序函数、、外部子程序 了解内部子程序的有关基本概念，如：定义、调用、形式参数、实在参数、参数传递关系等。 掌握内部子程序定义、调用、形式参数、实在参数、参数传递的基本内容和使用规则。 掌握结构化程序设计方法。 掌握使用内部子程序设计和编写程序的方法。 了解递归概念，掌握递归问题的求解方法。 掌握递归子程序定义、调用、参数传递关系的基本内容和使用规则。 了解外部子程序概念，掌握并行、协调、合作编写大型复杂程序的方法。 掌握外部子程序定义、调用、参数传递关系的基本内容和使用规则。 掌握使用递归和外部子程序设计和编写程序的方法 二、实验内容1 1、问题描述 在解决某工程计算问题时，遇到下列函数： 计算x=0.1,0.2,0.3时，上述函数的值，并输出。使用语句函数编写程序实现之。 2、算法设计 该问题求解算法比较简单，可使用顺序结构或循环结构实现。 根据分析，设计循环结构算法如下： 算法： 定义语句函数x0.3,则转x+1； 转(3)执行； 结束 3、程序编写 设计和编写程序如下(，请在下划线空白处填充正确内容： !!姓名：??? !日期：??? !语句函数应用y(x)=1+2*x+x**2 f(x)= __________________ p(x)=__________________ q(x)= __________________ DO x=0.1,0.3,0.1 yx=y(x) fx=f(x) px=____ qx=q(x) PRINT*,x=,x PRINT*,y(x)=,yx PRINT*, _________ ______,p(x)=,px PRINT*, q(x)=,qx _________ END 4、实验要求 分析问题，理解算法，编写程序，将程序填写正确完整08和新项目:xm81。 在项目xm81内创建源程序文件:xm81.f90,同时在文件中编辑输入程序。 在项目xm81内编译、构建、运行、调试程序。 将输出结果以注释形式编辑输入到源程序文件xm81.f90末尾。 使用FORALL语句改写程序，实现程序的并行处理，提高程序和处理。08。 在工作区shiyan08内创建新项目：xm81。 在项目xm81内创建源程序文件xm81.f90，编辑输入源程序文本。 编译、构建、运行、调试程序，得到输出结果。 输出结果以注释形式编辑输入到源程序文件末尾。 在工作区shiyan08内创建新项目：xm811，在新项目内创建源程序文件xm811.f90,在文件中编辑输入已改写程序。编译、构建、运行、调试程序，获得输出结果。 使用FORALL语句改写程序如下： y(x)=1+2*x+x**2 f(x)= __________________ p(x)=__________________ q(x)= __________________ REAL,DIMENSION(____)::yx,fx,px,qx FORALL(____) yx(i)=y(0.1*i) fx(i)=f(0.1*i) __________ qx(i)=q(0.1*i) ____________________ DO I=1,3 PRINT*,x=,0.1*I PRINT*,y(x)=,yx(I) PRINT*, _________ ______,p(x)=,px(I) PRINT*, q(x)=,qx(I) ENDDO END 三、实验内容2 1、问题描述 已知二项式公式如下： 其中：为二项式系数，通过下面公式计算： 计算的二项展开式系数，并输出。通过内部函数子程序计算阶乘和二项式系数，编写程序实现之。 2、算法设计 分析问题，进行任务分解，得到求解问题的分结构图，如图-1所示。根据任务分解图，自行设计和编写主程序来求解总问题，分别设计和编写子程序来求解子问题。根据子问题的具体内容，设计和编写子程序为函数。 -1 任务分解结构图编写程序如下(，请在下划线空白处填充正确内容： !??? !姓名：??? !日期：??? !计算n阶所有二项式系数 PROGRAM MAIN INTEGER n,r,p PRINT(A\),请输入二项式阶数n: READ*,n PRINT(I2,A\),n,二项式系数有: DO r=0,n p=_________ PRINT (I4,2X\),p ENDDO PRINT* CONTAINS !计算阶乘函数 FUNCTION fact(n) INTEGER fact,n fact=1 DO i=1,n fact=_________ ENDDO _________ !计算任意一个二