расстояние между точками, на плоскости и в пространстве Опции

[Beseech]

Вычислить расстояние между двумя точками на плоскости. Вычислить расстояние между двумя точками в пространстве.
Заранее благодарен

Сообщение отредактировано: мисс_граффити - 14.06.2007 22:19

[Tan]

Если известны их координаты , для плоскости - теорема пифагора, для пространства аналогичная пространственная интерпретация этой теоремы.

Сообщение отредактировано: Tan - 15.03.2007 3:18

[Айра]

А координаты точек пользователь вводит или как? У тебя какие-нибудь наброски уже есть?
Вот формулы:
|AB|=sqrt(sqr(x2-x1)+sqr(y2-y1)) - для плоскости
|AB|=sqrt(sqr(x2-x1)+sqr(y2-y1)+sqr(z2-z1)) - для пространства.

Сообщение отредактировано: Айра - 15.03.2007 3:27

[Tan]

вот для плоскости, если пользователь вводит координаты:

uses crt;
var x1,y1,x2,y2 : integer;
              s : real;
begin
Clrscr;
readln (x1);
readln (y1);
readln (x2);
readln (y2);
s:= sqrt(sqr(x2 - x1) + sqr(y2 - y1));
writeln (s:0:4);
readkey;
end.

Добавлено через 2 мин.
вот для пространства:

uses crt;
var x1,y1,x2,y2,z1,z2 : integer;
                              s : real;
begin
Clrscr;
readln (x1);
readln (y1);
readln (x2);
readln (y2);
readln (z1);
readln (z2);
s:= sqrt(sqr(x2 - x1) + sqr(y2 - y1) + sqr(z2 - z1));
writeln (s:0:4);
readkey;
end.

Сообщение отредактировано: Tan - 15.03.2007 3:35

[Гость]

Большое спс