Даны координаты 2 точек на плоскости. Определить расстояние между ними. (координаты- x1;y1 и x2;y2), конечная формула должна выглядеть так: d= корень квадратный из выражения (x2-x1)^2 + (y2-y1)^2

Question

Даны координаты 2 точек на плоскости. Определить расстояние между ними. (координаты- x1;y1 и x2;y2), конечная формула должна выглядеть так: d= корень квадратный из выражения (x2-x1)^2 + (y2-y1)^2

Гость

Ответ(ы) на вопрос:

Accepted Answer

Program num1; Uses crt; Var x1,x2,y1,y2 : real; d:real; Begin clrscr; write('x1=');readln(x1); write('y1=');readln(y1); write('x2=');readln(x2); write('y2=');readln(y2); d:=sqrt(sqr(x2-x1)+sqr(y2-y1)); write('D=',d) End.