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

 

 

 

 

нет

 

 

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

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

 

 

нет

 

 

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

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

 

 

нет

 

 

Листинг

 

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;

var input : 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);

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 MK ( MA : matrix; k : integer);

begin

for i := 1 to N do begin

for j := 1 to N do begin

X[i,j] := MA[i,j] * k;

end;

end;

end;

begin

Start:

writeln ('Введите размер матрицы(2-9)');

{примем размеры матриц}

readln (input);

val (input,N,code);

if code = 1 then begin

writeln ('Ошибка - нечисловое значение');

goto Start;

end;

if (N > 9) or (N < 2) then

begin

writeln ('Неверный размер матрицы');

goto Start;

end;

StartA:

writeln ('Матрица A:');

for i := 1 to N do

for j := 1 to N do

begin

writeln ('Введите ',i,'-ое значение ',j,'-ого ряда');

readln (input);

val (input,M,code);

if code = 1 then begin

writeln ('Ошибка - нечисловое значение');

goto StartA;

end;

A[i,j] := M;

end;

StartB:

writeln ('Матрица B:');

for i := 1 to N do

for j := 1 to N do

begin

writeln ('Введите ',i,'-ое значение ',j,'-ого ряда');

readln (input);

val (input,M,code);

if code = 1 then begin

writeln ('Ошибка - нечисловое значение');

goto StartB;

end;

B[i,j] := M;

end;

StartC:

writeln ('Матрица C:');

for i := 1 to N do

for j := 1 to N do

begin

writeln ('Введите ',i,'-ое значение ',j,'-ого ряда');

readln (input);

val (input,M,code);

if code = 1 then begin

writeln ('Ошибка - нечисловое значение');

goto StartC;

end;

C[i,j] := M;

end;

StartD:

writeln ('Матрица D:');

for i := 1 to N do

for j := 1 to N do begin

writeln ('Введите ',i,'-ое значение ',j,'-ого ряда');

readln (input);

val (input,M,code);

if code = 1 then begin

writeln ('Ошибка - нечисловое значение');

goto StartD;

end;

D[i,j] := M;

end;

{ФУНКЦИЯ}

MSub (B,C);

MK (X,3);

Xtmp1 := X;

MK (D,4);

Msub (Xtmp1,X);

Madd (A,X);

for i := 1 to N do

begin

writeln (' ',i,'-ый ряд результ. м-цы: ');

for j:= 1 to N do begin

write (' ',X[i,j], ',');

end;

writeln ('');

end;

end.

 

Контрольный пример

 

Введите размер матрицы(2-9)

2

Матрица A:

Введите 1-ое значение 1-ого ряда

1

Введите 1-ое значение 2-ого ряда

1

Введите 2-ое значение 1-ого ряда

1

Введите 2-ое значение 2-ого ряда

1

Матрица B:

Введите 1-ое значение 1-ого ряда

2

Введите 1-ое значение 2-ого ряда

2

Введите 2-ое значение 1-ого ряда

2

Введите 2-ое значение 2-ого ряда

2

Матрица C:

Введите 1-ое значение 1-ого ряда

3

Введите 2-ое значение 1-ого ряда

3

Введите 2-ое значение 2-ого ряда

3

Матрица D:

Введите 1-ое значение 1-ого ряда

4

Введите 1-ое значение 2-ого ряда

4

Введите 2-ое значение 1-ого ряда

4

Введите 2-ое значение 2-ого ряда

4

1-ый ряд результ. м-цы:

-18, -18,

2-ый ряд результ. м-цы:

-18, -18,

При проверке X = A+3(B-C)-4*D получаем аналогичный результат.