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/06/30 21:16:21
![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](/uploads/image/z/9622887-15-7.jpg?t=fortran%E7%BC%96%E7%A8%8B%2C%E6%B1%82%E5%A4%A7%E8%99%BE%2CPROGRAM+TESTIMPLICIT+NONEINTEGER+%3A%3AI%2CJ%2Ck%2Cm%2Cn%2CierrREAL+%3A%3AX%2CY%2CSpace%2CAngle%2CRREAL%288%29%2CPARAMETER%3A%3API%3D3.141592654PRINT+%2A%2C%27%E8%AF%B7%E8%BE%93%E5%85%A5I%2CJ%2CSpace%E7%9A%84%E5%80%BC%EF%BC%9A%27READ%28%2A%2C%2A%29+I%2CJ%2CSpacePRINT+%2A%2C%27%E8%AF%B7%E8%BE%93%E5%85%A5%E8%A7%92%E5%BA%A6%EF%BC%88%E5%8D%95%E4%BD%8D%E5%BA%A6%EF%BC%89%3A%27READ+%28%2A%2C%2A%29+AngleAngle%3D3)
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
多了一个 , 吧
后面都没有字符串和变量了