Описать процедуру Dist...найти расстояния от точки P до прямых AB, AC, BC, если даны координаты точек P, A, B, C.

@camelby · Регистрация: 18.10.2010

Author24 — интернет-сервис помощи студентам

Описать процедуру Dist(Px,Py,Ax,Ay,Bx,By,D), находящую расстояние D от точки P до прямой AB по формуле D = 2SPAB / |AB|, где SPAB — площадь треугольника PAB. С помощью этой процедуры найти расстояния от точки P до прямых AB, AC, BC, если даны координаты точек P, A, B, C.

@Puporev · 25.10.2010, 13:57

Pascal

uses crt;
procedure Dist(px,py,ax,ay,bx,by:real;var d:real);
var s:real;
begin
s:=abs(ax*(by-py)+bx*(py-ay)+px*(ay-by))/2;
d:=2*s/sqrt(sqr(ax-bx)+sqr(ay-by));
write('Расстояние от точки Р до прямой АВ=',d:0:2);
end;
var px,py,ax,ay,bx,by,d:real;
begin
clrscr;
writeln('Введите координаты точки Р:');
readln(px,py);
writeln('Введите координаты точек на прямой:');
readln(ax,ay,bx,by);
Dist(px,py,ax,ay,bx,by,d);
readln
end.

@camelby 1 / 1 / 0 Регистрация: 18.10.2010 Сообщений: 4
		1
	Описать процедуру Dist...найти расстояния от точки P до прямых AB, AC, BC, если даны координаты точек P, A, B, C. 25.10.2010, 13:30. Показов 3850. Ответов 1 Метки нет (Все метки) Описать процедуру Dist(Px,Py,Ax,Ay,Bx,By,D), находящую расстояние D от точки P до прямой AB по формуле D = 2SPAB / \|AB\|, где SPAB — площадь треугольника PAB. С помощью этой процедуры найти расстояния от точки P до прямых AB, AC, BC, если даны координаты точек P, A, B, C. 0

	25.10.2010, 13:57

Описать процедуру Dist...найти расстояния от точки P до прямых AB, AC, BC, если даны координаты точек P, A, B, C.

Решение