Сортировки массива в Pascal ABC.

Сделаем из мягкой проволоки рамку размером в любое произвольное яблоко, т. о. мы получили ЭТАЛОН

Берем следующее яблоко и протаскиваем его через рамку. Если оно не проходит, откладываем. Если же проходит, то мы уменьшаем рамку до размера этого яблока и продолжаем сравнивать

Основной алгоритм Пока есть элементы делай Начало Сравнить очередной элемент с поисковой переменной Конец

Задача сортировки Задача сортировки а) СОРТИРОВКА ВЫБОРОМ. Дана последовательность чисел а 2 а n Дана последовательность чисел а 1, а 2, а 3,.. а n Переставим элементы по убыванию от большего к меньшему. Для этого в массиве выбирается наибольший элемент и ставится на первое место, а первый – на место наибольшего. Затем, начиная со второго эта процедура повторяется

Б) СОРТИРОВКА ОБМЕНОМ Дана последовательность чисел а 2 а n Переставим элементы в порядке возрастания. Дана последовательность чисел а 1, а 2, а 3,..а n Переставим элементы в порядке возрастания. Для этого сравниваем два соседних элемента а i и а i+1, если а i > а i+1, то делается перестановка. Так продолжается до тех пор, пока элементы не будут расположены в порядке возрастания.

в) СОРТИРОВКА ВСТАВКАМИ Дана последовательность чисел а 2 а n Переставим элементы в порядке возрастания. Дана последовательность чисел а 1, а 2, а 3,..а n Переставим элементы в порядке возрастания. а 2 а i Пусть а 1, а 2, а 3,..а i - возрастающая последовательность, Берется число a i+1 и вставляется так, чтобы новая последовательность была также возрастающей. Процесс производится до тех пор, пока все элементы массива не будут перебраны.

Пузырьковая сортировка (метод обмена) Элементы расположим в порядке возрастания (от меньшего к большему) Рассматривая пары элементов и если а i > а i+1, то меняем местами элементы массива (метод обмена). В итоге самый большой «всплывет» на последнем месте («пузырек»)

Пример В=(20, 10, 7, 8, 15, 2) 1 шаг 2 шаг 3 шаг 4 шаг 5 шаг Сравниваем 20 и 10 20>10 -> меняем 10 и 20 местами 20>8 ->меняем 20>7 -> меняем

1. Зададим массив A[1..n] 2. i:=1 3. Если i<n, то перейдем к п.4, иначе к п j:=1 5. Если j<n-i, то перейти к п. 6, иначе i-тый шаг выполнен. Перейти к п Если A[j]>A[j+1], то поменять местами: t:=A[j]; A[j]:=A[j+1]; A[j+1]:=t 7. j:=j+1, перейти к п i:=i+1; перейти к п Сортировка завершена Пошаговый алгоритм

Program z1; Var A: array [1..20] of integer; i,j,t:integer; Begin FOR i:=1 TO 20 DO BEGIN BEGIN A[i]:=random(50); {заполняем массив случайными числами} WRITE (A[i], ); END; For i:=1 to 20 do For j:=1 to 20-i do If A[j]>A[j+1] then begin t:=A[j]; A[j]:=A[j+1]; A[j+1]:=t; end; For i:=1 to 20 do write (A[i], ); end.

Задачи 1. Составьте программу сортировки массива заполненного случайными числами по убыванию абсолютных величин (abs(A[i])) 2. Задан массив А размера N. Перепишите его элементы в массив С в порядке убывания. 3. Известно, сколько очков заработала каждая из 20 команд в отборочном туре игры КВН. В финал выходят только 5 команд. Выведите на экран очки команд, вышедших в финал.