Задали сделать прогу, незнаю как составить. используя функции 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. описать функцию 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. 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. (вот еще если понадобиться)proc17. используя функцию otr из proc16, описать функцию perim(ax,ay,bx,by,cx,cy) вещественного типа, находящую периметр треугольника abc по координатам его вершин (ax, ay, bx, by, cx, cy — вещественные параметры). с этой функции найти периметры треугольников abc, abd, acd, если даны координаты точек a, b, c, d. только напишите полностью с описательной частью т.е с началом и т.д . заранее огромное

142

500

Посмотреть ответы 2

Ответы на вопрос:

vansm735

Информатика

4,6(58 оценок)

Function otr(ax, ay, bx, by: real): real; begin otr : = sqrt(sqr(ax - bx) + sqr(ay - by)) end; function perim(ax, ay, bx, by, cx, cy: real): real; begin perim : = 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 pp: real; begin pp : = perim(ax, ay, bx, by, cx, cy) / 2; area : = sqrt(pp * (pp - otr(ax, ay, bx, by)) * (pp - otr(bx, by, cx, cy)) * (pp - otr(ax, ay, cx, 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; var px, py, ax, ay, bx, by, cx, cy: real; d: real; begin writeln('вводите координаты точкек парами чисел: '); write('p-> '); readln(px, py); write('a-> '); readln(ax, ay); write('b-> '); readln(bx, by); write('c-> '); readln(cx, cy); writeln; dist(px, py, ax, ay, bx, by, d); writeln('расстояние от р до ав равно ', d); dist(px, py, cx, cy, bx, by, d); writeln('расстояние от р до вc равно ', d); dist(px, py, ax, ay, cx, cy, d); writeln('расстояние от р до аc равно ', d) end. тестовое решение: вводите координаты точкек парами чисел: p-> -3 6 a-> 5 8 b-> 9 -4 c-> 8 -2.5 расстояние от р до ав равно 8.22192191643778 расстояние от р до вc равно 4.43760156980184 расстояние от р до аc равно 8.24163383692135

natalia245p025sf

Информатика

4,8(2 оценок)

Если я правильно помню, то это двоеточие, точка с запятой, запятая, тире, плюс, минус и т.д

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.