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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

- 10 -
procedure
MatrixInput( var Result: TMatrix; Dim1,Dim2: Integer );
procedure
MatrixOutput( A: TMatrix );
procedure
MatrixSum( A,B: TMatrix; var Result: TMatrix );
procedure
MatrixNumberMul(A:TMatrix; N:TElem; var Result:TMatrix);
procedure
MatrixSub( A,B: TMatrix; var Result: TMatrix );
procedure
MatrixMul( A, B: TMatrix; var Result: TMatrix );
function
MatrixEqual( A, B: TMatrix ): Boolean;
function
MatrixNorm( A: TMatrix ): TElem;
procedure
MatrixPower(A: TMatrix; P:Integer; var Result:TMatrix);
implementation
procedure
SetDimension(var A: TMatrix; Dim1, Dim2: Dimension);
begin
A.Dim1:=Dim1;
A.Dim2:=Dim2
end
;
procedure
MatrixI( Dim: Dimension; var Result: TMatrix );
var
k,j: Dimension;
begin
for
k:=1 to Dim do
for
j:=1
to
Dim
do
if
k=j
then
-
else
SetDimension( Result, Dim, Dim ) 
                                   - 10 -
  ^ JZaf_jghklb 'LP'LP hij_^_eyxlky ijb \uah\_ ijhp_^mju    `
  ^   'LP! 'LP!   beb \\h^ylky ihevah\Zl_e_f              `
 procedure MatrixInput( var Result: TMatrix; Dim1,Dim2: Integer );

  ^ NM@    ^ gZ ]eZ\ghc ^bZ]hgZeb - _^bgbpu `
        else 5HVXOW0>NM@  ^ hklZevgu_ we_f_glu jZ\gu gmex `
  SetDimension( Result, Dim, Dim )

Страницы