Метод сортировки массива вставками

@ViRuS_10 · Регистрация: 15.04.2010

Студворк — интернет-сервис помощи студентам

Здравствуйте!
Объясните, пожалуйста, принцип этого метода
В интернете искал, но там для других языков программирования

@Quiet Snow · 13.11.2010, 02:29

Вот сортировка на пасе, берёшь и ручками ручками аккуратно переписываешь на бейсик.

Pascal

procedure InsertSort( var A : mas );
    var
      i, k : Integer;
      x : itp;
    begin
      { Вставляем в уже отсортированную часть элементы со 2 по max }
      for i := 2 to max do
        begin
          k := i;
          x := A[i];
          { Передвигаем на 1 позицию направо элементы,
            большие вставляемого элемента (он записан в x) }
          { Условие k > 1 гарантирует, что мы не выйдем за
            границу массива, если вставляется элемент,
            меньший всех предыдущих.
            В Turbo Pascal условия вычисляются в обратном порядке,
            поэтому условие цикла while нужно заменить на
            (A[k - 1] > x) and (k > 1) }
          while (k > 1) and (A[k - 1] > x) do
            begin
              A[k] := A[k - 1];
              k := k - 1;
            end;
          { Вставляем элемент в нужную позицию }
          A[k] := x;
        end;
    end;

т.е. получаешь соотв.

PureBasic

DECLARE SUB InsertSort (A() AS INTEGER)
 
DIM CCC%(15)
 
  CLS : RANDOMIZE TIMER
  ' Заполнение массива
  FOR i% = 1 TO 15
    CCC%(i%) = RND * 10
    PRINT CCC%(i%);
  NEXT i%: PRINT
     ' Наша сортировка
     InsertSort CCC%()
  ' Вывод на экран
  FOR i% = 1 TO 15
    PRINT CCC%(i%);
  NEXT i%
 
SUB InsertSort (A() AS INTEGER)
 DIM i AS INTEGER, k AS INTEGER
 DIM x AS INTEGER
      ' Вставляем в уже отсортированную часть элементы со 2 по max }
      PRINT UBOUND(A); "Elements"
      FOR i = 2 TO UBOUND(A)
          k = i
          x = A(i)
          ' Передвигаем на 1 позицию направо элементы,
          '  большие вставляемого элемента (он записан в x)
          ' Условие k > 1 гарантирует, что мы не выйдем за
          '  границу массива, если вставляется элемент,
          '  меньший всех предыдущих.
          WHILE (A(k - 1) > x) AND (k > 1)
              A(k) = A(k - 1)
              k = k - 1
          WEND
          ' Вставляем элемент в нужную позицию }
          A(k) = x
      NEXT i
END SUB

Программа взята отсюдова:
Сортировки

Уже тысяча раз поднималась эта тема, можно ведь понять как делать, ВСЁ ЕСТЬ в разделе паскаля, синтаксис перелопачивается элементарно(можно даже простенький конвертер сделать чтоб убирал двоеточия и точки с запятой, тогда работы вообще минимум).

@кот Бегемот · 13.11.2010, 10:15

>Quiet Snow<, а если в проге попадутся строки, множества, записи?

@Quiet Snow · 13.11.2010, 22:38

Я лишь указал простой путь, всё задачи которые нельзя реализовать напрямую к бейсику не относятся.

@ViRuS_10 0 / 0 / 0 Регистрация: 15.04.2010 Сообщений: 7
		1
	Метод сортировки массива вставками 12.11.2010, 16:55. Показов 1258. Ответов 3 Метки нет (Все метки) Здравствуйте! Объясните, пожалуйста, принцип этого метода В интернете искал, но там для других языков программирования 0

@кот Бегемот Платежеспособный зверь 8818 / 4245 / 1618 Регистрация: 28.10.2009 Сообщений: 11,386
	13.11.2010, 10:15	3
	>Quiet Snow<, а если в проге попадутся строки, множества, записи? 0

@Quiet Snow 4969 / 1641 / 409 Регистрация: 25.04.2010 Сообщений: 4,504 Записей в блоге: 1
	13.11.2010, 22:38	4
	Я лишь указал простой путь, всё задачи которые нельзя реализовать напрямую к бейсику не относятся. 0

Опции темы