Matematické Fórum

Zdravím  všechny,  mohl  by  mi  někdo,  prosím,  zkontrolovat  řešení  umocnění  matice,  předem  děkuji .

Předem  se  omlouvám  za  chyby,  beru  teprve  základy  Delphi

Zadání  :  Je  dána  matice A  řádu  K uložená  v souboru  vstup.dat,  utvořte  druhou  a  třetí  mocninu  matice  A  a  uložte  do  souboru  vystup.vys.


Program  matice

Var
I, J, K, M, N, S : Integer ;
A,B,C:  array [1 .. M ;  1  ..  N]  of  real ;
vstup,  vystup :  text ;

Begin
Assign  ( vstup,  vstup.dat );
Assign  ( vystup,  vystup.vys );
Reset  (  vstup ) ;
Rewrite  ( vystup );
Read  ( vstup, m,n );
for  I:=1  to  m  do
  for  J:= 1  to  n  do
read  ( vstup,  A [I,J] );
Writeln  ( ´matice  A ´ );
for  I:=1  to  m  do
  for  J:= 1  to  n  do
write ( A [I,J]:12:2 );
Writeln ;
End;

for  I:=1  to  m  do
  for  J:= 1  to  n  do begin
S:=  0  ;
for  K:=1  to  m  do
S:=  S + A [I,K]* A [K,J];
B [I,J]:=S;
End;

Writeln ;
Writeln ( druha  mocnina matice A  B=A*A );
Writeln ;
for  I:=1  to  m  do
  for  J:= 1  to  n  do
write ( B [I,J]:8:2 );
Writeln ;
End;

for  I:=1  to  m  do
  for  J:= 1  to  n  do begin
S:=  0 ;
for  K:=1  to  m  do
S:=  S + B [I,K]* A [K,J];
C [I,J]:=S;
End;

Writeln ;
Writeln ( treti  mocnina matice A  C=B*A );
Writeln ;
for  I:=1  to  m  do
  for  J:= 1  to  n  do
write ( C [I,J]:8:2 );
Writeln ;
Close  (´vstup´);
Close  (´vystup´);
End.