Как заменить строку в матрице

Автор: lmc-mediaagentur.de

program Matrices;

{$APPTYPE CONSOLE}

uses
  SysUtils;

type
  TMatrixRow = array of Double; {preferrable to Real}
  TMatrix = array of TMatrixRow;

procedure MatrixExchangeRows(M: TMatrix; First, Second: Integer);
var
  Help: TMatrixRow;
begin
  if (First < 0) or (First > High(M)) or (Second < 0) or (Second > High(M)) then
    Exit; {or whatever you like.}
  {Only pointers are exchanged!}
  Help := M[First];
  M[First] := M[Second];
  M[Second] := Help;
end;

procedure MatrixWrite(M: TMatrix);
var
  Row, Col: Integer;
begin
  for Row := 0 to High(M) do
  begin
    for Col := 0 to High(M[Row]) do
      Write(M[Row, Col]: 10: 2);
    Writeln;
  end;
  Writeln;
end;

var
  Matrix: TMatrix;
  Row, Column: Integer;

begin
  Randomize;
  SetLength(Matrix, 4, 4);
  for Row := 0 to High(Matrix) do
    for Column := 0 to High(Matrix[Row]) do
      Matrix[Row, Column] := Random * 1000.0;
  MatrixWrite(Matrix);
  MatrixExchangeRows(Matrix, 1, 2);
  MatrixWrite(Matrix);
  Readln;
end.

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 648 • TDictionary Custom Sort 6 651 • Fast Watermark Sources 6 431 • 3D Designer 9 369 • Sik Screen Capture 6 756 • Patch Maker 7 151 • Айболит (remote control) 7 161 • ListBox Drag & Drop 6 013 • Доска для игры Реверси 97 609 • Графические эффекты 7 343 • Рисование по маске 6 630 • Перетаскивание изображений 5 499 • Canvas Drawing 5 881 • Рисование Луны 5 604 • Поворот изображения 5 107 • Рисование стержней 3 681 • Paint on Shape 2 911 • Генератор кроссвордов 3 808 • Головоломка Paletto 3 061 • Теорема Монжа об окружностях 3 865 • Пазл Numbrix 2 547 • Заборы и коммивояжеры 3 264 • Игра HIP 2 235 • Игра Go (Го) 2 170 • Симулятор лифта 2 547 • Программа укладки плитки 2 183 • Генератор лабиринта 2 683 • Проверка числового ввода 2 331 • HEX View 2 667 • Физический маятник 2 301