Сортировка элементов в массиве. Написание программ, реализующих сортировку элементов в массиве

Лабораторная работа №7

Тема: сортировка  элементов в массиве.

Цель: научится писать программы, реализующие сортировку элементов в массиве.

Порядок выполнения работы:

1. Определить исходные, промежуточные данные и результат.
2. Построить математическую модель и нарисовать блок-схему.
3. Написать программу.
4. Отладить программу, запустить на исполнение, результат записать в отчёт.

1. Упорядочить по возрастанию методом выбора вторую строку матрицы А[N*M].

program laba71;                                                                                                                         Тест:

var k, min, j,n,m,i: integer;                                                                                                         n=3; m=3;

A:array [1..100, 1..100] of integer;                                                                                             A={1,2,3}

begin                                                                                                                                                {90,100,65}                                                                                                                                          

writeln ('Введите количество строк массива');                                                                            {1,2,3}                                        

readln (n);                                                                                                                                    Результат:

writeln ('Введите количество столбцов массива');                                                                 A={1,2,3}

readln (m);                                                                                                                                       {65,90,100} 

writeln ('Введите элементы массива');                                                                                         {1,2,3}

for i:=1 to n do

for j:=1 to m do

readln (A[i,j]);

for j:=1 to m-1 do

begin

min:=A[2,j];

k:=j;

for i:=j+1 to n do

if (min>A[2,i])

then

begin

min:=A[2,i];

k:=i;

end;

A[2,k]:=A[2,j];

A[2,j]:=min; end;

writeln ('Получился массив:');

for j:=1 to m do

for i:=1 to n do

begin

writeln (A[i,j]);

end;

readln;

end.

2. Упорядочить по возрастанию методом обмена последний столбец матрицы A(N*M).

program laba72;

const n=3; m=3;

var x, i, j: integer;

A:array [1..n, 1..m] of integer;

begin

for i:=1 to n do

for j:=1 to m do

begin

writeln ('A[i,j]');

readln (A[i,j]);

end;

for j:=1 to n-1 do

for i:=1 to n-j do

if (A[i,m]>A[i+1,m])

then

begin

x:=A[i,m];

A[i,m]:=A[i+1,m];

A[i+1,m]:=x;

end;

for i:=1 to n do

for j:=1 to m do

writeln ('A[i,j]=',A[i,j]);

end.