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

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

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


Донат для форума - использовать для поднятия настроения себе и модераторам

А ещё здесь можно купить рекламу за 15 тыс руб в месяц! ) пишите сюда - alarforum@yandex.ru

Ответ
 
Опции темы
Старый 20.11.2010, 01:52   #1
svt
 
Регистрация: 07.11.2009
Сообщений: 6
Репутация: 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,260
Репутация: 931
По умолчанию

Добавление после последнего
Код:

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 вне форума   Ответить с цитированием
Ответ

Опции темы

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

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.

Быстрый переход

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


19:53.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.

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