Нахождение расстояния между точками

@miksed · Регистрация: 04.01.2016

Четыре точки заданы своими координатами X(x1, x2), Y(y1, y2), Z(z1, z2), P(p1, p2). Выяснить, какие из них находятся на максимальном расстоянии друг от друга и найти значение этого расстояния. Вычисление расстояния между двумя точками оформить в виде процедуры.
Заранее спасибо))

@Daemvil · 18.01.2016, 09:58

Пожалуйста, задайте вопрос в развернутой форме. Многим, я думаю, (в том числе и мне) не понятно, что за координаты такие Вы задали. Обычно это (X,Y) на плоскости в декартовой системе координат, или радиус-вектор с углом в полярной (r, alpha). Что за Z P тоже не ясно.
Что именно интересует Вас в данном вопросе? как оформлять процедуры/функции? код нахождения расстояния между двумя точками(это больше математика)?

@Puporev · 18.01.2016, 11:17

Pascal

uses crt;
type point=record
           s:char;
           x,y:real;
           end;
procedure rasst(a,b:point;var r:real);
begin
r:=sqrt(sqr(a.x-b.x)+sqr(a.y-b.y));
end;
var a:array[1..4] of point;
    i,j,ii,jj:byte;
    r,mx:real;
begin
clrscr;
a[1].s:='X';
writeln('Введите координаты точки X');
readln(a[1].x,a[1].y);
a[2].s:='Y';
writeln('Введите координаты точки Y');
readln(a[2].x,a[2].y);
a[3].s:='Z';
writeln('Введите координаты точки Z');
readln(a[3].x,a[3].y);
a[4].s:='P';
writeln('Введите координаты точки P');
readln(a[4].x,a[4].y);
mx:=-1;
for i:=1 to 3 do
for j:=i+1 to 4 do
 begin
  rasst(a[i],a[j],r);
  if r>mx then
   begin
    mx:=r;
    ii:=i;
    jj:=j;
   end;
 end;
writeln('Максимальное расстояние между точками ',a[ii].s,' и ',a[jj].s,' = ',mx:0:2);
readln
end.

@miksed 0 / 0 / 0 Регистрация: 04.01.2016 Сообщений: 6
		1
	Нахождение расстояния между точками 18.01.2016, 09:31. Показов 4063. Ответов 2 Метки Подпрограммы (Все метки) Четыре точки заданы своими координатами X(x1, x2), Y(y1, y2), Z(z1, z2), P(p1, p2). Выяснить, какие из них находятся на максимальном расстоянии друг от друга и найти значение этого расстояния. Вычисление расстояния между двумя точками оформить в виде процедуры. Заранее спасибо)) 0

@Daemvil 0 / 0 / 1 Регистрация: 21.12.2009 Сообщений: 21
	18.01.2016, 09:58	2
	Пожалуйста, задайте вопрос в развернутой форме. Многим, я думаю, (в том числе и мне) не понятно, что за координаты такие Вы задали. Обычно это (X,Y) на плоскости в декартовой системе координат, или радиус-вектор с углом в полярной (r, alpha). Что за Z P тоже не ясно. Что именно интересует Вас в данном вопросе? как оформлять процедуры/функции? код нахождения расстояния между двумя точками(это больше математика)? 0

Опции темы

Нахождение расстояния между точками

Решение