作业帮fortran编程,求大虾,PROGRAM TESTIMPLICIT NONEINTEGER ::I,J,k,m,n,ierrREAL ::X,Y,Space,Angle,RREAL(8),PARAMETER::PI=3.141592654PRINT *,'请输入I,J,Space的值：'READ(*,*) I,J,SpacePRINT *,'请输入角度（单位度）:'READ (*,*) AngleAngle=3
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/30 01:37:56
fortran编程,求大虾,PROGRAM TESTIMPLICIT NONEINTEGER ::I,J,k,m,n,ierrREAL ::X,Y,Space,Angle,RREAL(8),PARAMETER::PI=3.141592654PRINT *,'请输入I,J,Space的值：'READ(*,*) I,J,SpacePRINT *,'请输入角度（单位度）:'READ (*,*) AngleAngle=3
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,
fortran编程,求大虾,PROGRAM TESTIMPLICIT NONEINTEGER ::I,J,k,m,n,ierrREAL ::X,Y,Space,Angle,RREAL(8),PARAMETER::PI=3.141592654PRINT *,'请输入I,J,Space的值：'READ(*,*) I,J,SpacePRINT *,'请输入角度（单位度）:'READ (*,*) AngleAngle=3
多了一个 , 吧
后面都没有字符串和变量了