[horus]

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

[Страдалецъ]

...из заданий Proc16 и Proc18,...

Где задания? Я вам сейчас таких функций нафантазирую...

[Konrad]

Тут однозначно в раздел работа.

[horus]

Proc16. Описать функцию Otr(Ax,Ay,Bx,By) вещественного типа, находящую длину отрезка AB на плоскости по координатам его концов: |AB| = sqrt((Ax-Bx)2 + (Ay-By)2) (Ax, Ay, Bx, By — вещественные параметры). С помощью этой функции найти длины отрезков AB, AC, AD, если даны координаты точек A, B, C, D.

Proc17. Используя функцию Otr из задания Proc16, описать функцию Perim(Ax,Ay,Bx,By,Cx,Cy) вещественного типа, находящую периметр треугольника ABC по координатам его вершин (Ax, Ay, Bx, By, Cx, Cy — вещественные параметры). С помощью этой функции найти периметры треугольников ABC, ABD, ACD, если даны координаты точек A, B, C, D.

вот эти proc16 и proc17

[Страдалецъ]

Не, не быть вам читателем. У вас в задании четко написано:

Код:

1	Используя функции Otr и Area из заданий Proc16 и Proc18...

Не зная этих функция ваше задание не сделать. Я вас просил их дать, вы мне даете:

вот эти proc16 и proc17

Когда теперь ждать Proc18 ?

[horus]

Извини проглядел))
Proc18. Используя функции Otr и Perim из заданий Proc16 и Proc17, описать функцию Area(Ax,Ay,Bx,By,Cx,Cy) вещественного типа, находящую площадь треугольника ABC по формуле Герона:
SABC = sqrt(p·(p–|AB|)·(p–|AC|)·(p–|BC|)),
где p — полупериметр. С помощью этой функции найти площади треугольников ABC, ABD, ACD, если даны координаты точек A, B, C, D.

[student2009]

Пользуйся на здоровье.

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

function Otr(Ax, Ay, Bx, By: real): real; begin Result:=Abs(sqrt(sqr(Bx-Ax)+sqr(By-Ay))); end;   function perim(Ax,Ay,Bx,By,Cx,Cy: real): real; begin Result:=Otr(Ax, Ay, Bx, By)+Otr(Bx, By, Cx, Cy)+Otr(Ax, Ay, Cx, Cy); end;   function Area(Ax, Ay, Bx, By, Cx, Cy: real):real; var p: real; begin p:=Perim(Ax, Ay, Bx, By, Cx, Cy)/2; Result:=sqrt(p*(p-Otr(Ax, Ay, Bx, By))*         (p-Otr(Bx, By, Cx, Cy))*(p-Otr(Cx, Cy, Ax, Ay))); end;   procedure Dist(Px, Py, Ax, Ay, Bx, By: real; var D: real); begin D:=2*Area(Px, Py, Ax, Ay, Bx, By)/Otr(Ax, Ay, Bx, By); end;

[horus]

Огромное спасибо

[horus]

А ты можеш еще написать описательную часть? т.е начало