您所在位置：主题：这个程序能运行不，要能咋搞？谢谢！
burger
[专家分：0] 发布于 2011-09-23 15:09:00
module myutils
type point
real:: x,y
end type point
contains
subroutine DisplayPoint(p)
type(point):: p
write(*,"('(,f7.2,',',f7.2,')')")p
end subroutine DisplayPoint
function DistanceOfPoints(p1,p2) result(d)
type(point):: p1,p2
real:: d
d=sqrt((p1%x-p2%x)**2+(p1%y-p2%y)**2)
end function DistanceOfPoints
end module myutils
program ex701
use myutils
implicit none
type(point):: a,b
real:: dis
print*,'输入两个点的坐标:'
read*,a,b
call DisplayPoint(a)
call DisplayPoint(b)
print*,'两个点的距离=',DistanceOfPoints(a,b)
end
type point
real:: x,y
end type point
contains
subroutine DisplayPoint(p)
type(point):: p
write(*,"('(,f7.2,',',f7.2,')')")p
end subroutine DisplayPoint
function DistanceOfPoints(p1,p2) result(d)
type(point):: p1,p2
real:: d
d=sqrt((p1%x-p2%x)**2+(p1%y-p2%y)**2)
end function DistanceOfPoints
end module myutils
program ex701
use myutils
implicit none
type(point):: a,b
real:: dis
print*,'输入两个点的坐标:'
read*,a,b
call DisplayPoint(a)
call DisplayPoint(b)
print*,'两个点的距离=',DistanceOfPoints(a,b)
end