Регистрация
гульназ85
11.02.2023 02:13
Информатика
Есть ответ 👍

Необходимо написать программу сложения двух матриц произвольной размерности, предусмотреть проверку возможности сложения. программа написана не верно, исправить ошибки. 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.

140
254
Посмотреть ответы 2

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

alinamensikova
alinamensikova
4,6(85 оценок)
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.
Mrfest
Mrfest
4,7(39 оценок)
Количество символов в алфавите (=количество различных символов в " zlxuzx& $no") = 8. объем одного символа = log(2)8 = 3 бита. объем сообщения = (10/2)*3 = 15 бит ответ: 1)

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