Модульное программирование в Турбо Паскале. Бакланов М.В - 14 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

- 14 -
for i:=2 to A.Dim1 do
begin
if
max > Mmax then Mmax := max
end
;
MatrixNorm := Mmax
end
;
procedure
MatrixPower( A: TMatrix; P: Integer; var Result: TMatrix );
var
i: Dimension;
begin
Result := A;
for
i:=2 to P do
MatrixMul( A, Result, Result )
end
;
end
.
J_r_gb_aZ^Zqb
program
MatrixTest1;
uses
Matrix;
const
Dim = 3;
var
X: TMatrix;
begin
MatrixI
MatrixPower ( X , 3, h1 ); { h1 = X^3 }
MatrixNumberMul ( h1, 2, h1 ); { h1 = 2*X^3 }
MatrixPower ( X , 2, h2 ); { h2 = X^2 }
MatrixNumberMul ( h2, 5, h2 ); { h2 = 5*X^2 }
MatrixNumberMul ( X , 3, h3 ); { h3 = 3*X }
MatrixI( Dim, h4 ); { h4 = I }
MatrixNumberMul ( h4, 2, h4 ); { h4 = 2*I } 
                                           - 14 -
 for i:=2 to A.Dim1 do
 begin
   PD[       /LQH0D[   $0>L@ $'LP       ^ gZoh^bf fZdkbfmf \ kljhd_ `
    if max > Mmax then Mmax := max
  end;
  MatrixNorm := Mmax
end;

^

Страницы