用fortran写一个小程序,计算平面上任意两点a(xa,ya),b(xb,yb)间的距离

program square

type :: Point2d

real :: x

real :: y

end type

type(Point2d) :: a, b

read '(f104, f104)', a

read '(f104, f104)', b

print , distance(a,b)

contains

real function distance(this, other)

type(Point2d),intent(in) :: this, other

distance = sqrt((a%x-b%x)2 + (a%y-b%y)2)

end function

end program

#include<stdioh>

#include<mathh>

int main()

{

double a1,a2;

double b1,b2;

double distance;

scanf("%if %lf",&a1,&a2);

scanf("%if %lf",&b1,&b2);

distance=sqrt((x1-x2)(x1-x2)+(y1-y2)(y1-y2));

printf("%lf\n",distance);

return 0;

}

1、首先在打开的电脑中，打开IDLE（python 3x）软件，如下图所示。

2、然后创建一个列表：>>> a=[33,44 ,55, 66, 77, 88, 44]，如下图所示。

3、确定每个元素的索引位置，如下图所示。

4、对列表进行遍历一次：将需要判断的元素依次和列表的元素进行比较。

5、整个过程的实现代码，如下图所示就完成了。

声明x1、y1、x2、y2浮点型变量为点p1和p2的座标，输入数值后直接由公式√(x1-x2)^2+(y1-y2)^2求出。代码如下：

#include "stdioh"

#include "mathh"//调用sqrt需要包含此文件

int main(int argc,char argv[]){

double x1,y1,x2,y2;

printf("Please enter the coordinates of 2 points\n");

scanf("%lf%lf%lf%lf",&x1,&y1,&x2,&y2);//输入点座标

printf("The distance(p1(%g,%g) to p2(%g,%g)) is ",x1,y1,x2,y2);

printf("%g\n",sqrt((x1-=x2)x1+(y1-=y2)y1));//直接用公式求结果

return 0;

}

运行样例如下：

以上就是关于用fortran写一个小程序,计算平面上任意两点a(xa,ya),b(xb,yb)间的距离全部的内容，包括:用fortran写一个小程序,计算平面上任意两点a(xa,ya),b(xb,yb)间的距离、用c语言编写一个求平面上两点的距离公式、python 输入平面上第一象限中的一个点坐标，第三象限中的一个点的坐标，计算两点间的距离。等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！