сортировка по столбцам, сортировка двумерного массива по столбцам Опции

[nesta_diima]

Подскажите с сортировкой двумерного массива по столбцам, что-то не выходит. Вот наработка

uses crt;
const
     nmax=100;
type
    arr=array[0..nmax,0..nmax] of integer;
var
   z:arr;
   s,i,j,buf,n,m,p:integer;
begin
     Writeln('ВВод матрицы');
     writeln('Ввод кол-вo строк');
     readln(n);
     writeln('Ввод кол-во стоблцов');
     readln(m);
     for i:=1 to n do
         begin
             for j:=1 to m do
             begin
             Writeln('Ввод ',i,' ',j,'элемента матрицы');
             readln(z[i,j]);
             end;
             end; for j:=1 to m do
             begin
                 for i:=1 to n do
                 if z[i,j]>z[i+1,j] then
                 begin
                buf:=z[i,j];
               z[i,j]:=z[i+1,j];
               z[i+1,j]:=buf;
                   end; end;
          for i:=1 to n do
         for j:=1 to m do
         begin
         write(z[i,j]:4);
         if j=m then writeln();
         end;

end.

[IUnknown]

"Пузырек" одним циклом? Оригинально, но неправильно. Циклов должно быть 2:

   for j:=1 to m do { Это - внешний цикл, перебирающий столбцы }
   begin
      { А для каждого столбца - еще 2 цикла: }
      for k:=1 to n do for i := n downto k+1 do
         if z[i-1,j]>z[i,j] then
         begin
            buf:=z[i,j];
            z[i,j]:=z[i-1,j];
            z[i-1,j]:=buf;
         end;
      end;

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

[TarasBer]

> "Пузырек" одним циклом?

Думаю, это не специально.
Потому что отступы и форматирование соблюдать надо.
У тебя тоже то ли бегин пропущен, то ли енд лишний.

Сообщение отредактировано: TarasBer - 3.11.2011 17:05

[IUnknown]

У тебя тоже то ли бегин пропущен, то ли енд лишний.

всего там хватает, просто при копировании перенеслось как-то непонятно. end должен быть на 3 символа левее...

[TarasBer]

Вот поэтому я или обрамляю лишний раз парой begin-end, либо пишу ВЕСЬ заголовок в одну строку

for k:=1 to n do for i := n downto k+1 do if z[i-1,j]>z[i,j] then begin
  buf:=z[i,j];
  z[i,j]:=z[i-1,j];
  z[i-1,j]:=buf;
end;

Про одну строку - это скорее из вредных советов, но в этом тоже есть свой смысл - весь заголовок по смыслу является одним выражением "для всех пар, для которых так-то, сделать..."
Ещё вариант - не сдвигаться на 2 на if

Сообщение отредактировано: TarasBer - 3.11.2011 19:43