Презентация, доклад на тему Сортировка массивов

убыванию, последней цифре, сумме делителей, …).
Задача: переставить элементы массива в порядке возрастания.
Алгоритмы:
сортировка обменом – «пузырьковая»
сортировка выбором
сортировка вставками
сортировка подсчетом

вверх.
Для массивов – самый маленький ("легкий") элемент перемещается вверх ("всплывает").

начиная снизу, сравниваем два соседних элемента; если они стоят "неправильно", меняем их местами
за 1 проход по массиву один элемент (самый маленький) становится на свое место

1-ый проход

2-ой проход

3-ий проход

Для сортировки массива из N элементов нужен N-1 проход (достаточно поставить на свои места N-1 элементов).

of integer;
i,d,l:integer;
begin
clrscr;
randomize;
writeln ('исходный массив');
for i:= 1 to 30 do
begin
a[i]:=random(10);
write (a[i],' ');
end;
writeln;
for l:=30 downto 2 do
for i:=1 to l-1 do
if a[i]>a[i+1] then
begin
d:=a[i];
a[i]:=a[i+1];
a[i+1]:=d;
end;
writeln('новый отсортированный массив');
for i:=1 to 30 do
write (a[i],' ');
readkey;
end.

исходный массив
8 5 7 8 0 7 2 4 8 6 8 7 0 3 9 3 1 4 2 5 4 2 0 1 8 2 4 8 3 3
новый отсортированный массив
0 0 0 1 1 2 2 2 2 3 3 3 3 4 4 4 4 5 5 6 7 7 7 8 8 8 8 8 8 9

4

с A[1])
из оставшихся найти минимальный элемент и поставить на второе место (поменять местами с A[2]), и т.д.

of integer;
i,h,k,d,l:integer;
begin
clrscr;
randomize;
writeln ('исходный массив');
for i:= 1 to 30 do
begin
a[i]:=random(10);
write (a[i],' ');
end;
writeln;
for l:=1 to 29 do
begin
k:=30-l+1;
h:=k;
for i:=1 to 30-l do
if (a[i]>a[h]) then h:=i;
d:=a[k]; a[k]:=a[h]; a[h]:=d;
end;
writeln('новый отсортированный массив');
for i:=1 to 30 do
write (a[i],' ');
readkey;
end.

исходный массив
0 7 3 8 7 2 4 8 4 7 3 0 8 5 4 7 8 4 2 7 1 1 0 8 8 5 8 3 1 7
новый отсортированный массив
0 0 0 1 1 1 2 2 3 3 3 4 4 4 4 5 5 7 7 7 7 7 7 8 8 8 8 8 8 8

отсортировать его по последней цифре.
Пример:
Исходный массив:
14 25 13 30 76 58 32 11 41 97
Результат:
30 11 41 32 13 14 25 76 97 58

решение задачи

решение задачи

clrscr;
randomize;
writeln ('исходный массив');
for i:= 1 to 10 do
begin
w[i]:=random(101);
write (w[i],' ');
end;
writeln;
for k:=10 downto 2 do
for i:=1 to k-1 do
if w[i] mod 10 > w[i+1] mod 10 then
begin
h:=w[i];
w[i]:=w[i+1];
w[i+1]:=h;
end;
writeln('полученный массив');
for i:=1 to 10 do
write (w[i],' ');

Readkey;
end.

Результат работы группы № 2

исходный массив
86 5 20 32 88 15 17 14 34 99
полученный массив
20 32 14 34 5 15 86 17 88 99