Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 17.04.2014, 18:09   #1
NoviceYola
Пользователь
 
Регистрация: 09.11.2013
Сообщений: 19
По умолчанию Работа со списками

Ситуация такая: список,состоящий из целых чисел я сформировал,а вот мне еще необходимо сделать следующее,где я и затрудняюсь...нужно
расположить в начале списка отрицательные элементы,а потом неотрицательные. Порядок отрицательных должен оставаться первоначальным,а неотрицательных должен быть обратным первоначальному порядку)

Код:
uses crt;
  type List=^node;
      node=record
      info:integer;
      next:list;
  end;
   var L:list;
       elem, i, n:integer;
       b: boolean;
 
   procedure form(elem:integer; var L:list);
    var N, P:list;
 begin
  New(N); N^.info:=elem; N^.next:=nil;
    if L=nil then L:=N else
      begin
      p:=L;
       while p^.next<>nil do p:=p^.next;
        p^.next:=N;
       end;
    end;
 
 procedure print(L:list);
   begin
   write('--> ');
    while L<>nil do begin
     write(L^.info,' ');
     L:=L^.next;
    end;
  writeln('<--');
  end;
 
 begin
  write('Кол-во элементов= '); readln(n);
    L:=nil;
    for i:=1 to n do
    form(-random(50),L);
    print(L);
end.
NoviceYola вне форума Ответить с цитированием
Старый 18.04.2014, 11:44   #2
AnryKZKZ
Пользователь
 
Регистрация: 15.04.2014
Сообщений: 62
По умолчанию

Не совсем понятно - зачем использовать указатели. И потом - для сортировки отлично подходит "пузырьковый метод"...
AnryKZKZ вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Работа со списками iCaesy Паскаль, Turbo Pascal, PascalABC.NET 2 29.09.2013 13:53
Работа со списками vladis222 Общие вопросы Delphi 1 28.11.2012 12:49
Работа со списками C# Serg94 Помощь студентам 4 04.05.2012 22:29
Работа со списками Kumigy Помощь студентам 1 23.12.2010 16:24
Работа со списками. radist Паскаль, Turbo Pascal, PascalABC.NET 4 07.05.2007 00:05