Напечатать в файл исходный и отсортированный массивы.

End.

Writeln;

End;

Begin

Writeln;

Begin

Вывести на экран исходный и отсортированный массивы.

Отыскивается MAX элемент и переносится в конец массива (меняется местами с находящимся там элементом); затем эта операция применяется ко всем элементам, кроме последнего ( так как он уже находится на своем месте) и так далее.

Сортировка методом ВЫБОРА.

Writeln;

End;

Begin

BEGIN

Uses crt;

Program SORTIROVKA_1;

Пример 1.

Сортировка одномерного массива
(по возрастанию).

CONST A:array[1..5] of integer=(5,4,1,3,2);

n=5;

VAR i, j, k, m, buf: integer;

for i:=1 to n-1 do { можно to n do}

for j:=1 to n-1 do { можно to n-i do}

if a[j] >a[j+1] then

buf:=a[j+1] ;

a[j+1] :=a[j] ;

a[j] :=buf;

for i:=1 to 5 do

write(a[i],' ');

массив A=(5, 4, 1, 3, 2);

i=1 j=1 5>4 да 4, 5, 1, 3, 2

j=2 5>1 да 4, 1, 5, 3, 2

j=3 5>3 да 4, 1, 3, 5, 2

j=4 5>2 да 4, 1, 3, 2, 5 {за один проход
выдавили вправо макс=5}

i=2 j=1 4>1 да 1, 4, 3, 2, 5

j=2 4>3 да 1, 3, 4, 2, 5

j=3 4>2 да 1, 3, 2, 4, 5

** j=4 4>5 нет 1, 3, 2, 4, 5 нет смены эл-тов

i=3 j=1 1>3 нет 1, 3, 2, 4, 5

j=2 3>2 да 1, 2, 3, 4, 5

** j=3 3>4 нет 1, 2, 3, 4, 5 больше

** j=4 4>5 нет 1, 2, 3, 4, 5 смен нет

i=4 j=1 нет

j=2 нет это уже лишние
j=3 нет прогоны

j=4 нет

Примечание:

В операторе цикла for j:=1 to 5-i do конечное значение параметра цикла 5-i убирает лишние перестановки по j (сравните со случаем, когда for j:=1 to 4 do ).

массив A=(5, 4, 1, 3, 2);

i=1 5 4 1 3 2 max=5 меняем 5 и 2

Пример 1 сортировка методом Выбора

const n=10;

type mass=array[1..n] of integer;

var i,j:integer; buf:integer;

const x:mass=(5,-7,16,12,-5,22,-8,15,6,2);

{------печать исходного массива ----------}

for i:=1 to 10 do write(x[i],' ');

{------сортировка массива по возрастанию-----}

for k:=10 downto 2 do {ищем max среди k эл-тов}

p:=1; { пусть индекс max =1}

for i:=2 to k do {поиск индекса max}

if x[i]>x[p] then p:=i; {смена индекса max}

buf:=x[k] ; x[k] :=x[p] ; x[p] :=buf; {*}

{---печать отсортированного массива массива -----}

for i:=1 to 10 do write(x[i],' ');

{*} поменяли местами элементы Xmax и Xк, т.е. переставим max элемент в конец массива на k-е место.

--------------------------------------------------------------

Пример 2 сортировки методом “Пузырька”

const n=10;

type mass=array[1..n] of integer;

var i,j:integer; buf:integer;

const x:mass=(5,-7,16,12,-5,22,-8,15,6,2);

f:text;