Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






  • Как продвинуть сайт на первые места?
    Вы создали или только планируете создать свой сайт, но не знаете, как продвигать? Продвижение сайта – это не просто процесс, а целый комплекс мероприятий, направленных на увеличение его посещаемости и повышение его позиций в поисковых системах.
    Ускорение продвижения
    Если вам трудно попасть на первые места в поиске самостоятельно, попробуйте технологию Буст, она ускоряет продвижение в десятки раз, а первые результаты появляются уже в течение первых 7 дней. Если ни один запрос у вас не продвинется в Топ10 за месяц, то в SeoHammer за бустер вернут деньги.
  • Сервис онлайн-записи на собственном Telegram-боте
    Тот, кто работает в сфере услуг, знает — без ведения записи клиентов никуда. Мало того, что нужно видеть свое расписание, но и напоминать клиентам о визитах тоже. Нашли самый бюджетный и оптимальный вариант: сервис VisitTime.
    Для новых пользователей первый месяц бесплатно.
    Чат-бот для мастеров и специалистов, который упрощает ведение записей:
    Сам записывает клиентов и напоминает им о визите;
    Персонализирует скидки, чаевые, кэшбэк и предоплаты;
    Увеличивает доходимость и помогает больше зарабатывать;

Удаление объекта, стоящего между соседними элементами списка






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

 

EICut: = List; {устанавливаем указатель на удаляемый элементв начало списка}

while EICut^.Link< > Nil do

begin

if EICut^.Data = Priznak

then

begin

EIPred^.Link: = EICut^.Link;

Disopose(EICut);

 

EICut: = EIPred^.Link

End

Else

Begin

ElPred: = EICut;

EICut: = EICut^.Link

End

End

Удаление последнего элемента списка

При удалении последнего элемента списка в поле ссылки предыдущего элемента заносится значение Nil, связь между последним и предпоследним элементами списка разрывается.

 

EIEnd: = List; {устанавливаем указатель последнего элемента списка}

 

while EIEnd^.Link < > Nil do {пока не достигнут конец списка}

Begin

ElPred: = ElEnd; {перемещение предыдущего элемента

на следующую позицию}

ElEnd: = ElEnd^.Link; {перемещение удаляемого элемента

на следующую позицию}

End;

ElPred^. Link: = Nil; {установка предыдущего элемента последним}
Dispose(EIEnd); {удаление последнего элемента}






© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.