|
ПРИМЕР 1.
Сортировка одномерного массива
(по возрастанию).
Program SORTIROVKA_1;
Uses crt;
CONST A:array[1..5] of integer=(5,4,1,3,2);
n=5;
VAR i, j, k, m, buf: integer;
BEGIN
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
Begin
buf:=a[j+1];
a[j+1]:=a[j];
a[j]:=buf;
End;
for i:=1 to 5 do
write(a[i],' ');
writeln;
массив 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
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).
2. Модифицированный метод "Пузырька"
Дата добавления: 2015-07-10; просмотров: 63 | Нарушение авторских прав