Упорядочить каждый столбец матрицы по возрастанию - Pascal

Узнай цену своей работы

Формулировка задачи:

Упорядочить каждый столбец матрицы по возрастанию массив размером m на n.

Решение задачи: «Упорядочить каждый столбец матрицы по возрастанию»

textual
Листинг программы
var
    ar: Array[Byte, Byte] Of ShortInt;
    i, j, k, m, n: Byte;
    temp: ShortInt;
begin
    repeat
        Write('Количество строк: ');
        ReadLn(m);
    until (m > 0);
    repeat
        Write('Количество столбцов: ');
        ReadLn(n);
    until (n > 0);
    Randomize;
    WriteLn('Оригинальная матрица:');
    for i := 0 to m - 1 do
    begin
        for j := 0 to n - 1 do
        begin
            ar[i, j] := Random(199) - 99;
            Write(ar[i, j]:4);
        end;
        WriteLn;
    end;
    for j := 0 to n - 1 do
        for i := 0 to m - 2 do
            for k := 0 to m - 2 - i do
                if (ar[k, j] > ar[k + 1, j])
                then
                begin
                    temp := ar[k, j];
                    ar[k, j] := ar[k + 1, j];
                    ar[k + 1, j] := temp;
                end;
    WriteLn('Сортированная матрица:');
    for i := 0 to m - 1 do
    begin
        for j := 0 to n - 1 do
            Write(ar[i, j]:4);
        WriteLn;
    end;
end.

Объяснение кода листинга программы

  1. Объявление массива ar: Array[Byte, Byte] Of ShortInt - создание двумерного массива ar, где каждый элемент является 8-битным целым числом.
  2. Объявление переменных i, j, k, m, n: Byte - создание переменных для циклов и хранения размеров матрицы.
  3. Объявление переменной temp: ShortInt - создание временной переменной для обмена значениями при сортировке.
  4. Цикл с повторением до ввода корректного значения m (количество строк) исходной матрицы.
  5. Цикл с повторением до ввода корректного значения n (количество столбцов) исходной матрицы.
  6. Инициализация генератора случайных чисел.
  7. Вывод исходной матрицы с помощью циклов и заполнение элементов случайными значениями.
  8. Цикл сортировки каждого столбца матрицы по возрастанию.
  9. Вывод отсортированной матрицы с помощью циклов.

Оцени полезность:

7   голосов , оценка 3.286 из 5
Похожие ответы