Практикум по решению задач на ЭВМ. Тарова И.Н - 73 стр.

UptoLike

ВУЗ: 

ЕГУ им. Бунина | Елец

Составители: 

Рубрика: 

Практикум по решению задач на ЭВМ
2) Даны квадратные матрицы А и В порядка n . Получить матрицу АВ-
ВА.
3) Даны действительные матрицы А, В размера
nm
×
. Найти А+В.
program matr(input,output);
const m=3;
const n=4;
var i,j,k:integer;a,b,c:array[1..m,1..n] of real;
begin
writeln('vvedite matrix a[m,n]');
for i:=1 to m do
for j:=1 to n do
read(b[i,j]);
writeln('vvedite matrix b[m,n]');
for i:=1 to m do
for j:=1 to n do
read(a[i,j]);
for i:=1 to m do
for j:=1 to n do
c[i,j]:=a[i,j]+b[i,j];
writeln ('vivod matrix c');
for i:=1 to m do
begin
for j:=1 to n do
write(c[i,j]);
writeln;
end;
readln;
end.
4) Даны действительные матрицы А, В размера
l
k
×
и
l
m× соответ-
ственно. Найти произведение
B
A
×
.
program matr(input,output);
73
                      Практикум по решению задач на ЭВМ



2) Даны квадратные матрицы А и В порядка n . Получить матрицу АВ-
ВА.

3) Даны действительные матрицы А, В размера m × n . Найти А+В.

  program matr(input,output);
   const m=3;
  const n=4;
  var i,j,k:integer;a,b,c:array[1..m,1..n] of real;
     begin
      writeln('vvedite matrix a[m,n]');
      for i:=1 to m do
       for j:=1 to n do
        read(b[i,j]);
      writeln('vvedite matrix b[m,n]');
      for i:=1 to m do
     for j:=1 to n do
        read(a[i,j]);
         for i:=1 to m do
         for j:=1 to n do
           c[i,j]:=a[i,j]+b[i,j];
           writeln ('vivod matrix c');
            for i:=1 to m do
             begin
              for j:=1 to n do
              write(c[i,j]);
              writeln;
             end;
             readln;
          end.




4) Даны действительные матрицы А, В размера k × l и m × l соответ-
ственно. Найти произведение A× B .

  program matr(input,output);


                                         73

Страницы