Необходимо написать программу сложения двух матриц произвольной размерности, предусмотреть проверку возможности сложения. программа написана не верно, исправить ошибки. type mass=array[1..10,1..10] of real; var a,b,c: mass; n,m,i,j,n1,m1: integer; procedure matra (var a: mass); var n,m,i,j: integer; begin for i: =1 to n do for j: =1 to m do writeln('a[',i,',',j,']: '); readln(a[i,j]); end; procedure matrb (var b: mass); var i,j,n1,m1: integer; begin for i: =1 to n1 do for j: =1 to m1 do writeln('b[',i,',',j,']: '); readln(b[i,j]); end; procedure sum(a,b,c: mass); var i,j,n,m: integer; begin for i: =1 to n do for j: =1 to m do c[i,j]: =a[i,j]+b[i,j]; end; begin writeln('введите n,m матрицы a'); readln(n,m); matra(a); writeln('введите n,m матрицы b'); readln(n1,m1); matrb(b); if (n1< > n) and (m1< > m) then writeln('матрицы сложить нельзя'); readln; sum(a,b,c); writeln('a+b'); for i: =1 to n do begin for j: =1 to m do write(c[i,j]: 1: 3, ' '); writeln; end; readln; end.
221
359
Ответы на вопрос:
Type mass = array[1..10, 1..10] of real; var a, b, c: mass; n, m, i, j, n1, m1: integer; procedure matra(var a: mass); var i, j: integer; begin for i : = 1 to n do for j : = 1 to m do begin writeln('a[', i, ',', j, ']: '); readln(a[i, j]) end end; procedure matrb(var b: mass); var i, j: integer; begin for i : = 1 to n1 do for j : = 1 to m1 do begin writeln('b[', i, ',', j, ']: '); readln(b[i, j]) end end; procedure sum(a, b: mass; var c: mass); var i, j: integer; begin for i : = 1 to n do for j : = 1 to m do c[i, j] : = a[i, j] + b[i, j]; end; begin writeln('введите n,m матрицы a'); readln(n, m); matra(a); writeln('введите n,m матрицы b'); readln(n1, m1); matrb(b); if (n1 < > n) and (m1 < > m) then writeln('матрицы сложить нельзя') else begin sum(a, b, c); writeln('a+b'); for i : = 1 to n do begin for j : = 1 to m do write(c[i, j]: 1: 3, ' '); writeln end end; readln; end.
Массив (в некоторых языках программирования также таблица, ряд, матрица, вектор) — структура данных, хранящая набор значений (элементов массива), идентифицируемых по индексу или набору индексов, принимающих целые (или приводимые к целым) значения из некоторого заданного непрерывного диапазона.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
alinaby1309.01.2022 10:36
-
МаксVFRCBV16.06.2021 00:05
-
kristinannm1715.05.2020 01:44
-
00svetochka0013.07.2022 02:15
-
dimok12050320.05.2023 11:25
-
saltanatkeneso31.12.2022 12:22
-
диас16125.02.2022 00:58
-
Костя1098765432112.11.2021 13:12
-
Исбанка24.01.2023 07:57
-
kingofpopmusic23.07.2021 23:15
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.