Контрольная работа: Операции с матрицами

6.3.1. Процедура умножает значение каждого столбца каждой строки исходной матрицы на заданное число. Результат заносится в заданную матрицу.

7. Выводит результат на экран, для чего выводит сначала нумерацию строки матрицы-результата, затем, через запятую, все столбцы данной строки матрицы.

4. Блок-схема

нет

Сообщение: матрица А

??

нет

нет

То же самое для матриц B, C, D

нет

Процедура сложения матриц

нет

Вычитание очередного элемента исходной матрицы из соответствующего элемента второй исходной матрицы

Процедура вычитания матриц

нет

Умножение очередного элемента исходной матрицы на исходное число

Процедура умножения матрицы на число

нет

5. Листинг

label start,startA,startB,startC,startD;

type matrix = array[1..10,1..10] of integer;

var N,M,i,j,k,code: integer;

var A,B,C,D,E,X,Xtmp1,Xtmp2 : matrix;

varinput : string;

{процедура сложения матриц}

procedure Madd ( MA : matrix; MB : matrix);

begin

for i := 1 to N do begin

for j := 1 to N do begin

X[i,j] := MA[i,j] + MB[i,j];

end;

end;

end;

{процедура вычитания матриц}

procedure MSub ( MA : matrix; MB : matrix);