(完整word版)fortran程序实例

1、1) 实例3 求多个半径下的圆周长 ! z3.f90 -Fortran95 FUNCTIONS: z3 -Entry point of con sole applicati on. I* PROGRAM: z3 PURPOSE: En try point for the con sole applicati on. I* program z3 !求多个半径下的圆周长 !主程序 Alta JSwFta. TTjn * FMIIH-. t jd - |叭(Lld4ilh Hili tii.IW mHMvfriiMfeai Iwi Ji JJII+M4Tml+nI *界 r FHtlE- Hfrtp

2、liK * W mita itflLuLfl- ! 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 键盘与显示器输入/输出 2) a) Fortra n 基本操作 1 B Li PlLu- i JfiL I hi -IJB L . n：匹

3、： b）程序指令 BIE1A J . C * PRINT* ,以上为计算机的计算结果，注意B的值 ZXZ I O.f90 FUNCTIONS: ZXZ_I_O- Entry point of con sole applicati on. PROGRAM: ZXZ_I_O PURPOSE: En try point for the con sole applicati on. I* 输入、输出样式种种 * program ZXZ_I_O implicit none !变量声明的位置 INTEGER(2) i; INTEGER(4) j; INTEGER(4) m; REAL n INTEGER

4、A,B ! Variables PRINT*,输入整数 A; READ*, A PRINT*,输入整数 B; READ*, B B=A+B PRINT*,B=A+B=,B WRITE(*,*) A*B=,A*B !系统默认的输出样式 PRINT* ,系统默认的输出样式 !人为控制的的输出样式-格式化输出 i=21; j=53; m=5 n=(i+j*m*i*m) WRITE(*,*) i,j,m是常量，程序赋初值 PRINT*, i,j,m WRITE(*,*) i,j,m的计算结果： PRINT*,i+j*m*i*m= ,n PRINT* , ! Body of ZXZ_I_O end pr

5、ogram ZXZ_I_O 程序说明： 程序赋值一初始化 i=21; j=53; m=5 键盘无格式输入 READ*, A 键盘有格式输入 READ ( *, 100)A,B,C 100 FORMA T( 2F5.2,F5.3) 显示器无格式输出 PRINT* ,系统默认的输出样式 WRITE(*,*) A*B=,A*B 显示器有格式输出 PRINT 100 ,A+B WRITE(*,100) A*B=,A*B 100 FORMA T( F5.2) C）调试运行 pruqrdiri ZX2_l_0 iflnpllclt iioiiv 陝量声明的立置 IHTEGERfZ) i; IMTEGEimi ； IHTEGER()叭 REAL n lilHTEGER A.B I Uairidbles HIKE J播入整該打1E.D屯A PRINT，-KMa e-fltB FHJHIvT -H-Ai-B-1 ,ti Axb- 1 tAiU HU NA臥存为计負机药计貝韭呆*妊憲L1的低 1-21; j-b3; RTEC-,) l,j,n是常最.程序Itt前值 FHIHTa, 1 J , WR1TF(-f-J lpj,n 的tt幣结黑,. FHim* / r u讪o#畑 Ffirl prnnian ZK? I o -:ZXZ_VF_