Программа выбирает в двумерном массиве максимальные и минимальные элементы и сортирует эти элементы в порядке возрастания.

[Eld]

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


P.S. Оригинальная матрица есть. Никак не могу придумать как осуществить сортировку в двумерном массиве. Можете помочь ее сделать?

program kyr;

uses
  crt;

const
  n = 9;


procedure Power(x: real; n: integer; var y: real);
begin
  if N = 0 then 
    Y := 1 
  else begin
    Power(X, N - 1, Y); 
    Y := Y * X; 
  end; 
end;


function factorial(n: integer): longint;
begin
  if n = 0 then factorial := 1 
  else factorial := factorial(n - 1) * n; 
end;


type
  matrix = array[1..3, 1..3]of real;


var
  f: matrix; 
  sum, o: real;
  i, k, l, x: integer;
  znam: array[0..9]of real;
  chisl: array[0..9]of real;


begin
  clrscr;
  writeln('Введите х');
  readln(x);
  
  for i := 0 to n do
  begin
    power(x, i, chisl[i]);
    write(chisl[i], '  ');
  end;
  
  writeln;
  
  for i := 0 to n do
  begin
    znam[i] := factorial(i);
    write(znam[i], '  ');
  end;
  writeln;
  
  sum := 0;
  k := 1;
  l := 1;
  while (k <= 3) and (l <= 3) do
  begin
    sum := sum + chisl[(k - 1) * 3 + l - 1] / znam[(k - 1) * 3 + l - 1];
    f[k, l] := exp(sum);
    inc(l);
    if (l = 4) then
    begin
      l := 1;
      inc(k);
    end;
  end;
  for k := 1 to 3 do
  begin
    for l := 1 to 3 do
      write('f[', k, ',', l, ']=', f[k, l], '  ');
    writeln;
  end;
  writeln;
end.

P.S. Отлаживал на ABC.NET.

[Stilet]

как осуществить сортировку в двумерном массиве.

Как пример:

for i:=1 to 3 do for j:=1 to 3 do for k:=1 to 3 do 
 if f[i,j]<f[i,k] then begin
   n:=f[i,j]; f[i,k]:=f[i,j]; f[i,k]:=n;
 end;

Где i j k - целые а n - вещественное

[Eld]

Сообщение от Eld

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

Конечно хотелось что бы показали как сделать так.

[Stilet]

Конечно хотелось что бы показали как сделать так.

Показал что? Код в топе?

[Eld]

Сообщение от Stilet

Показал что? Код в топе?

Я код написал, он проводит расчет и записывает в матрицу 3х3 результат.
Мне нужно мою матрицу отсортировать в порядке возрастания. У меня ничего к сожалению не выходит.

[Stilet]

У меня ничего к сожалению не выходит.

Ну а пример, что я дал, ты пробовал?

[Eld]

Ваш пример сортирует только строки, может я конечно не понял задания. Но вроде матрица должна иметь примерно такой вид:
0,1453 0,432234 1,232344
2,454534 3,54333 4,224344
4,643432 4,94343 5,34323369

[Naive]

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

пардон, что вмешиваюсь, но...
даже одномерный массив имеет несколько законов сортировки (два основных: по убыванию, по возрастанию), двумерный же имеет их в порядке больше (по столбцам, по строкам, по диагонале, по левой выключке, по-еврейски, по второстепенной диагонале ... etc)
КАК сортировать-то надо?

[Eld]

Сообщение от Naive

пардон, что вмешиваюсь, но...
даже одномерный массив имеет несколько законов сортировки (два основных: по убыванию, по возрастанию), двумерный же имеет их в порядке больше (по столбцам, по строкам, по диагонале, по левой выключке, по-еврейски, по второстепенной диагонале ... etc)
КАК сортировать-то надо?

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

[Stilet]

Ваш пример сортирует только строки

Ладно. Пойдем другим путем:

type PReal=^Real;
var q,w:PReal;
...
q:=@f[1,1]; 
w:=q;
for i:=1 to 3*3 do  begin
 for j:=1 to 3*3 do begin
  if q^<w^ then begin
   n:=q^; q^:=w^; w^:=n;
  end;
  inc(w);
 end;
 inc(q);
end;
...

Не проверял но должно сработать. Матрица благодаря указателям превращается в одномерный массив.