怎么用FORTRAN写:已知三角形三点坐标,求三角形面积?

来源:学生作业帮助网 编辑:作业帮 时间:2024/10/08 03:52:43
怎么用FORTRAN写:已知三角形三点坐标,求三角形面积?
x){dg)+B|g훞_dG哞]dbBNNNNN1ruqE)0Ԁm J44*t+ 5㌴5*t+A,M|L.o,$o7j$j'i'k>Z> 2 L&kjb>@BɎ] +5$فm)

怎么用FORTRAN写:已知三角形三点坐标,求三角形面积?
怎么用FORTRAN写:已知三角形三点坐标,求三角形面积?

怎么用FORTRAN写:已知三角形三点坐标,求三角形面积?
write(*,*) ' 请输入三角形三个顶点的坐标 x1,y1,x2,y2,x3,y3:'
read(*,*) x1,y1,x2,y2,x3,y3
a=sqrt((x2-x1)^2+(y2-y1)^2)
b=sqrt((x3-x1)^2+(y3-y1)^2)
c=sqrt((x3-x2)^2+(y3-y2)^2)
L=(a+b+c)/2
s=sqrt(L*(L-a)*(L-b)*(L-c))
write(*,*) ' 该三角形的面积为:',s
end