использование процедур Опции

[infiniti]

Люди, помогите, пожалуйста, написать программу! Очень надо!

Даны две действительные матрицы разной размерности. Используя процедуры реорганизовать массивы следующим образом: каждый столбец массива упорядочить по невозрастанию, если его предпоследний элемент отличается более чем на 15% от среднего арифметического элементов столбца, находящихся в нечетных строках, в противном случае столбец упорядочить по неубыванию. Использование вспомогательных рабочих массивов допускается.

Сообщение отредактировано: infiniti - 19.05.2007 14:25

[volvo]

Ну, я смотрю, сам ты ничего делать не хочешь... Как хочешь... Держи:

const
  a: array[1 .. 5, 1 .. 5] of real = (
    (1.0, 2.0, 3.0, 4.0,  5.0),
    (2.5, 7.3, 4.8, 5.8,  2.9),
    (3.5, 6.7, 8.2, 9.5,  2.6),
    (5.5, 6.7, 3.8, 4.65, 9.4),
    (1.1, 2.7, 7.3, 0.5,  0.8)
  );

procedure print(const mx: array of real;
                m, n: integer);
var i, j: integer;
begin
  for i := 0 to pred(m) do begin
    for j := 0 to pred(n) do
      write(mx[i * n + j]:5:2);
    writeln;
  end;
end;

procedure sort(var mx: array of real;
          m, n: integer; in_col: integer; by: boolean);
var
  T: real;
  i, j: integer;
begin
  for i := 1 to m do
    for j := m downto i + 1 Do
      if (mx[(in_col) + pred(j - 1) * n] >
          mx[(in_col) + pred(j) * n]) = by then
      begin
        T := mx[(in_col) + pred(j - 1) * n];
        mx[(in_col) + pred(j - 1) * n] := mx[(in_col) + pred(j) * n];
        mx[(in_col) + pred(j) * n] := T;
      end;
end;

procedure convert(var mx: array of real;
          m, n: integer);
var
  rows, cols, count: integer;
  before_last, s: real;
begin
  for cols := 0 to pred(n) do begin
    s := 0; count := 0;
    for rows := 0 to pred(m) do
      if odd(rows + 1) then begin
        s := s + mx[rows * n + cols];
        inc(count);
      end;
    s := s / count;

    before_last := mx[(m - 2)*n + 0];
    sort(mx, m, n, cols, abs(before_last - s) / s > 0.15);

    writeln('col = ', cols, '; sum = ', s:6:2);
  end;
end;

begin
  print(a[1], 5, 5);
  convert(a[1], 5, 5);
  print(a[1], 5, 5);
end.

Добавишь еще одну матрицу - отработает и на ней тоже... Успехов...

[infiniti]

VOLVO!
Cпасибо огромное!!! Вчера добавил еще одну матрицу, все работает. Но не все понятно.
С процедурой принт все ясно, а вот дальше Что обозначено за in_col? Что такое by: boolean? Нам такое не давали. rows - ряды, cols-столбцы,count-счетчик - так? И напишите, пожалуйста где что считается

Сообщение отредактировано: infiniti - 20.05.2007 23:33