Последние записи

made in programmersforum 7

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

2nd
Май

Связанные списки в Паскаль/Delphi

Posted by Chas under Пост-обзор

Хотелось бы понять как это все работает, поэтому если не сложно объясните плз «для чайника»

Serge_Bliznykov:

вот, примерно как надо (рекомендую разобрать и понять принципы..):

Type

   tp=^el;

   el=record

      slovo:string;

      next:tp;

      prev:tp;

   end;
var

   first, last : tp;
procedure tpInit; { инициализация списка }

begin

  first := nil; last := nil;

end;
procedure Print_forward(start: tp); { процедура печати элементов с первого(начало) }

begin

  if start = nil then writeln('List not init')

  else

  begin

    while (start <> nil) do

    begin

      write(start^.slovo, ' ');

      start := start^.next;

    end;

    WriteLn;

  end;

end;
procedure Print_back(start: tp); { процедура печати элементов с последнего(начало) }

begin

  if start = nil then writeln('List not init')

  else

  begin

    while (start <> nil) do

    begin

      write(start^.slovo, ' ');

      start := start^.prev;

    end;

    WriteLn;

  end;

end;
procedure tpInsert( s : string); {процедура вставки элементов в конец списка(информационная часть) }

var

  p : tp;

begin

  new(p);

  p^.slovo := s;

  p^.next := nil;

  if (first=nil) and (last=nil) {если пустой список} then

  begin

    first := p;

    first^.prev := nil;

  end

  else {список не пуст, добавляем элемент в конец и корректируем указатели}

  begin

    last^.next := p;

    p^.prev := last;

  end;

  last := p;

end;
{тело программы}

begin

   tpInit;

   tpInsert('Hello');

   tpInsert('Crazy');

   tpInsert('World');

   WriteLn('--- печать списка в прямом направлении ---');

   Print_forward(first);

   WriteLn('--- печать списка в обратном направлении ---');

   Print_back(last);

end.