fortran程序实例分析和总结.docxVIP

实例 3—求多个半径下的圆周长 ! z3.f90 --Fortran95 ! FUNCTIONS: ! z3 - Entry point of console application. !************************************************************************* ! PROGRAM: z3 ! PURPOSE: Entry point for the console application. !************************************************************************ program z3 ! 求多个半径下的圆周长 ! 主程序 ! PROGRAM Z3 PRINT *, R=,1.2,C=,C(1.2) PRINT *, R=,3.4,C=,C(3.4) PRINT *, R=,15.6,C=,C(15.6) PRINT *, R=,567.3,C=,C(567.3) END program z3 !子程序 FUNCTION C(R) PI=3.1415926 C=2*PI*R RETURN ! Body of z3 end 实例 4—键盘与显示器输入/输出 Fortran 基本操作 程序指令 ! ZXZ_I_O.f90 ! FUN