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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

- 11 -
end
;
procedure
MatrixTranspose( A: TMatrix; var Result: TMatrix );
var
i,j: Dimension;
begin
for
i:=1 to A.Dim1 do
for
j:=1 to A.Dim2 do
i,j) -> (j,i) }
SetDimension( Result, A.Dim2, A.Dim1 )
end
;
procedure
MatrixInput(
var
Result: TMatrix; Dim1,Dim2: Integer );
var
i,j: Dimension;
begin
if
(Dim1<=0)
or
(Dim1>MDim)
or
(Dim2<=0)
or
(Dim2>MDim)
then
begin
repeat
ReadLn(Dim1)
until
(Dim1>0) and (Dim1<=MDim);
repeat
ReadLn(Dim2);
until
(Dim2>0) and (Dim2<=MDim)
end
;
SetDimension( Result, Dim1, Dim2 );
for
i:=1
to
Result.Dim1
do
begin
for
j:=1 to Result.Dim2 do
Read
(Result.M[i,j]);
end
end
;
procedure
MatrixOutput( A: TMatrix ); 
                                      - 11 -
end;

^ LjZgkihgbjh\Zgb_ fZljbpu $ `
procedure MatrixTranspose( A: TMatrix; var Result: TMatrix );
var i,j: Dimension;
begin
  for i:=1 to A.Dim1 do
    for j:=1 to A.Dim2 do
      5HVXOW0>ML@ $0>LM@ ^ \gbfZl_evgh i,j) -> (j,i) }
  SetDimension( Result, A.Dim2, A.Dim1 )
end;

^ <\h^ fZljbpu                                                    `
^ 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 );
var i,j: Dimension;
begin
  :ULWH/Q     <\h^ fZljbpu !    
 if (Dim1<=0) or (Dim1>MDim) or (Dim2<=0) or (Dim2>MDim) then
 begin
    ^ \\h^ i_j\hc jZaf_jghklb `
    repeat
        :ULWH    <\_^bl_ i_j\mx jZaf_jghklv fZljbpu      
      ReadLn(Dim1)
    until (Dim1>0) and (Dim1<=MDim);

    ^ \\h^ \lhjhc jZaf_jghklb `
    repeat
        :ULWH    <\_^bl_ \lhjmx jZaf_jghklv fZljbpu      
      ReadLn(Dim2);
   until (Dim2>0) and (Dim2<=MDim)
 end;

  :ULWH/Q <\_^bl_ fZljbpm jZaf_jghklb           'LP   [  'LP    
  ^ khojZgy_f \\_^_ggu_ jZaf_jghklb `
  SetDimension( Result, Dim1, Dim2 );

 for i:=1 to Result.Dim1 do
 begin
   for j:=1 to Result.Dim2 do
     Read(Result.M[i,j]);
    5HDG/Q      ^ fZljbpZ \\h^blky ihkljhqgh `
  end
end;

^

Страницы