Сортировка массива.
Сортировка массива- это упорядочение элементов массива по возрастанию или убыванию. Существуют несколько способов сортировки. Мы рассмотрим только два.
Линейная сортировка массива по возрастанию.
Пусть дан массив А(3 8 2 1 7 )
Рассмотрим элементы массива, начиная с первого. Найдем среди элементов тот, который меньше первого и поменяем их местами. Продолжим просматривать массив, если найдем элемент, меньший того, что стоит на первом месте, то опять поменяем их местами.
Т.О. получим массив: А(1 8 2 3 7 )
Далее будем просматривать массив, начиная со второго элемента. Если найдется элемент меньше второго, то меняем их местами.
Т.О. получим массив: А(1 2 8 3 7 )
Далее будем просматривать массив, начиная с третьего элемента. Если найдется элемент меньше третьего, то меняем их местами.
Т.О. получим массив: А(1 2 3 8 7 )
Продолжаем процедуру, пока не дойдем до элемента под номером N-1, где N-размер массива.
В итоге получим массив А(1 2 3 7 8 ).
Итак, чтобы написать программу на Turbo Pascal нам понадобятся два циклических оператора FOR с параметрами
I-определяет «рабочую часть»
J- для работы в «рабочей части», обращения к каждому элементу
Для того чтобы поменять элементы местами, используем следующий алгоритм:
begin
r:=a[i];
a[i]:=a[j];
a[j]:=r;
end;
Где r- переменная для временного хранения значения a[i];
Для краткости не будем вводить массив с клавиатуры, а объявим его как постоянную.
Текст программы:
Program _;
Uses crt;
Сonst n=5
Type vector=array [1..n] ofinteger;
Const a:vector=(12,8,7,9,0)
Var i,j,r:integer;
Begin
clrscr;
{вывод массива}
for i:= 1 to 5 do write(a[i],' ');
{сортировка методом отбора}
writeln;
for i:=1 to N-1 do
For j:=i+1 to n do
if a[j]<a[i] then
{меняем местами}
begin
r:=a[i];
a[i]:=a[j];
a[j]:=r;
end;
печатаем новый массив}
textcolor(5);
for i:= 1 to 5 do write(a[i],' ');
readln;
End.
Сортировка методом пузырька.
Это один из самых популярных методов сортировки, основан на том, что в процессе сортировки более «легкие» элементы массива постепенно «всплывают». Особенностью этого метода является сравнения элемента не со всеми, а только с соседними.
Пуст имеем массив А(3 6 5 4 7)
Просматриваем массив от второго элемента до конца и, начиная с конца, меняем местами элементы, если правый меньше левого.
Т.О. получаем массив А(3 4 6 5 7)
Далее просматриваем массив, начиная с третьего. И меняем соседние элементы, если правый меньше левого.
Т.О. получаем массив А(3 4 5 6 7)
Продолжаем просматривать массив до последнего элемента.
Чтобы запрограммировать данный алгоритм на Turbo Pascal, используем два цикла FOR, первый с параметром I-отделяет «рабочую часть», второй for j:=…downto… чтобы работать внутри рабочей части, сравнивать соседние элементы. Сам массив опишем как типизированную констану.
Program _;
Uses crt;
Type vector=array [1..5] of byte;
const a:vector=(34,7,1,7,2)
Var i,j,r:integer;
Begin
clrscr;
{вывод массива}
textcolor(15);
for i:= 1 to 5 do write(a[i],' ');
{сортировка методом пузырька}
writeln;
for j:=2 to 5 do
For i:=5 downto j do
if a[i]<a[i-1] then
{меняем местами}
begin
r:=a[i];
a[i]:=a[i-1];
a[i-1]:=r;
end;
{печатаем новый массив}
textcolor(5);
for i:= 1 to 5 do write(a[i],' ');
readln;
End.
Дома:
ü Просмотреть другие методы сортировки. Подготовить доклады. (Каждый!)
ü Повторить задачи лекции 3 по теме «массивы»
Лекция 24.
Дата добавления: 2016-05-25; просмотров: 630;