Есть ответ 👍

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

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

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


Type   point=record       x,y: real   end;   function distance2(a,b: point): real;   { возвращает квадрат расстояния между точками } begin   distance2: =sqr(b.x-a.x)+sqr(b.y-a.y) end; function max(p,q: real): real;   { возвращает максимальное из p,q } begin   if p> q then max: =p else max: =q end; procedure vvod(var a: point; n: integer);   { процедура с изменяемым параметром a } begin   write('введите координаты точки ',n,': ');   readln(a.x,a.y) end; var   a: array[1..3] of point;   d1,d2,d3: real;   i: integer; begin   for i: =1 to 3 do vvod(a[i],i);   d1: =distance2(a[1],a[2]);   d2: =distance2(a[1],a[3]);   d3: =distance2(a[2],a[3]);   if d1> d2 then       if d1> d3 then writeln('максимальное расстояние 1-2')       else           if d1=d3 then writeln('максимальное расстояние 1-2 и 2-3')           else writeln('максимальное расстояние 2-3')   else       if d1=d2 then           if d1> d3 then writeln('максимальное расстояние 1-2 и 1-3')           else               if d1=d3 then writeln('расстояния между всеми точками одинаковы')               else writeln('максимальное расстояние 2-3')       else           if d3> d2 then writeln('максимальное расстояние 2-3')           else               if d3=d2 then writeln('максимальное расстояние 1-3 и 2-3')               else writeln('максимальное расстояние 1-3'); end. тестовое решение: введите координаты точки 1: -2 1 введите координаты точки 2: 4 5 введите координаты точки 3: 2 -2 максимальное расстояние 2-3
Germes11
4,7(46 оценок)

75,55555555555556

Объяснение:

1 Кбайт = 8192 битам , тогда 17 Кбайт = 139 264 бит,                                                    139 264 бит / 30 бит\с = 4 642,1(3) секунд, 4 642,1(3) / 60 = 77,36888888888889 минут

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

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

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

Caktus Image

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

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

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

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

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

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

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

GTP TOP NEWS