Сортировка массива методом пузырька

[bonjovi]

Собственно дана задача:

3. Создать массив целых чисел из N=15 элементов. Заполнить его случайным образом, числами, в диапазоне от 0 до 40. Вывести его на экран. Отсортировать его методом простого обмена (“пузырька”) по невозрастанию (каждый следующий элемент меньше или равен предыдущему) и вывести отсортированный массив на экран.

В чём заключается смысл сортировки пузырьком?
Искал в интернете, там только с добавлением True & False!
Мне это не надо.......

[Serge_Bliznykov]

вот, например, так можно:

const N = 15;

var
  A : array[1..N] of integer;
  i, j, t : integer;
begin
  Randomize;
  {заполнение случайными числами в диапазоне от 0 до 40}
  for i:=1 to N do A[i] := Random(41);
 
  {сортировка массива методом простых обменов ("пузырька") }
  for i:=1 to N-1 do
    for j:=i+1 to N do
      if A[i] <= A[j] then begin
        t := A[i];
        A[i] := A[j];
        A[j] := t;
      end;

  вывод полученного массива A

конец.

[bonjovi]

эм.... Я думал это линейная сортировка!


А тогда линейная сортировка это как!!?!

[Serge_Bliznykov]

Сообщение от bonjovi

А тогда линейная сортировка это как!!?!

извините, я на этот вопрос не могу ответить: я не знаю такой сортировки..

и посмотрел на википедии - Алгоритм сортировки,
тоже не увидел такой...

[bonjovi]

Тема ещё актуальна!

Решите задачу!

[Hacker19_90]

Вообще-то
Сортировка методом пузырька и линейная сортировка - это ОДНО И ТОЖЕ!
Так, что думаю вопросов нет! Задача решена?

[bonjovi]

Нет! Вы не правы! У меня есть две похожие задачи:


№1

2. Создать массив целых чисел из N=15 элементов. Заполнить его случайным образом, числами, в диапазоне от 0 до 20. Вывести его на экран. Затем отсортировать его методом прямого выбора (линейная сортировка) по неубыванию (каждый следующий элемент больше или равен предыдущему) и вывести на экран отсортированный массив.

№2

3. Создать массив целых чисел из N=15 элементов. Заполнить его случайным образом, числами, в диапазоне от 0 до 40. Вывести его на экран. Отсортировать его методом простого обмена (“пузырька”) по невозрастанию (каждый следующий элемент меньше или равен предыдущему) и вывести отсортированный массив на экран.

Задачи почти одинаковые! Не стали бы писать ОДНО И ТОЖЕ!

[Hacker19_90]

да кстати, извините, но я не прав!
Тогда смотрим сюда!

Идея линейной сортировки по невозрастанию заключается в том, чтобы, последовательно просматривая весь массив, отыскать наибольшее число и поместить его на первую позицию, обменяв его с элементом, который ранее занимал первую позицию. Затем просматриваются все остальные элементы массива и выполнятся аналогичная операция по отбору из рассматриваемой части массива максимального элемента и обмену местами этого элемента и первого в рассматриваемой части и т.д.

сортировка производится так

for i := 1 to n-1 do
    for j := i+1 to n do
        if a[i] < a[j] then
        begin
            temp := a[i];
            a[i] := a[j];
            a[j] := temp;
        end;

Терь метод пузырька

Алгоритм состоит в повторяющихся проходах по сортируемому массиву. За каждый проход элементы последовательно сравниваются попарно и, если порядок в паре неверный, выполняется обмен элементов. Проходы по массиву повторяются до тех пор, пока на очередном проходе не окажется, что обмены больше не нужны, что означает — массив отсортирован. При проходе алгоритма, элемент, стоящий не на своём месте, «всплывает» до нужной позиции как пузырёк в воде, отсюда и название алгоритма.

сортировка

    repet
        isFound := false;
        for i := 1 to n -1 do
            if a[i] < a[i+1] then
            begin
                isFound := true;
                temp := a[i];
                a[i] := a[i+1];
                a[i+1] := temp;
            end;
    until isFound = false;

Есть ещё вопросы?

[bonjovi]

Спасибо за старание и помощь! Можете закрывать тему!