Сортировка строк матрицы на Pascal

      Комментарии к записи Сортировка строк матрицы на Pascal отключены

Главная Форумы Программирование Программирование на Pascal Сортировка строк матрицы на Pascal

Помечено: ,

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 7 мес. назад.

  • Автор
    Сообщения
  • #3778

    Упорядочить элементы в нечетных строках матрицы по возрастанию, а в четных строках – по убыванию.

    Решение:

    program arrays_19;
    uses crt;
    var i, j, k, p, ch, key1, key2: integer;
    matr: array[1..10,1..10] of integer;
    begin
      clrscr; randomize;
      writeln('Исходная матрица:');
      for i:=1 to 10 do begin
        for j:=1 to 10 do begin
          matr[i, j]:=random(10); {заполнение матрицы псевдослучайными числами}
          write(matr[i, j]:3);
        end; 
        writeln;
      end;
      for i:=1 to 10 do begin
        for j:=1 to 10 do begin
          for k:=1 to 9 do begin
            key2:=k;
            ch:=matr[j, k];
            if j mod 2 <> 0 then {если не четное, то выполнять… }
            begin
              if matr[j, key2]>matr[j, k+1] then key2:=k+1;
              matr[j, k]:=matr[j, key2];
              matr[j, key2]:=ch
            end else { если четное, то выполнять…}
            begin
              if matr[j, key2]<matr[j, k+1] then key2:=k+1;
              matr[j, k]:=matr[j, key2];
              matr[j, key2]:=ch;
            end; 
          end; 
        end; 
      end;
      writeln; write('Отсортированная матрица:');
      writeln;
      for i:=1 to 10 do begin
        for j:=1 to 10 do begin
          write(matr[i, j]:3);
        end; 
        writeln; 
      end;
    end.

Для ответа в этой теме необходимо авторизоваться.