《FORTRAN 90实验》由会员分享，可在线阅读，更多相关《FORTRAN 90实验（5页珍藏版）》请在金锄头文库上搜索。
1、本文格式为Word版，下载可任意编辑FORTRAN 90实验 三、选择布局程序设计 1.开机；进入Fortran PowerStation4.0集成工作环境，了解工作环境及其菜单的使用，输入如下FORTRAN90源程序，并以A1.F90存盘。 PROGRAM EX1 IMPLICIT NONE PRINT *，2+3=,2+3 PRINT *，This is a program！ END PROGRAM EX1 编译、链接、运行后，结果是：2+3=5 This is a program! 2.输入并调试以下程序，查看运行结果。 PROGRAM EX2 IMPLICIT NONE INTEGER
2、:A,B,C READ *,A,B C=A+B PRINT *,A+B=,C END PROGRAM EX2 运行时，输入2，3，那么结果是：2+3=5 This is a program! 3.程序设计 2 已知一个球的半径，求它的外观积（4?R）、体积（432直径(2R)、周长（2?r）和面积（?R）。 ?R3）及经过球心的横切面的 求方程X2+3X-1=0的根 3.(1). (2) PROGRAM EXAM3 PROGRAM EXAM4 IMPLICIT NONE IMPLICIT NONE REAL:R.H.C.S1.S2.S3.V.PI REAL:A.B.C PI=3.1415926
3、 X1=C-B+SQR+(B*B-Q*A*C)/(2*A) C=2*PI*R X2=C-B-SQR+(B*B-Q*A*C)/(2*A) SI=PI*R*R PRINI *X1*X2 S2=2*R END PROGRAM EXAM4 S3=R*PI*R*R 输入M:1，3，-1 V=4/3*RI*R*R*R 输出：3.027757E-0.1-3.302776 PRINT*,S1，S2，S3，V,C END PROGRAM EXAM3 输入M：3 输出：28.274330 6.000000 113.097300 84.823000 18.849560 测验4 选择布局程序设计 三、测验内容 1.运
4、行下面程序： PROGRAM EXAM1 IMPLICIT NONE INTEGER:A,B,C A=5 B=3 C=A.AND.B PRINT *,C END PROGRAM EXAM1 结果为： 3.编写程序： ?0 编写计算分段函数：y?x?e2?1?2.运行下面程序： PROGRAM EXAM2 LOGICAL:L1,L2,L3 L1=.TRUE. L2=23 L3=.NOT.L2.AND.L1 PRINT *,L1,L2,L3 END PROGRAM EXAM2 结果为： (x?1)(?1?x?1) (x?1) 由键盘输入学生劳绩，要求输出该劳绩的等级A, B, C, D, E。其中
5、60分以下为E；6070分为D；7080分为C；8090分为B；90100分为A。要求分别用块IF和块SELECT CASE语句编写。 求一元二次方程ax2?bx?c?0的根。 (2)、PROGRAM EXAM 2A IMPLICIF NONE READ*,SCORE SELECT(ASE(INICSCORE) CASE(90：100) PRINT*,A CASE (80：89) PRINT*B CASE(70：79) PRINT*C CASE(60:69) PRINT*D CASE(0:59) PRINT*E END SELECT END PROGRAM EXAM 4A 输入65 输出D 3
6、、(1)PRPGRAM EXAM1 IMPLICIF NONE REAL:X.Y READ*,X IF(X=90)THEN GRADE=A ELSE IF (SCORE=80) THEN GRADE=A ELSE IF(SCORE=70) THEN GRADE=C ELSE IF(SCORE=60) THEN GRADE=D ELSE GRADE=E END IF PRINT*,SCORE=; SCORE,GRADE=;GRADE END PROGRAM EXAM 4B 输入SCORE=79 输出GRADE=C (3) PROGRAM EXAM3 IMPLICIT NONE REAL:A,B,
7、C,D,X1，X2 READ*A,B,C D=B*B-4.0*A*C IF(ABSCD)0,0) THEN X1=(-B+SQRTCD)/(2.0*A) X1=(-B-SQRTCD)/(2.0*A) PRINT*,X1=1,X1X2=X2 ELSE PRINT*,X1=, -B/(2.0*A),+,SQRT(ABSCD1)/(2.0*A),I PRINT,X1=, -B/(2.0*A),-,SQRT(ABSCD1)/(2.0*A),I END IF END IF END PROGRAM EXAM3 输入 2,5,3 输出X1=-1.000000 X2=-1.500000 测验报告5 1.下面程
8、序功能是求正整数M，N的最小公倍数。在标注行有错，请改正。 PROGRAM EXAMPLE IMPLICIT NONE INTEGER:M,N,K,T,I READ*,M,N I=1 IF (M=1E-5) N=N+1 F=F*(-1) S=S+T T=1.0/(N*(N+1) T=T*F END DO PRINT*,”S=”,S END PROGRAM EXAM2 运行结果 S=6.137006E-01 判断400到500之间的书是否为素数，并计算素数的个数 PROGRAM EXAM3 IMPLICIT NONE INTEGER:I,J,N=0 DO I=400，500 DO J=2，I/2 IF(MOD(I,J)= =0) EXIT END DO IF(JI/2) N=-N+1 END DO PRINT (1X，“素数的个数为：”，I3),N END PROGRAM EXAM3 素数个数为17个 N?5 5
