Сортиране масив в Pascal

Избор Сортирайте в Паскал

Търси максималният елемент и се прехвърля в края на масива. След това, тази операция се прилага последователно към всички позиции с изключение на последния, тъй като това е най-крайното си местоположение.

Пример 11.4. Сортиране Възходящо генерира случайна масив от 10 числа с помощта на "заместване"

Текстът на програмата

Програма up_repl;
Използва CRT;
Строителство п = 10; k1 = 10; k2 = 2 * k1 + 1;
Тип VEC = масив [1..N] на цяло число;
Var а, б, в: VEC;
к, I, J, F, m: цяло число;
СН: знак;
л: булева;
започвам
повторение
ClrScr;
Случаен;
Добави ( "Въз масив [Ь] = ');
Защото: = 1 до п направи
започвам
е: = Произволни (k2);
на [Ь]: = k1-F;
Добави (а [Ь]: 3);
Край;
writeln;
б: = а;
За к: = 1 до п направи
започвам
m: = 100;
Защото: = 1 до п направи
Ако т> б [Ь] тогава
започвам
м: = б [Ь]; J: = I;
приключи;
б [й]: = 100; С [К]: = m
приключи;
Добави ( "подреден масив в [Ь] = ');
Защото: = 1 до п пишат (С [а]: 3);
readln;
СН: = ReadKey;
До CH = # 27;
Край.

Масивът източник [Ь] = 10 -5 -9 6 -5 7 -4 10 3 6
Определен ред в [Ь] = -9 -5 -5 -4 6 Март юли 06 октомври, 10

обмен сортиране (метод балон) в Pascal

Последователно сравняване съседни двойки елементи XI и XI + 1, и ако XI> XI + 1, тогава те се въвеждат. След това процесът се повтаря за следващата двойка и т.н.

Пример 11.5. Сортиране Възходящо генерира случайна масив от 10 числа с помощта на "балон"

Текстът на програмата

Програма up_case;
Използва CRT;
Строителство п = 10; k1 = 10; k2 = 2 * k1 + 1;
Тип VEC = масив [1..N] на цяло число;
Var а, Ь: VEC;
к, I, F, г: цяло число;
СН: знак;
л: булева;
започвам
повторение
ClrScr;
Случаен;
Добави ( "източник масив [Ь] = ');
Защото: = 1 до п направи
започвам
е: = Произволни (k2);
на [Ь]: = k1-F;
Добави (а [Ь]: 3);
Край;
writeln;
б: = а;
повторение
л: = вярно;
защото: = 1 до п-1 направи
Ако б [Ь]> б [Ь + 1] тогава
започвам
R: = б [Ь] Ь [Ь]: = б [Ь + 1]; б [Ь + 1]: R =; л: = фалшива;
Край;
До л;
Добави ( "подреден масив б [Ь] = ');
Защото: = 1 до п пишат (б [Ь]: 3);
readln;
СН: = ReadKey;
До CH = # 27;
Край.

Масивът източник [Ь] = 6 -9-10 6 5 4 -4 -1 0 10
Определен ред б [Ь] = - 10 -9 -4 -1 0 4 5 6 6 10

Вмъкването на сортиране Паскал

Нека първите к елементи вече са сортирани. Вземете (к + 1) -ия елемент и се намира сред к нареди елементи, така че вече се появи нареди к + 1 от първите елементи. Този метод се използва за к от 1 до п-1.