Ответы на вопрос:
Type point=record x,y: real end; procedure getpoint(c: char; var a: point); var x,y: real; begin write('введите координаты x и y точки ',c,': '); read(x,y); a.x: =x; a.y: =y end; function distpoint(a,b: point): real; begin distpoint: =sqrt(sqr(b.x-a.x)+sqr(b.y-a.y)) end; var a,b,m: point; d,p,ab,ma,mb: real; begin getpoint('a',a); getpoint('b',b); getpoint('m',m); ab: =distpoint(a,b); ma: =distpoint(m,a); mb: =distpoint(m,b); if ma> =ab+mb then d: =mb else if mb> =ma+ab then d: =ma else begin p: =(ma+mb+ab)/2; d: =2*sqrt(p*(p-ab)*(p-ma)*(p-mb))/ab end; writeln('минимальное расстояние составляет ',d) end. тестовое решение: введите координаты x и y точки a: -3 -5 введите координаты x и y точки b: 2 5 введите координаты x и y точки m: -3 4 минимальное расстояние составляет 4.02492235949962
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
milka556130.03.2022 22:24
-
larry1909.04.2021 19:14
-
AgafAl13.05.2021 08:49
-
надя65325.01.2022 06:14
-
maryamra221010.03.2023 02:05
-
Котик284110.10.2021 07:31
-
marinatroshina03.06.2021 09:57
-
nikolaivanov1116.04.2022 14:59
-
Гугко14.01.2020 19:36
-
galina15726.11.2020 13:01
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.