Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

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

Автор: 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

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

+ http://forum.pascal.net.ru/index.php?showtopic=3065
+ http://forum.pascal.net.ru/index.php?showtopic=2694

Автор: 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)

А ты читал его? Особенно, вот эту тему: http://forum.pascal.net.ru/index.php?s=&showtopic=2694&view=findpost&p=38100

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

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