
fortran编程,求大虾,这个错误是什么意思,多谢啦
PROGRAMTESTIMPLICITNONEINTEGER::I,J,k,m,n,ierrREAL::X,Y,Space,Angle,RREAL(8),PARAMETE...
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: ( <IDENTIFIER> <CHAR_CON_KIND_PARAM> <CHAR_NAM_KIND_PARAM> <CHARACTER_CONSTANT> <INTEGER_CONSTANT> ...
PRINT *, 'X=',X,'Y=',Y, 展开
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: ( <IDENTIFIER> <CHAR_CON_KIND_PARAM> <CHAR_NAM_KIND_PARAM> <CHARACTER_CONSTANT> <INTEGER_CONSTANT> ...
PRINT *, 'X=',X,'Y=',Y, 展开
展开全部
多了一个 , 吧
后面都没有字符串和变量了
后面都没有字符串和变量了
追问
还是不明白啊,什么多了,该怎么改呢,谢谢啦
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询