Помощь - Поиск - Пользователи - Календарь
Полная версия: Необходимо отсортировать элементы каждой строки матрицы по возрастанию
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
and rew
Помогите пожалуйса выполнить задание:
Дана матрица целых чисел 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
Пользуйся поиском ! Эта задача решалась неоднократно.


+ FAQ : Методы сортировок
+ FAQ : Массивы, матрицы, типичные задачи
and rew
не нашел точно такой же задачи, похожие вопросы есть и везде ссылка на FAQ, а там только сортировка в одномерном массиве
and rew
сам додумался, вот решение:
Код

//Обработка массива
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
Цитата(and rew @ 19.09.2006 9:17)
не нашел точно такой же задачи, похожие вопросы есть и везде ссылка на FAQ, а там только сортировка в одномерном массиве
А ты читал его? Особенно, вот эту тему: Как задать матрицу, чтобы быстро...

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

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