Сортировка пузырьком на Pascal

Программирование Программирование на Pascal Сортировка пузырьком на Pascal

Помечено: ,

В этой теме 0 ответов, 1 участник, последнее обновление  Васильев Владимир Сергеевич 1 год, 2 мес. назад.

Просмотр 1 сообщения - с 1 по 1 (всего 1)
  • Автор
    Сообщения
  • #3772

    Напишите программу, сортирующую массив по убыванию методом Пузырька.

    program arrays_10;
    uses crt;
    var mas:array[1..100] of integer;
      n, i, m, k, x: integer;
    begin
      clrscr;
      write('Количество элементов > ');
      read(N);
      for i:=1 to n do
      begin
        write(i, ' элемент > '); read(mas[i]);
      end;
      for k:=n downto 2 do
      begin
        m:=1; { m - место max }
        for i:=2 to k do 
          if mas[i]>mas[m] then begin
            x:=mas[m]; mas[m]:=mas[i]; mas[i]:=x;
          end;
      end;
      writeln('Отсортированный массив:');
      for i:=1 to n do write(mas[i],' ');
        readkey;
    end.

    В начале программы вводится массив чисел с клавиатуры. Далее идут 2 цикла вложенных друг в друга. Для того, чтобы отсортировать последовательность чисел первый цикл берет одно число, а второй сравнивает его с остальными числами.

    Первое число сравнивается со 2,3,4,5... числом. Второе число с 3,4,5... пока предпоследнее число в последовательности не будет сравниваться с последним.

    Сравнение происходит так : если одно число меньше другого, то обмениваем их. Подробнее про обмен.

    Вложения:
    Вы должны войти для просмотра вложений.
Просмотр 1 сообщения - с 1 по 1 (всего 1)

Для ответа в этой теме необходимо авторизоваться.