Приклад 15.2

Приклад 15.2.

Задано дві матриці розмірності (3х3). Визначити максимальні елементи в кожній з матриць та поміняти їх місцями. Для визначення максимальних елементів та їх перестановки використати процедури.

Вважати, що в кожній матриці тільки один максимальний елемент.

SWAP

T=A_X,Y

A_X,Y=B_m,n

B_m,n=T

RETURN

i=1,m

j=1,m

MAX=M1_1.1

MAX M

RETURN

MAX=M1_i,j

C=i;d=j

Max<M1_i,j

F

T

Кінець

Початок

INPUTMATR (Matr1)

INPUTMATR (Matr2)

MAXM(Matr1)

SWAP(Matr1,Matr2)

MAXM(Matr2)

OUTPUTMATR(Matr1)

OUTPUTMATR(Matr2)

Розділ об’яв програми

program perestanovka_max;

uses crt;

const n=3; m=3;

type MATR=array[1..n,1..m] of real;

var x,y,k,l,i,j:integer;

A,B:MATR; f,s:text; maxA,maxB:real;

procedure swap(x,y,m,n:integer;var A,B:MATR);

var T:real;

begin T:=A[x,y];

A[x,y]:=B[m,n];

B[m,n]:=T; end;

procedure maxm(M1:MATR;

var c,d:integer; var max:real);

var i,j:integer;

begin max:=M1[1,1];

for i:=1 to n do

for j:=1 to m do

if max <= M1[i,j] then begin max:=M1[i,j]; c:=i;d:=j; end; end;

Розділ інструкцій

begin assign(f,'matr10.pas');reset(f);

assign(s,'matr01.pas'); rewrite(s);

writeln(s,'Матрица А: ');

writeln(s); for i:=1 to n do begin

for j:=1 to m do begin

read(f,A[i,j]);write(s,A[i,j]:6:1);end;

writeln(s);end;

writeln(s,'Матрица В:'); writeln(s);

for i:=1 to n do begin

for j:=1 to m do begin

read(f,B[i,j]);write(s,B[i,j]:6:1);end;

writeln(s);end; writeln(s);

maxm(A,x,y,maxA); maxm(B,k,l,maxB);

swap(x,y,k,l,A,B);

writeln(s,'Матриця transform А: '); writeln(s);

for i:=1 to n do begin

for j:=1 to m do begin

write(s,A[i,j]:6:1);end; writeln(s);end;

writeln(s,'Матриця transform В:');

for i:=1 to n do begin

for j:=1 to m do begin

write(s,B[i,j]:6:1);end;

writeln(s);end; close(s); end.

Файл з даними матриці А

12 33 45

19 3 107

48 65 11

Файл з даними матриці А

124 56 78

45 5 99

76 65 88

Файл результатів

Матрица А:

12.0 33.0 45.0

19.0 3.0 107.0

48.0 65.0 11.0

Матрица А: transform А:

12.0 33.0 45.0

19.0 3.0 124.0

48.0 65.0 11.0

Матрица В:

124.0 56.0 78.0

45.0 5.0 99.0

76.0 65.0 88.0

1.0700000000E+02 2 3

1.2400000000E+02 1 1

Матрица В: transform В

107.0 56.0 78.0

45.0 5.0 99.0

76.0 65.0 88.0

Задано дві матриці розмірності (5х5). Обчислити суму елементів двох матриць та добуток матриці на число.

Початок

Inputmatrix (Matrix1)

InputMatrix (Matrix2)

SumMatrix(Matrix1,Matrix2,Result)

OutputMatrix(Result)

Введ. N

OutputMatrix (Result)

MultMatrix(Matrix1,N,Result)

Кінець

SumMatrix(M1,M2)

Result_I,J=M1_I,J+M2_I,J

I=1..Siz

J=1..Size

RETURN  

MultMatrix (M,N,Result)

Result_I,J=M1_I,J *N

RETURN

I=1..Size  

J=1..Size

InputMatrix(M)

I=1..Size

J=1..Size

RETURN

Введ. M_I,J

OutputMatrix(M)

I=1..Size

J=1..Size

RETURN

Вивед. M_I,J

Розділ об’яв програми

Глобальні змінні і об’ява типу

program Matrixes;

const Size=5;

type

TMatrix=array[1..Size,1..Size] of integer;

Var Matrix1, Matrix2, Result: TMatrix;

Процедура введення елементів двовимірного масиву

procedure InputMatrix(var M:TMatrix);

var I, J: integer; N: integer;

begin for I:=1 to Size do

for J:=1 to Size do begin

Write('[',I,',',J,']=');

Readln(M [I,J]); end;

end;

Процедура виведення елементів двовимірного масиву

procedure OutputMatrix(M: TMatrix);

var I,J: integer;

begin for I:=1 to Size do begin

for J:=1 to Size do

Write(M[I,J]:5);

Writeln; end; end;

Процедура обчислення суми елементів двовимірного масиву

procedure SumMatrix(M1,M2: TMatrix; var Result: TMatrix);

var I,J: integer;

begin for I:=1 to Size do

for J:=1 to Size do

Result[I,J]:=M1[I,J]+M2[I,J];

end;

Процедура обчислення добутку елементів двовимірного масиву та змінної

procedure MultMatrix(M: TMatrix; N: integer; var Result: TMatrix);

var I,J: integer;

begin for I:=1 to Size do

for J:=1 to Size do

Result[I,J]:=M[I,J]*N;

end;

Розділ інструкцій програми

begin

Writeln('Введіть першу матрицю:'); InputMatrix(Matrix1);

Writeln('Введіть другу матрицю:'); InputMatrix(Matrix2);

SumMatrix(Matrix1, Matrix2, Result);

Writeln('Сума матриць дорівнює'); OutputMatrix(Result);

Write('Введіть число:'); Readln(N);

MultMatrix(Matrix1,N,Result);

Writeln(' Добуток першої матриці на число: ');

OutputMatrix(Result);

end.

Дата добавления: 2014-01-07