神马作文网fortran编程,求大虾,
来源：学生作业帮 编辑：神马作文网作业帮 分类：综合作业 时间：2024/09/20 19:26:45
fortran编程,求大虾,
PROGRAM TEST
IMPLICIT NONE
INTEGER ::I,J,k,m,n,ierr
REAL ::X,Y,Space,Angle,R
REAL(8),PARAMETER::PI=3.141592654
PRINT *,'请输入I,J,Space的值：'
READ(*,*) I,J,Space
PRINT *,'请输入角度（单位度）:'
READ (*,*) Angle
Angle=360/Angle
k=(J-I)/Space
DO n=1,k
DO m=1,Angle
Array=m*2.0d0*PI/(Angle*1.0d0)
R=I+Space*(2.0*n-1.0)/2.0
X=R*COS(Array)
Y=R*SIN(Array)
PRINT *,'X=',X,'Y=',Y,
END DO
END DO
END PROGRAM TEST
程序运行时出现一个错误,请问这个错误是什么意思,看不懂那
E:\project\Chap 09\total\t.f90(19) :Error:Syntax error,found END-OF-STATEMENT when expecting one of:( ...
PRINT *,'X=',X,'Y=',Y,
PROGRAM TEST
IMPLICIT NONE
INTEGER ::I,J,k,m,n,ierr
REAL ::X,Y,Space,Angle,R
REAL(8),PARAMETER::PI=3.141592654
PRINT *,'请输入I,J,Space的值：'
READ(*,*) I,J,Space
PRINT *,'请输入角度（单位度）:'
READ (*,*) Angle
Angle=360/Angle
k=(J-I)/Space
DO n=1,k
DO m=1,Angle
Array=m*2.0d0*PI/(Angle*1.0d0)
R=I+Space*(2.0*n-1.0)/2.0
X=R*COS(Array)
Y=R*SIN(Array)
PRINT *,'X=',X,'Y=',Y,
END DO
END DO
END PROGRAM TEST
程序运行时出现一个错误,请问这个错误是什么意思,看不懂那
E:\project\Chap 09\total\t.f90(19) :Error:Syntax error,found END-OF-STATEMENT when expecting one of:( ...
PRINT *,'X=',X,'Y=',Y,
多了一个 , 吧
后面都没有字符串和变量了
再问： 还是不明白啊，什么多了，该怎么改呢，谢谢啦
后面都没有字符串和变量了
再问： 还是不明白啊，什么多了，该怎么改呢，谢谢啦