VPF::Сортировка вставками - Форум программистов

Sergas

Дата 23.12.2008, 18:51 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 23.10.2008

Репутация: нет
Всего: нет

Ничего не понимаю ^^
Нужно отсортировать массив вставками справа налево по убыванию

Код


var a: array[1..100] of integer;
    i, j, n, b: integer;
begin
  n:=6;
  for i:=1 to n do
   read(a[i]);
  for i:=5 downto 1 do
    if a[i]<a[i+1]
    then
     begin
       b:=a[i];
       j:=i+1;
       repeat
         a[j-1]:=a[j];
         j:=j+1;
       until (j<6) or (a[j]<=b);
       a[j]:=b;
     end;
  for i:=1 to n do
   write(a[i]:5);
   writeln;
end.

Это сообщение отредактировал(а) volvo877 - 24.12.2008, 01:18

volvo877

Дата 24.12.2008, 01:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(Sergas @ 23.12.2008, 17:51

)

Нужно отсортировать массив вставками справа налево по убыванию

Так что-ли?

Код

var
  a: array[1..100] of integer;
  i, j, n, b: integer;
begin
  n := 6;
  for i := 1 to n do read(a[i]);

  for i := n downto 1 do begin
    b := a[i];
    j := Succ(i);
    while (j <= n) and (b < a[j]) do begin
      a[pred(j)] := a[j]; inc(j);
    end;
    a[pred(j)] := b;
  end;

  for i := 1 to n do write(a[i]:5);
  writeln;
end.

Sergas

Дата 24.12.2008, 18:00 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 23.10.2008

Репутация: нет
Всего: нет

Спасибо, но эта прога нарушает сам алгоритм вставок, но вёравно спасибо за помощь.

volvo877

Дата 24.12.2008, 20:01 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(Sergas @ 24.12.2008, 17:00

)

эта прога нарушает сам алгоритм вставок

Да что ты говоришь? И чем же?

Sergas

Дата 25.12.2008, 15:15 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 9
Регистрация: 23.10.2008

Репутация: нет
Всего: нет

тем, что алгоритм вставок выглядит подругому,
хотя мне без разницы,
но на меня наехали изза этого)

volvo877

Дата 25.12.2008, 16:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2073
Регистрация: 15.11.2004

Репутация: 2
Всего: 116

Цитата(Sergas @ 25.12.2008, 14:15

)

тем, что алгоритм вставок выглядит подругому,

Алгоритм вставок выглядит именно так, ибо это он и есть (единственное, что изменено - это порядок прохождения, справа налево, в то время как в оригинале - слева направо). Если ты этого не знаешь - это твоя личная проблема. И уж НИКАК он не выглядит подобно тому, что приведено в первом посте...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Object Pascal: кроссплатформенные технологии \| Следующая тема »