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

end;

end;

3: begin {Транспонирование матрицы}

for i1:=1 to m1 do

for j1:=1 to n1 do MAS2[i1,j1]:=MAS1[j1,i1]; {Формула}

WriteLn ('Транспонированная матрица: ');

for i1:=1 to m1 do begin {Вывод транспонированной матрицы}

for j1:=1 to n1 do

Write (MAS2[i1,j1]);

WriteLn;

end;

end;

4,5: begin {Сложение/вычитание матриц}

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

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

ReadLn (m2);

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

ReadLn (n2);

If (n2<>n1) or (m2<>m1)

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

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