Реферат: Turbo Paskal Операции над матрицами

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 (n2<>m1)) then WriteLn ('ОШИБКА!!!')

elsebegin

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

К-во Просмотров: 865
Бесплатно скачать Реферат: Turbo Paskal Операции над матрицами