Массив: переставить элементы таким образом, чтобы сначала были записаны все положительные, затем все отрицательные, а потом все нули.

@Наташа1 · Регистрация: 21.04.2012

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

Здравствуйте! помогите пожалуйста с задачей по информатике. Буду очень благодарна)

В массиве из вещественных чисел переставить элементы таким образом, чтобы сначала были записаны все положительные, затем все отрицательные, а потом все нули.

@Akcent2 · 22.04.2012, 12:27

массив самому вводить надо?

@Наташа1 · 22.04.2012, 13:19 **[ТС]**

Да, желательно самому

@olegoner · 22.04.2012, 19:06

Перестановка в массиве
Мне представляется такой алгоритм:Код Delphi

Delphi

     
var
a: array of real;
ms:integer; //размер заполненой части массива
n:integer; //позиция вставки для нуля
o:integer//позиция вставки для отрицательного числа
i,j:integer; //переменная для цикла
k:real;//переменная для перемещения
begin
   n:=ms+1;
   k:=n;
   while i<>o do
   begin
      if a[i]=0 then
      begin
          k=a[i];
          for j:=i to n-2
               a[j]=a[j+1]; //смещение в массиве
          a[n-1]:=k;
          n:=n-1;
          o:=o-1;
      end;
 
      if a[i]<0 then
      begin
          k=a[i];
          for j:=i to o-2
               a[j]=a[j+1]; //смещение в массиве
          a[o-1]:=k;
          o:=o-1;
      end;
      if a[i]>0 then i:=i+1;
 
   end;
end;

проверь - должно работать, хотя сам не проверял, возможны ошибки

@Наташа1 0 / 0 / 0 Регистрация: 21.04.2012 Сообщений: 18
		1
	Массив: переставить элементы таким образом, чтобы сначала были записаны все положительные, затем все отрицательные, а потом все нули. 22.04.2012, 10:55. Показов 2884. Ответов 3 Метки нет (Все метки) Здравствуйте! помогите пожалуйста с задачей по информатике. Буду очень благодарна) В массиве из вещественных чисел переставить элементы таким образом, чтобы сначала были записаны все положительные, затем все отрицательные, а потом все нули. 0

@Akcent2 18 / 18 / 14 Регистрация: 27.11.2011 Сообщений: 51
	22.04.2012, 12:27	2
	массив самому вводить надо? 0

@Наташа1 0 / 0 / 0 Регистрация: 21.04.2012 Сообщений: 18
	22.04.2012, 13:19 [ТС]	3
	Да, желательно самому 0

	22.04.2012, 19:06

Опции темы