VPF::Сдвиг элементов в массиве - Форум программистов

Metalex

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

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

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

Подкиньте, пожалуйста, идею: есть одномерный массив, в котором есть числа и нули. Нужно сделать так, чтобы числа просто располагались по порядку (но не упорядочивались), а после них шли нули.
Например: дан массив 1, 51, 0, 0, 0, -9, 0, 15, 0, 45 или что-то наподобие.
Нужно сделать так: 1, 51, -9, 15, 45, 0, 0, 0, 0, 0
Спасибо.

--------------------

Don't let the system get you down.

VanHelsing

Дата 11.11.2008, 16:49 (ссылка)

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

Загрузка ...

ХОЧУ ВСЕ ЗНАТЬ!!!

Награды: 1

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

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

Ну в принципе та же самая сортировка, только с нулями. Начинаете просматривать массив допустим с конца, смотрите, если текущий элемент не является нулем, тогда прогоняете его по массиву, т.е. сравниваете поэлементно. Если элемент с которым вы сравниваете ноль, то меняете элементы местами.

--------------------

Мой блог.
Specialist

volvo877

Дата 11.11.2008, 17:46 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(Metalex @ 11.11.2008, 14:01

)

есть одномерный массив, в котором есть числа и нули. Нужно сделать так, чтобы числа просто располагались по порядку (но не упорядочивались), а после них шли нули.

Обычная сортировка, только:

Код

const
  n = 10;
  arr: array[1 .. n] of integer = (
    1, 51, 0, 0, 0, -9, 0, 15, 0, 45
  );

function f(x: integer): integer;
begin
  if x = 0 then f := 0  else f := 1;
end;

var i, j, T: Integer;
begin
  for i := 1 to n do
    write(arr[i]:4);
  writeln;

  for i := 1 to n do
    for j := n downto i + 1 do
      if f(arr[j - 1]) < f(arr[j]) then begin { <--- Сравниваются не сами элементы }
        T := arr[j - 1]; arr[j - 1] := arr[j]; arr[j] := T
      end;

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

Metalex

Дата 11.11.2008, 23:24 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 635
Регистрация: 22.10.2008
Где: Украина-ZPсity

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

volvo877, огромное спасибо. Все получилось. Я бы сам ни за что не догадался бы применить процедуру..

Это сообщение отредактировал(а) Metalex - 11.11.2008, 23:25

--------------------

Don't let the system get you down.

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