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

[Beseech]

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

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

[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