PROGRAM
IMPLICIT NONE
REAL:: A , B , G
PRINT*,'DWSTE THN a'
READ*,a
PRINT*,'DWSTE THN b'
READ*,b
PRINT*,'DWSTE THN G'
READ*,G
g = SQRT( a**2 + b**2 -2*a*b*COS(G)
PRINT*,g
a/SIN(A)=b/SIN(B)=g/SIN(G)
PRINT A,B
END
编译失败,
EXIT CODE 1
UNCLASSIFIABLE STATEMENT AT
a/SIN(A)=b/SIN(B)=g/SIN(G)
答案 0 :(得分:1)
报告的问题在这里
a/SIN(A)=b/SIN(B)=g/SIN(G)
,并且该消息确实意味着编译器无法理解其含义。我也不是,这当然不是合法的Fortran语法,而且我不知道您要在其中做什么。
您还缺少
中的括号SQRT( a**2 + b**2 -2*a*b*COS(G)
答案 1 :(得分:0)
请注意,Fortran是一种编程语言,不能与Maple或Mathematica等数学解释器混淆。在此类语言中,诸如
的语句可能a/SIN(A)=b/SIN(B)=g/SIN(G)
将自动解决所有未知数。但是,在Fortran中,您实际上必须告诉Fortran如何解决此问题。由于您知道g
和G
以及a
,因此您可以
A=ASIN(SIN(G)*a/g)
此外,为您提供信息:Fortran不区分大小写。因此变量g
和G
是相同的。