Перестановка рядком в матрице, меняем рядки матрицы местами Опции

[DruiD]

Характеристикой ряда целочисленной матрицы назовём сумму его отрицательных чётных элементов. Переставляя рядки заданной матрицы, расположить их соответственно к убыванию характеристик.

[Алена]

Не надо создавать ничего лишнего... Смотри, вот "пузырек" работающий с обычным массивом:

Type
  arrType = Array[1 .. n] Of Integer;

Procedure Bubble(Var ar: arrType; n: integer);
Var i, j, T: Integer;
Begin
  For i := 1 To n Do
    For j := n DownTo i+1 Do
      If ar[Pred(j)] > ar[j] Then Begin
        T := ar[Pred(j)]; ar[Pred(j)] := ar[j]; ar[j] := T
      End
End;

А если сделать:

type
  TVector = array[1 .. size_col] of Integer;
  TMatrix = array[1 .. size_row] of TVector;

Function F(Vec: TVector): Integer;
begin
  {
    Здесь находим сумму отрицательных четных элементов Vec (т.е. ряда матрицы),
    и возвращаем ее как результат функции
  }
end;

Procedure Bubble(Var ar: TMatrix; n: integer);
Var
  i, j: Integer;
  T: TVector;
Begin
  For i := 1 To n Do
    For j := n DownTo i+1 Do
      If F(ar[Pred(j)]) > F(ar[j]) Then Begin
        T := ar[Pred(j)]; ar[Pred(j)] := ar[j]; ar[j] := T
      End
End;

, то что получится, как ты думаешь?

Сообщение отредактировано: Алена - 27.02.2007 19:41