您所在位置：主题：[讨论]帮我看看这个程序有啥问题
lvcao20
[专家分：0] 发布于 2010-03-30 10:57:00
integer a,b,c
real s1,s2,s3
write(*,"('输入三条边长:'\)")
read*,a,b,c
if(a+b>c.and.a+c>b.and.b+c>a) then
s1=acos((b*b+c*c-a*a)/(2*b*c))
s2=acos((a*a+c*c-b*b)/(2*a*c))
s3=acos((b*b+a*a-c*c)/(2*a*b))
print*,'三边可以构成三角形'
print*,'三个角分别是:',s1,s2,s3
end if
end
一直提示说non-REAL argument to intrinsic procedure ACOS
麻烦帮我看看哈，谢谢了
real s1,s2,s3
write(*,"('输入三条边长:'\)")
read*,a,b,c
if(a+b>c.and.a+c>b.and.b+c>a) then
s1=acos((b*b+c*c-a*a)/(2*b*c))
s2=acos((a*a+c*c-b*b)/(2*a*c))
s3=acos((b*b+a*a-c*c)/(2*a*b))
print*,'三边可以构成三角形'
print*,'三个角分别是:',s1,s2,s3
end if
end
一直提示说non-REAL argument to intrinsic procedure ACOS
麻烦帮我看看哈，谢谢了
