Форум программистов
 
О проблемах, например, с регистрацией пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль.

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

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


Ответ
 
Опции темы
Старый 20.11.2010, 01:52   #1
svt
 
Регистрация: 07.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 в 17:44.
svt вне форума Ответить с цитированием
Старый 20.11.2010, 09:22   #2
Sibedir
Тот ещё
Старожил
 
Аватар для Sibedir
 
Регистрация: 14.11.2007
Сообщений: 2,261
По умолчанию

Добавление после последнего
Код:
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 в 09:28.
Sibedir вне форума Ответить с цитированием
Ответ

Здесь нужно купить рекламу за 20 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru
Без учёта ботов - 20000 человек в день, 350000 в месяц.

Опции темы


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Задача на линейные списки 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 22:20


Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru
Пеллетный котёл Emtas
котлы EMTAS