Форум «Всё о Паскале» > Необходимо отсортировать элементы каждой строки матрицы по возрастанию

Помощь - Поиск - Пользователи - Календарь

Полная версия: Необходимо отсортировать элементы каждой строки матрицы по возрастанию

Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи

and rew

19.09.2006 10:28

Помогите пожалуйса выполнить задание:
Дана матрица целых чисел 4*3.
Отсортировать элементы каждой строки по возрастанию

var
a:array[1..4,1..3] of integer;
i,j,x:integer;
begin
writeln('Введите матрицу 4*3');
for i:=1 to 4 do
begin
writeln;
for j:=1 to 3 do
read(a[i,j]);
end;
//Вывод сформированного массива до обработки
writeln('Матрица до обработки: ');
for i:=1 to 4 do
begin
writeln;
for j:=1 to 3 do
write(a[i,j]:4);
end;
writeln;
//Сортировка матрицы
end.

klem4

19.09.2006 11:26

Пользуйся поиском ! Эта задача решалась неоднократно.

+ FAQ : Методы сортировок
+ FAQ : Массивы, матрицы, типичные задачи

and rew

19.09.2006 13:17

не нашел точно такой же задачи, похожие вопросы есть и везде ссылка на FAQ, а там только сортировка в одномерном массиве

and rew

19.09.2006 14:22

сам додумался, вот решение:

Код

//Обработка массива
for k:=1 to 4 do
begin
for i:=1 to 4-1 do
for j:=i+1 to 3 do
    BEGIN
    if a[k,i]>a[k,j] then
      begin
       f:=a[k,i];
       a[k,i]:=a[k,j];
       a[k,j]:=f;
      end;
    END;
end;
//Вывод результата
writeln('Отсортированная матрица: ');
for i:=1 to 4 do
begin
  writeln;
  for j:=1 to 3 do
  write(a[i,j]:4);
end;
writeln;
end.

volvo

19.09.2006 17:15

Цитата(and rew @ 19.09.2006 9:17)

А ты читал его? Особенно, вот эту тему: Как задать матрицу, чтобы быстро...

Ну, и чем в таком случае сортировка КАЖДОЙ строки матрицы отличается от сортировки одномерного массива, если строка матрицы этим самым массивом и является? Ты мне можешь объяснить?

Изобретай велосипед дальше...

Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.