Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ расстояние между точками

Автор: Beseech 15.03.2007 1:37

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

Автор: Tan 15.03.2007 3:17

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

Автор: Айра 15.03.2007 3:18

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

Автор: Tan 15.03.2007 3:28

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

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.

Автор: Гость 15.03.2007 11:28

Большое спс smile.gif