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

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

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 20.11.2010, 00:52   #1
svt
 
Регистрация: 06.11.2009
Сообщений: 6
По умолчанию Линейные списки

Здравствуйте, очень нужна помощь по работе с линейными списками. (20 ноября нужно уже сдать)

Мне нужно
Удаление: последнего, предпоследнего, второго

Добавление: После последнего, перед последним, после первого.

Т.е к примеру вот есть
Код:
Type
   Data:=byte;
   D:=^Element;
    Element:=Record;
      D:Data;
      Next:head;
end;
Нужна не сама программа, а именнно кусочки кода с действиями (описаны выше) к этому списку(описан выше)

К примеру удаление последнего элемента списка
Код:
 While q^.Next <> Nil do
                                    Begin
                                        T := q;
                                        q:=q^.Next;
                                    end;
                               
                                dispose  (q);
                                t^.next := nil;

Последний раз редактировалось Stilet; 20.11.2010 в 16:44.
svt вне форума Ответить с цитированием
Старый 20.11.2010, 08:22   #2
Sibedir
Тот ещё
Старожил
 
Аватар для Sibedir
 
Регистрация: 14.11.2007
Сообщений: 2,281
По умолчанию

Добавление после последнего
Код:
while q^.Next <> nil do
  q := q^.Next;
q^.Next := New;
Добавление перед последним
Код:
while q^.Next <> nil do begin
  t := q;
  q := q^.Next;
end;

New^.Next := q;
t^.Next := New;
Добавление после первого.
Код:
New^.Next := First^.Next;
First^.Next := New;
Если, конечно, уже не поздно.

Последний раз редактировалось Sibedir; 20.11.2010 в 08:28.
Sibedir вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача на линейные списки Ser Паскаль, Turbo Pascal, PascalABC.NET 8 06.05.2011 20:22
Линейные списки Dead Romantic Помощь студентам 0 30.05.2010 21:35
Линейные списки Rusl92 Паскаль, Turbo Pascal, PascalABC.NET 3 26.04.2010 09:24
Линейные списки ManU Помощь студентам 1 03.11.2008 21:20