Форум программистов [Powered by Invision Power Board]

Код


Program p2;
var
n, m : integer;
matrix : array[1..n, 1..m] of integer;
procedure init;
var
i, j : integer;
begin
writeln('Enter the dimensions of matrix:' );
readln(n,m);
check(m); check(n);
for i:=1 to n do begin
writeln('Enter the', i, 'row of matrix: ' );
for j:=1 to m do
read(matrix[i,j]);
end;
end;

Код


program matr;
uses
  crt, math;
const
  N = 3;
  M = 4;
type
  TMatrixRow = array[ 1..M ] of real;
  TMatrix = array [ 1..N ] of TMatrixRow;

procedure ReadMatrix( var matrix: TMatrix; rows, cols: integer );
var
  i, j: integer;
begin
  for i := 1 to rows do
  begin
    for j := 1 to cols - 1 do
      read( matrix[ i ][ j ] );
    readln( matrix[ i ][ cols ] );
  end;
end;

procedure WriteRow( var row: TMatrixRow; cols: integer );
var
  i: integer;
begin
  for i := 1 to cols - 1 do
    write( row[ i ]: 6: 2, ' ' );
  writeln( row[ cols ]: 6: 2 );

end;

procedure WriteMatrix( var matrix: TMatrix; rows, cols: integer );
var
  i: integer;
begin
  for i := 1 to rows do
    WriteRow( matrix[ i ], cols );
end;

function TestRow( var row: TMatrixRow; cols: integer ): boolean;
var
  i: integer;
  scale: real;
  res: boolean;
begin
  if ( cols < 2 ) or ( row[ 1 ] = 0 ) or ( row[ 2 ] = 0 ) then
    res := false
  else if cols < 3 then
    res := true
  else
  begin
    i := 2;
    scale := row[ i ] / row[ i - 1 ];

    repeat
      inc( i );
      res := ( row[ i - 1] <> 0 ) and ( abs( row[ i ] / row[ i - 1 ] - scale ) < 1e-4 );
    until( not res or ( i >= cols ) );

  end;
  TestRow := res;
end;


var
  i: integer;
  matrix: TMatrix;

begin
  clrscr;

  writeln( 'Please enter a matrix[ ', N, 'x', M, ' ]:' );
  ReadMatrix( matrix, N, M );

  writeln( 'Source matrix:' );
  WriteMatrix( matrix, N, M );

  writeln( 'Result rows...' );
  for i := 1 to N do
    if TestRow( matrix[ i ], M ) then
    begin
      write( 'Row No. ', i, ' :' );
      WriteRow( matrix[ i ], M );
    end;
end.

Код


type
  TMatrixRow = array[ 1..100 ] of real;
  TMatrix = array [ 1..100 ] of TMatrixRow;

Код


matrix:array[1..10, 1..100] of real;

Код


procedure ReadMatrix( var matrix: TMatrix; rows, cols: integer );

Код


function TestRow( var row: TMatrixRow; cols: integer ): boolean;
var
  i: integer;
  scale: real;
  res: boolean;
begin
  if ( cols < 2 ) or ( row[ 1 ] = 0 ) or ( row[ 2 ] = 0 ) then
    res := false
  else if cols < 3 then
    res := true
  else
  begin
    i := 2;
    scale := row[ i ] / row[ i - 1 ];
    repeat
      inc( i );
      res := ( row[ i - 1] <> 0 ) and ( abs( row[ i ] / row[ i - 1 ] - scale ) < 1e-4 );
    until( not res or ( i >= cols ) );
  end;
  TestRow := res;
end;

Код


 res, scale и 1e-4

Код


TMatrixRow = array[ 1..M ] of real;//строка матрицы, состоящая из вещественных чисел
TMatrix = array [ 1..N ] of TMatrixRow;//массив строк( см. выше ) - собственно матрица