Есть ответ 👍

Задали сделать прогу, незнаю как составить. используя функции 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

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

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

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

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

Caktus Image

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

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

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

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

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

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

Подпишись на наш телеграмм канал

GTP TOP NEWS