fortran在线求解（在线求解）

你好同学，代码供参考

program main
implicit none
real(8):: x1,y1,z1
real(8):: x2,y2,z2
real(8):: d
write(*,*)'输入x1,y1,z1:'
read(*,*)x1,y1,z1
write(*,*)'输入x2,y2,z2:'
read(*,*)x2,y2,z2
d = dsqrt((x1-x2)**2+(y1-y2)**2+(z1-z2)**2)
write(*,*)'距离为：', d
end

示例：

 输入x1,y1,z1:
-1 4 6
 输入x2,y2,z2:
1 5 -2
 距离为：   8.3066238629180749