Двумерные массивы Опции

[gareld]

У вас на форуме нашел нужную задачу помогите разобраться. вот задача и ваш ответ Расположить столбцы матрицы D[M, N] в порядке возрастания элементов k-ой строки (1 ≤ k ≤ М). ОТВЕТ:

 Const
  size_col = 6;  { число столбцов }
  size_row = 8; { число строк }
Type
  TColumn = Array[1 .. size_row] Of Integer;
  TMatrix = Array[1 .. size_col] Of TColumn;
Var
  k: Integer;

  Procedure Bubble(Var mx: TMatrix; n: integer);
  Var
    i, j: Integer;
    T: TColumn;
  Begin

    For i := 1 To n Do
      For j := n DownTo i+1 Do
        If mx[Pred(j)][k] > mx[j][k] Then Begin
          T := mx[Pred(j)]; mx[Pred(j)] := mx[j]; mx[j] := T
        End
  End;

var
  D: TMatrix;

begin
  { вводишь матрицу: D }
  { вводишь номер строки: K }

  Bubble(D, size_col);

  { распечатываешь матрицу D }
end.

Вопрос: 1)Как правильно ввести матрицу D 2)Как правильно её отпечатать.
За любые ответы спасибо.

[Bokul]

Ты где этот print откопал? Вот правильный:

procedure print(var mx: tmatrix);
 var i, j: integer;
 begin
   for i := 1 to size_row do
     begin
       for j := 1 to size_col do
         write(mx[i][j]:4);
       writeln
     end;
 end;

Сообщение отредактировано: Bokul - 25.11.2006 22:05