fortran编程中的问题,我是菜鸟,盼大虾,感激PROGRAM TEST11IMPLICIT NONEREAL::ArrayREAL(8),PARAMETER::PI=3.141592654INTEGER::n,jPRINT *,'Input the value of n:'READ (*,*) nDO j=1,nArray=j/n*2*PI PRINT*,'SIN(Array)=',SIN(Array),'COS(Array)=',

来源:学生作业帮助网 编辑:作业帮 时间:2024/10/18 15:16:02
fortran编程中的问题,我是菜鸟,盼大虾,感激PROGRAM TEST11IMPLICIT NONEREAL::ArrayREAL(8),PARAMETER::PI=3.141592654INTEGER::n,jPRINT *,'Input the value of n:'READ (*,*) nDO j=1,nArray=j/n*2*PI PRINT*,'SIN(Array)=',SIN(Array),'COS(Array)=',
xTmKP+[./]3b4 m@ǔQF,][a骨n!3i/vs6IWi]9<އ#U+Zd.wmu=4n >\gOdu-rK`EC%}QW P5U.ȹt:W^xl9rV6B:+ĹC1&*bYYA2OHaQH&LhZ Ų6Fp:DPk8׻Ηm"렿ojIa(_:{<B`gR)Q̴ v܏-2#sV>aX+2-@F!)qqϨOpĭ`J1I>0fg>G`5tnۺl\7$p:ûgeӑč?;$$R2 yW

fortran编程中的问题,我是菜鸟,盼大虾,感激PROGRAM TEST11IMPLICIT NONEREAL::ArrayREAL(8),PARAMETER::PI=3.141592654INTEGER::n,jPRINT *,'Input the value of n:'READ (*,*) nDO j=1,nArray=j/n*2*PI PRINT*,'SIN(Array)=',SIN(Array),'COS(Array)=',
fortran编程中的问题,我是菜鸟,盼大虾,感激
PROGRAM TEST11
IMPLICIT NONE
REAL::Array
REAL(8),PARAMETER::PI=3.141592654
INTEGER::n,j
PRINT *,'Input the value of n:'
READ (*,*) n
DO j=1,n
Array=j/n*2*PI
PRINT*,'SIN(Array)=',SIN(Array),'COS(Array)=',COS(Array)
END DO
END PROGRAM TEST11该程序运行的结果是 Input the value of n:
10
SIN(Array)= 0.0000000E+00COS(Array)= 1.000000
SIN(Array)= 0.0000000E+00COS(Array)= 1.000000
SIN(Array)= 0.0000000E+00COS(Array)= 1.000000
SIN(Array)= 0.0000000E+00COS(Array)= 1.000000
SIN(Array)= 0.0000000E+00COS(Array)= 1.000000
SIN(Array)= 0.0000000E+00COS(Array)= 1.000000
SIN(Array)= 0.0000000E+00COS(Array)= 1.000000
SIN(Array)= 0.0000000E+00COS(Array)= 1.000000
SIN(Array)= 0.0000000E+00COS(Array)= 1.000000
SIN(Array)= 1.7484555E-07COS(Array)= 1.000000,前面的9个数怎么都是0呢,哪出错了,

fortran编程中的问题,我是菜鸟,盼大虾,感激PROGRAM TEST11IMPLICIT NONEREAL::ArrayREAL(8),PARAMETER::PI=3.141592654INTEGER::n,jPRINT *,'Input the value of n:'READ (*,*) nDO j=1,nArray=j/n*2*PI PRINT*,'SIN(Array)=',SIN(Array),'COS(Array)=',
PROGRAM TEST11
IMPLICIT NONE
REAL::Array
REAL(8),PARAMETER::PI=3.141592654
INTEGER::n,j

PRINT *,'Input the value of n:'
READ (*,*) n
DO j=1,n
Array=j*2.0d0*PI/(n*1.0d0)
PRINT*, 'SIN(Array)=',SIN(Array),'COS(Array)=',COS(Array)
END DO
END PROGRAM
我帮你改完了,你试试吧.
有什么问题可以再问我