Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

Writeln ('Введите кол-во столбцов второй матрицы');

ReadLn (n2);

If (n2n1) or (m2m1) then WriteLn ('OSHIBKA!!!') {Условие ошибки} else begin

WriteLn ('Введите вторую матрицу'); for i1:=1 to m1 do for j1:=1 to n1 do

Read (MAS2[i1,j1]); end; for i1:=1 to m1 do {Вывод второй матрицы} begin for j1:=1 to n1 do

Write (MAS2[i1,j1]);

WriteLn; end;

if operation = 4 then k := 1; if operation = 5 then k := -1; for i1:=1 to m1 do for j1:=1 to n1 do

MAS3[i1,j1]:=MAS1[i1,j1]+k*MAS2[i1,j1];
{Итоговая формула}

writeln('Сумма/разность:'); for i1:=1 to m1 do begin for j1:=1 to n1 do Write(MAS3[i1,j1]);

WriteLn; end;

end;

6: begin {Умножение матриц}

{Ввод второй матрицы}

WriteLn ('Введите кол-во строк второй матрицы');

ReadLn (m2);

Writeln ('Введите кол-во столбцов второй матрицы');

ReadLn (n2);

If ((1>=m2) or (m2>=10) or (1>=n2) or (n2>=10)
{Условие ошибки} or (n2m1)) then WriteLn
('ОШИБКА!!!') else begin

WriteLn ('Введите вторую матрицу'); for i2:=1 to m2 do for j2:=1 to n2 do Read
(MAS2[i2,j2]); end; for i2:=1 to m2 do begin {Вывод второй матрицы} for j2:=1 to n2 do

Write (MAS2[i2,j2]);

WriteLn; end; m3:=m1; n3:=n2; for i3:=1 to m3 do for j3:=1 to n3 do begin

MAS3[i3,j3] := 0; for i2:= 1 to m2 do

{Итоговая формула}

MAS3[i3,j3] :=MAS3[i3,j3] +
MAS1[i3,i2] * MAS2[i2,j3]; end; begin {Вывод произведения} writeln; writeln('Произведение:'); for i3:=1 to m1 do begin for j3:=1 to n2 do Write
(MAS3[i3,j3]);

Рекомендуем скачать другие рефераты по теме: реферат, баллов.



Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки