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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

- 12 -
var
i,j: Dimension;
begin
for
i:=1 to A.Dim1 do
begin
for
j:=1 to A.Dim2 do
Write(A.M[i,j]:8,' ');
WriteLn
end
end
;
procedure
MatrixSum( A,B: TMatrix; var Result: TMatrix );
var
i,j: Dimension;
begin
for
i:=1 to A.Dim1 do
for
j:=1
to
A.Dim2
do
Result.M[i,j] := A.M[i,j] + B.M[i,j];
SetDimension( Result, A.Dim1, A.Dim2 )
end
;
procedure
MatrixNumberMul( A: TMatrix; N: TElem; var Result:TMatrix);
var
i,j: Dimension;
begin
for
i:=1 to A.Dim1 do
for
j:=1 to A.Dim2 do
SetDimension( Result, A.Dim1, A.Dim2 )
end
;
-
procedure
MatrixSub( A,B: TMatrix; var Result: TMatrix );
var
i,j: Dimension;
begin
for
i:=1 to A.Dim1 do
for
j:=1 to A.Dim2 do
Result.M[i,j] := A.M[i,j] - B.M[i,j];
SetDimension( Result, A.Dim1, A.Dim2 )
end
;
(j x k) }
procedure
MatrixMul( A, B: TMatrix; var Result: TMatrix );
var
i,j,k: Dimension;
s: TElem;
begin
SetDimension( Result, A.Dim1, B.Dim2 );
for
i:=1 to Result.Dim1 do 
                                     - 12 -
var i,j: Dimension;
begin
  for i:=1 to A.Dim1 do
  begin
    for j:=1 to A.Dim2 do
      Write(A.M[i,j]:8,' ');
    WriteLn
  end
end;

^ Keh`_gb_ fZljbp FZljbpu ^he`gu [ulv h^bgZdh\hc jZaf_jghklb `
procedure MatrixSum( A,B: TMatrix; var Result: TMatrix );
var i,j: Dimension;
begin
  for i:=1 to A.Dim1 do
    for j:=1 to A.Dim2 do
      Result.M[i,j] := A.M[i,j] + B.M[i,j];
  SetDimension( Result, A.Dim1, A.Dim2 )
end;

^ Mfgh`_gb_ fZljbpu $ gZ qbkeh 1 `
procedure MatrixNumberMul( A: TMatrix; N: TElem; var Result:TMatrix);
var i,j: Dimension;
begin
  for i:=1 to A.Dim1 do
    for j:=1 to A.Dim2 do
      5HVXOW0>LM@    $0>LM@   1 ^ mfgh`Z_f dZ`^uc we_f_gl `
  SetDimension( Result, A.Dim1, A.Dim2 )
end;

^ Zggmx hi_jZpbx fh`gh j_Zebah\Zlv lZd`_ q_j_a      `
^ mfgh`_gb_ fZljbpu % gZ - b keh`_gb_ k fZljbp_c $             `
procedure MatrixSub( A,B: TMatrix; var Result: TMatrix );
var i,j: Dimension;
begin
  for i:=1 to A.Dim1 do
    for j:=1 to A.Dim2 do
      Result.M[i,j] := A.M[i,j] - B.M[i,j];
  SetDimension( Result, A.Dim1, A.Dim2 )
end;

^ Mfgh`_gb_ fZljbp 5HVXOW L [ N      KMFF:BIHBM $ L [ M    %(j x k) }
procedure MatrixMul( A, B: TMatrix; var Result: TMatrix );
var i,j,k: Dimension;
    s: TElem;
begin
  SetDimension( Result, A.Dim1, B.Dim2 );
  for i:=1 to Result.Dim1 do

Страницы