fortran程序实例 - 图文

1)

实例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

2)

实例4—键盘与显示器输入/输出

a) Fortran 基本操作

b) 程序指令

! ZXZ_I_O.f90 ! FUNCTIONS:

! ZXZ_I_O - Entry point of console application. ! PROGRAM: ZXZ_I_O

! PURPOSE: Entry point for the console application.

!***************输入、输出样式种种************************** program ZXZ_I_O implicit none !变量声明的位置 INTEGER(2) i; INTEGER(4) j; INTEGER(4) m; REAL n INTEGER 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* ,'以上为计算机的计算结果，注意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 program ZXZ_I_O 程序说明：

程序赋值—初始化 i=21; j=53; m=5 键盘无格式输入 READ*, A

键盘有格式输入

READ（*, 100）A,B,C 100 FORMAT( 2F5.2,F5.3) 显示器无格式输出

PRINT* ,'系统默认的输出样式' WRITE(*,*) 'A*B=',A*B 显示器有格式输出 PRINT 100 ,A+B

WRITE(*,100) 'A*B=',A*B 100 FORMAT( F5.2)

c) 调试运行

d) 程序指令

带格式的输入输出 ! ZXZ_I_O.f90 ! FUNCTIONS:

! ZXZ_I_O - Entry point of console application. ! PROGRAM: ZXZ_I_O

! PURPOSE: Entry point for the console application.

!***************输入、输出样式种种************************** program ZXZ_I_O implicit none !变量声明的位置 INTEGER(2) i; INTEGER(4) j; INTEGER(4) m; REAL INTEGER A,B REAL X,Y,Z ! Variables

PRINT*,'输入整数 A'; READ*, A PRINT*,'输入整数 B'; READ*, B PRINT*, '计算结果为：' B=A+B

PRINT*,'B=A+B=',B WRITE(*,*) 'A*B=',A*B

PRINT* ,'以上为计算机的计算结果，注意B的值' !系统默认的输出样式

PRINT* ,'系统默认的输出样式'

PRINT*,'输入实数 X'; READ(*,100) X PRINT*,'输入实数 Y'; READ(*,100) Y 100 FORMAT(F5.2) PRINT*, '计算结果为：' Z=X+Y

PRINT 200,Z

200 FORMAT(4X,'Z=X+Y=',F8.3) WRITE(*,*)

WRITE(*,300) X*Y

300 FORMAT(4X,'Z=X*Y=',F8.3) !人为控制的的输出样式--格式化输出 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

n end program ZXZ_I_O

e) 调试运行