Обработка матриц

[STALKER1992]

Обработка матриц

Люди глянте что не так не поиму чет!

program n10;
uses crt;
const n=10;
var
B:array[1..n, 1..n] of integer;
i,j,k,m:byte;
begin clrscr;
writeln('----исходная матрица B');
randomize;
For I:=1 to n do
For j:=1 to n do
b[i,j]:=Trunc(Random*90)+10;
For i:=1 to n do Begin
For j:=1 to n do
write (b[i,j],'  ');
writeln;
end;
    for i:=1 to n-1 do
    for j:=1 to n-1 do  begin
    if b[1,i]>b[1,i+1] then begin
          for m:=1 to n do begin
          k:=b[m,i];
          b[m,i]:=b[m,i+1];
          b[m,i+1]:=k;
              end;
            end;
           end;
writeln('-----отсортированная матрица B  ');
for i:=1 to n do   begin
for j:=1 to n do write(b[i,j],'  ');
writeln;
end;
end.

Заранее спасибо!

 

[Vladimir_S]

А где формулировка задания? Или Вы предлагаете нам восстанавливать задачу по неправильно работающей программе? Спасибо, конечно, но нам есть чем заняться.

 

[STALKER1992]

забыл

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

 

[Vladimir_S]

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

По возрастанию чего?

 

[STALKER1992]

По возрастанию чего?

ну я как понял чтобы первые элементы столбца шли по возратсанию типо так
4 12 45 64 75 88
46 45 76 57 24 75
32 45 7 32 67 54

 

[Vladimir_S]

ну я как понял чтобы первые элементы столбца шли по возратсанию типо так
4 12 45 64 75 88
46 45 76 57 24 75
32 45 7 32 67 54

Теперь понятно. Сейчас посмотрю.

 

[Vladimir_S]

Да, несколько Вы запутались с методом пузырька. Правильно так:

program n10;
uses crt;
const n=10;
var
 B:array[1..n, 1..n] of integer;
 i,j,k,m:byte;
begin
 clrscr;
 writeln('----исходная матрица B');
 randomize;
 For I:=1 to n do
  For j:=1 to n do
   b[i,j]:=Trunc(Random*90)+10;
 For i:=1 to n do
  Begin
   For j:=1 to n do
    write (b[i,j],'  ');
   writeln;
  end;
[COLOR=Red] for i:=1 to n-1 do
  for j:=1 to n-i do {Именно n-[B]i[/B], а не n-1!!!}
   begin
    if b[1,j]>b[1,j+1] then {Обратите внимание - перебор по j, а не по i !!!}
     begin
      for m:=1 to n do
       begin
        k:=b[m,j];
        b[m,j]:=b[m,j+1];
        b[m,j+1]:=k;
       end;
     end;
   end;[/COLOR]
 writeln('-----отсортированная матрица B  ');
 for i:=1 to n do
  begin
   for j:=1 to n do
    write(b[i,j],'  ');
   writeln;
  end;
 readln;
end.

 

[STALKER1992]

Спасибо! Я был близок к решению=)))