Динамические структуры данных

@hate_man · Регистрация: 20.02.2013

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

Даны две очереди целых чисел. Создать дек из элементов очередей следующим образом: записывать в начало дека все отрицательные элементы, в конец – все положительные. Вывести очередь на экран.

HighPredator · 26.02.2013, 12:58

А нули куда?

@hate_man · 26.02.2013, 17:08 **[ТС]**

нули отнести к положительным числам

HighPredator · 26.02.2013, 18:02

Pascal

type
  PTwoWayList=^TTwoWayList;
  TTwoWayList=record
    data:integer;
    prev:PTwoWayList;
    next:PTwoWayList;
  end;
 
procedure Add(const Item:integer; var pBegin,pEnd:PTwoWayList);
var
  p:PTwoWayList;
begin
  New(p);
  p^.data:=Item;
  if pBegin=nil then
    begin
      p^.prev:=nil;
      p^.next:=nil;
      pBegin:=p;
      pEnd:=p;
    end
  else
    begin
      if Item>=0 then
        begin
          pBegin^.prev:=p;
          p^.prev:=nil;
          p^.next:=pBegin;
          pBegin:=p;
        end
      else
        begin
          pEnd^.next:=p;
          p^.next:=nil;
          p^.prev:=pEnd;
          pEnd:=p;
        end;
    end;
end;

@hate_man 0 / 0 / 0 Регистрация: 20.02.2013 Сообщений: 5
		1
	Динамические структуры данных 25.02.2013, 18:32. Показов 612. Ответов 3 Метки нет (Все метки) Даны две очереди целых чисел. Создать дек из элементов очередей следующим образом: записывать в начало дека все отрицательные элементы, в конец – все положительные. Вывести очередь на экран. 0

HighPredator 6044 / 2159 / 753 Регистрация: 10.12.2010 Сообщений: 6,005 Записей в блоге: 3
	26.02.2013, 12:58	2
	А нули куда? 0

@hate_man 0 / 0 / 0 Регистрация: 20.02.2013 Сообщений: 5
	26.02.2013, 17:08 [ТС]	3
	нули отнести к положительным числам 0

Опции темы