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

Разработайте универсальную подпрограмму, определяющую сумму элементов в тех строках матрицы размером n×m элементов, которые не содержат отрицательных элементов. поместите подпрограмму в модуль. разработайте тестирующую программу. паскаль.

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

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

катя5087
катя5087
4,7(75 оценок)
1. помещаем нижеследующий текст в файл unisum.pas, который должен находиться в директории pabcwork.net // pascalabc.net 3.0, сборка 1128 unit unisum; interface function unisummatrix(a: array[,] of integer): integer; function unisummatrix(a: array[,] of real): real; overload; implementation function unisummatrix(a: array[,] of integer): integer; begin   result: =0;   for var i: =0 to length(a,0)-1 do       for var j: =0 to length(a,1)-1 do           if a[i,j]> 0 then result+=a[i,j] end; function unisummatrix(a: array[,] of real): real; overload; begin   result: =0;   for var i: =0 to length(a,0)-1 do       for var j: =0 to length(a,1)-1 do           if a[i,j]> 0 then result+=a[i,j] end; end. 2. создаем новый файл и помещаем в него тестовую программу // pascalabc.net 3.0, сборка 1128 uses   unisum; begin   var m: =readinteger('число строк в матрице: ');   var n: =readinteger('число столбцов в матрице: ');   var r: =matrixrandom(m,n,-10,20);   writeln('сгенерированная матрица');   for var i: =0 to m-1 do begin       for var j: =0 to n-1 do write(r[i,j]: 4);       writeln       end;   writeln('сумма положительных элементов: ',unisummatrix(r));   m: =readinteger('число строк в матрице: ');   n: =readinteger('число столбцов в матрице: ');   var s: =matrixrandomreal(m,n,-15,32);   writeln('сгенерированная матрица');   for var i: =0 to m-1 do begin       for var j: =0 to n-1 do write(s[i,j]: 7: 2);       writeln       end;   writeln('сумма положительных элементов: ',unisummatrix(s): 0: 2) end. тестовое решение: число строк в матрице: 4 число столбцов в матрице: 3 сгенерированная матрица   -10  15  17   -8  -8    7     2  -9    0   -1    5  17 сумма положительных элементов: 63 число строк в матрице: 5 число столбцов в матрице: 6 сгенерированная матрица     0.74  -7.30  15.97    5.01    1.55  12.02   -3.98  -9.21    3.35  -7.95 -14.10  31.21   13.75  -5.82  -5.34  13.33  14.61  15.76   -5.30  14.65    2.60  20.26  27.30  10.81   11.60  27.43    5.61 -10.29 -10.48  26.61 сумма положительных элементов: 274.18 как видно, программа действительно универсальная: она позволяет работать с матрицами разных размеров и даже разного типа данных.
AllRay1
AllRay1
4,5(86 оценок)

Честно не поняла задания вообще

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

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

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

Caktus Image

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

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

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

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

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

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

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

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

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

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

GTP TOP NEWS