Найти длины высот треугольника, если заданы координаты вершин треугольника

@Vadim228 · Регистрация: 21.12.2015

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

Найти длины высот треугольника, если заданы координаты вершин треугольника.
Через функцию

@Puporev · 22.12.2015, 21:55

Pascal

function Visota(x1,y1,x2,y2,x3,y3:real):real;
var s:real;
begin
s:=abs(x1*(y2-y3)+x2*(y3-y1)+x3*(y1-y2))/2;{площадь}
Visota:=2*s/sqrt(sqr(x1-x2)+sqr(y1-y2));
end;
var x1,y1,x2,y2,x3,y3:real;
begin
writeln('Введите координаты X,Y вершин треугольника:');
readln(x1,y1,x2,y2,x3,y3);
write('Длины высот: ',Visota(x1,y1,x2,y2,x3,y3):0:2,' ',
                      Visota(x2,y2,x3,y3,x1,y1):0:2,' ',
                      Visota(x3,y3,x1,y1,x2,y2):0:2);
readln
end.

@Vadim228 1 / 1 / 0 Регистрация: 21.12.2015 Сообщений: 8
		1
	Найти длины высот треугольника, если заданы координаты вершин треугольника 22.12.2015, 21:41. Показов 2807. Ответов 1 Метки нет (Все метки) Найти длины высот треугольника, если заданы координаты вершин треугольника. Через функцию 0

	22.12.2015, 21:55

Найти длины высот треугольника, если заданы координаты вершин треугольника

Решение