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

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

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

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 06.05.2010, 15:59   #1
A11yona
Новичок
Джуниор
 
Регистрация: 06.05.2010
Сообщений: 1
По умолчанию Указатели, паскаль

Помогите, пожалуйта, написать програму:
Описать процедуру, которая удаляет из списка L за каждым вхождением элемента Е один элемент, если такой есчь и он отличен от Е;

{использовать (линейные) однонаправленные списки без заглавного звена или с заглавным звеном при следующем их описании:
type
el_type=...; {тип элементов списка
(уточняемый, если надо, в упражнениях)}
spisok=^zveno;
zveno=record el:el_type; next_el:spisok end;

При этом параметры L, L1 и L2 обозначают списки, а параметры Е, E1 и Е2 -- данные типа el_type, к которым применимы операции присваивания и проверки на равенство.}
A11yona вне форума Ответить с цитированием
Старый 06.05.2010, 16:22   #2
Grag
А может и не...
Участник клуба
 
Аватар для Grag
 
Регистрация: 27.03.2010
Сообщений: 1,269
По умолчанию

Цитата:
Сообщение от A11yona Посмотреть сообщение
Описать процедуру, которая удаляет из списка L за каждым вхождением элемента Е один элемент, если такой есчь и он отличен от Е;
Код:
Type
   pEl= ^Element;
   Element= record
              Dat:byte;
              Next:pEl;
              Prev:pEl
            end;



Procedure DelUz(var ptrTop:pEl);
Begin
    ptrTop^.Prev^.Next:=ptrTop^.Next;
    ptrTop^.Next^.Prev:=ptrTop^.Prev;
    dispose(ptrTop)
End;
Это процедура удаления узла из двусвязного списка...
Перемешивай дело с бездельем и не сойдешь с ума...
Grag вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Указатели Mighty Помощь студентам 1 24.10.2009 18:01
Паскаль.Списки.Указатели. Капелька Паскаль, Turbo Pascal, PascalABC.NET 0 26.05.2009 19:11
[C] массивы, указатели, двойные указатели. Iggel Общие вопросы C/C++ 5 05.05.2009 12:39
Указатели!!!!!!!!!!!!!!! focus888 Паскаль, Turbo Pascal, PascalABC.NET 2 01.05.2009 09:13