Сортировка массива, pascal

[zevs116]

Ребята, срочно нужна помощь, я пытался разобраться, но когда дошел до сортировки (ну хотябы методом "пузырька") вообще перестал соображать. вот задание:

Дана матрица 20х30. упорядочить ее строки по неубыванию их первых элементов.

есть соображения?

[Mad_Cat]

есть---> 3.5$ и сделаю! аська в профиле

не вариант

тогда учебник в руки и вперед!!!

[zevs116]

не вариант

[chesser]

Какой язык? А так, сравнивайте первые элементы соседних строк и, если внизу находится строка с меньшим первым элементом, то меняйте строки местами.

[Stilet]

я пытался разобраться

Разборки в студию )

[Serge_Bliznykov]

ну что Вы этого двоичника мучаете? Ну ясно же, что никаких разработок у него нет!

ладно, сделал чисто просто по приколу.
Причём, используя одну малоизвестную фишку Паскаля (смотри мой пост )

uses CRT;
Const
  NumRow = 20;
  NumCol = 30;
var
  i, j : integer;
  Mas : array[1..NumRow+1,1..NumCol] of integer;
begin

  Randomize;

  for i := 1 to NumRow do
    for j := 1 to NumCol do
      Mas[i, j] := Random(10);

  WriteLn('Исходная матрица:');
  for i := 1 to NumRow do begin
    for j := 1 to NumCol do
        Write(Mas[i, j]:2);
    WriteLn;
  end;
  WriteLn('------------------');


   {сортировка массива по неубыванию их первых элементов}
   for i:=1 to NumRow do
     for j:=i+1 to NumRow do
       if Mas[i,1]>Mas[j,1] then
         begin
           {строчка NumRow+1 используется исключительно для удобства
             обмена строчек межуд собой}
           Mas[NumRow+1] := Mas[i];
           Mas[i] := Mas[j];
           Mas[j] := Mas[NumRow+1]
         end;

  WriteLn('Матрица после сортировки:');
  for i := 1 to NumRow do begin
    for j := 1 to NumCol do
        Write(Mas[i, j]:2);
    WriteLn;
  end;

  readln;

end.

p.s. объяснять принципиально ничего не буду. Я и так слишком много сказал...

[zevs116]

неа, были наработки, вы не подумайте, пост все было на бумаге, не было времени переписывать! вот начало у меня было такое:

program pr3;
mas=array[1..20;1..30] of real;
mas2=array[1..20] of real;
var A,B:mas; max:mas2; i,j:integer;

begin
for i:=1 to 20 do
begin
max[i]:=A[i,j];
for j:=1 to 30 do
if A[i,j]>max[i] then
max[i]:=A[i,j];
end;

а дальше хз. А в том готовом варианте, там используется этот пресловутый метод пузырьков??

[zevs116]

блин, там ничего не катит, паскаль сразу строку не переносит, надо по отдельности..((

уф, разобрался, немного подправил, теперь все норм. если кому надо будет, вот конечный рабочий вариант:

uses CRT;
Const
NumRow = 20;
NumCol = 30;
var
i, j,n,k : integer;
Mas : array[1..NumRow,1..NumCol] of integer;
Mas2:array[1..20] of integer;
begin

Randomize;
{создание исходного массива}

for i := 1 to NumRow do
for j := 1 to NumCol do
Mas[i, j] := Random(10);

WriteLn('Исходная матрица:');
for i := 1 to NumRow do begin
for j := 1 to NumCol do
Write(Mas[i, j]:2);
WriteLn;
end;
WriteLn('------------------');


{сортировка массива по неубыванию их первых элементов}

for i:=1 to NumRow do
for j:=i+1 to NumRow do
if Mas[i,1]>Mas[j,1] then
begin
{метод "пузырьков"}
for n:=1 to 5 do
begin
Mas2[n] := Mas[i,n];
Mas[i,n] := Mas[j,n];
Mas[j,n] := Mas2[n];
end;
end;

WriteLn('Матрица после сортировки:');
for i := 1 to NumRow do begin
for j := 1 to NumCol do
Write(Mas[i, j]:2);
WriteLn;
end;

readln;

end.

[Serge_Bliznykov]

1) MAS2 в принципе не нужен...

x := Mas[i,n];
Mas[i,n] := Mas[j,n];
Mas[j,n] := x;

но это ещё полбеды..
А вот главное,
это ошибка.
что за for n:=1 to 5 do ?!!
Откуда 5 нарисовалась то?
Тогда уж поставьте NumCol

p.s. программу из пост #6 я проверял. Всё работает!

[zevs116]

Оппа, как же не заметил то блин, я прост на небольших массивах работоспособность поверял. уже и девчонке отправил, ну ладно, думаю препод её не заметит)

а вот еще такое заданьице, почти тоже самое, только надо не по первым элементам сортировать, а по максимальному в строке. я там чуток кода кидал, как его туда всунуть?