Операції матричної алгебри

Київський національний університет імені Тараса Шевченка

Географічний  факультет

Кафедра геодезії та картографії

Реферат на тему:

«Операції матричної  алгебри»

студента 4 курсу

групи картографи

Перхалюка Романа

Київ-2010

program matrix;

{$APPTYPE CONSOLE}

uses

SysUtils;

type matrix=record   //створюємо новий тип данних matrix  
M:array[1..20,1..20]of integer; 
x1,x2:integer; 
end; 
 
procedure plus(M1,M2:matrix;var M:matrix);   // додавання матриць 
var i,j:integer; 
begin 
M.x1:=M1.x1; 
M.x2:=M1.x2; 
for i:=1 to M1.x1 do 
for j:=1 to M1.x2 do 
M.M[i,j]:=M1.M[i,j]+M2.M[i,j]; 
end; 
 
procedure mult(M1,M2:matrix;var M:matrix); //множення матриць 
var i,j,k:integer; 
begin 
M.x1:=M1.x1; 
M.x2:=M2.x2; 
 
for i:=1 to M1.x1 do 
for j:=1 to M2.x2 do 
M.M[i,j]:=0; 
 
for i:=1 to M1.x1 do 
for j:=1 to M2.x2 do 
for k:=1 to M1.x2 do 
M.M[i,j]:=M.M[i,j]+M1.M[i,k]*M2.M[k,j]; 
end;

 
var T,M:matrix;  
i,j:integer; 
begin //       програма, що виконує додавання і множення матриць (М+М*М) 
readln(M.x1); 
readln(M.x2); 
 
for i:=1 to M.x1 do 
for j:=1 to M.x2 do 
begin 
write('Please, input M['); 
write(i); 
write(','); 
write(j); 
write(']: '); 
readln(M.M[i,j]); 
end; 
 
mult(M,M,T); 
plus(T,M,M); 
for j:=1 to M.x2 do 
begin 
writeln; 
for i:=1 to M.x1 do 
begin 
write(M.M[j,i]); 
write(' '); 
end; 
end; 
 
readln; 
end.