Регистрация Спросить otvet5GPT
germanlandyshev
09.02.2021 01:18
Информатика
Есть ответ 👍

составьте алгоритм вычисления расстояния между двумя точками x1, y1, x2, y2(использую теорему Пифагора.​

137
478
Посмотреть ответы 1

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

макс17281
макс17281
4,4(83 оценок)
// pascalabc.net 3.2, сборка 1401 от 14.03.2017 // внимание! если программа не работает, обновите версию! procedure sumkoleven(a: array[,] of integer; var s,k: integer); begin   var p: =a.rows.selectmany(x-> x).where(x-> x.iseven);   s: =p.sum; k: =p.count end; procedure maxcoord(a: array[,] of integer; var imax,jmax: integer); begin   (imax,jmax): =(0,0);   for var i: =0 to a.rowcount-1 do       for var j: =0 to a.colcount-1 do           if a[i,j]> a[imax,jmax] then (imax,jmax): =(i,j) end; procedure zeroeven(a: array[,] of integer); begin   for var i: =0 to a.rowcount-1 do       for var j: =0 to a.colcount-1 do           if a[i,j].iseven then a[i,j]: =0 end; procedure maxsumrow(a: array[,] of integer; var irow: integer); begin   irow: =a.rows.select(x-> x.sum).toarray.indexmax; end; begin   var n: =readinteger('количество строк в массиве: ');   var m: =readinteger('количество столбцов в массиве: ');   writeln('*** исходный массив [',n,',',m,'] ***');   var a: =matrrandom(n,m,-99,99);   a.println(4); writeln(4*a.colcount*'-');   var sum,kol: integer;   sumkoleven(a,sum,kol); writeln('s=',sum,', k=',kol);   var im,jm: integer;   maxcoord(a,im,jm); writeln('координаты максимума [',im+1,',',jm+1,']');   var b: =copy(a);   zeroeven(b);   b.println(4); writeln(4*b.colcount*'-');   maxsumrow(a,im); writeln('максимальная сумма у строки ',im+1) end. пример количество строк в массиве: 5 количество столбцов в массиве: 8 *** исходный массив [5,8] ***   23  94  26  40 -88 -29  88 -46   -98  64 -78  93  17  36  66  56   -52 -16  -7 -33 -63 -95  40  96   10 -30  79 -75 -47  83  30 -70   -37 -50 -80  18  -7 -43  68 -68 s=56, k=25 координаты максимума [3,8]   23    0    0    0    0 -29    0    0     0    0    0  93  17    0    0    0     0    0  -7 -33 -63 -95    0    0     0    0  79 -75 -47  83    0    0   -37    0    0    0  -7 -43    0    0 максимальная сумма у строки 2

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

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

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

Caktus Image

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

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

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

  • Сколько это стоит?

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

  • Могу ли я использовать otvet5GPT в школе?

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

  • В чем отличия от ChatGPT?

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

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

GTP TOP NEWS