Динамические данные. Списки.

[pulsar]

Здравствуйте. Необходима ваща помощь. В институте задали ЛР на тему "Динамические данные. Списки.".
Вот само задание:
Если слово содержит более четырех букв, то удалить из него три буквы, непосредственно предшествующие последней букве слова. Тип списка: однонаправленный.
Совсем не могу понять как решить задание с помощью этих списков. Если не затруднит к коду программы прилагать коментарий=)
Подобной темы не нашел, если пропустил - извинитиляюсь

[Armorer]

Действительно непонятно при чем тут списки=) Может быть в списке хранятся эти слова, по нему надо пройтись и преобразовать все слова по предложенному алгоритму?

Как я понял из вопроса проблем с организацией списка и работой со строками нет, проблема только как применить это.

Если так то:
Сначала просто напиши функцию которая на входе принимает строку, делает

Если слово содержит более четырех букв, то удалить из него три буквы, непосредственно предшествующие последней букве слова.

и возвращает результат.

Останется просто пройти по списку и в каждом элементе преобразовывать строки. Естественно, в начале список лучше заполнить какими нибудь значениями.

[capta1n]

program xd;

type
  link = ^linelink;
  linelink = record
              c : char;
              next : link
             end;

var
 top,p : link;
 str1 : string;
 i : byte;

 procedure create_stack ( var t : link; ch : char );
 begin
   new(t);
   t^.c:=ch;
   t^.next:=nil
 end;

 procedure add_stack ( var t : link; ch : char );
 var
  tp : link;
 begin
   new (tp);
   tp^.c:=ch;
   tp^.next:=t;
   t:=tp
 end;

 procedure delete3 ( var t : link );
 var
  x : link;
 begin
   x:=t^.next;
   t^.next:=t^.next^.next^.next^.next;
   dispose (x^.next^.next);
   dispose (x^.next);
   dispose (x);
 end;

begin
  writeln ('Vvedite stroku: ');
  readln (str1);
  top:=nil;
  if length(str1) > 4 then
  begin
    for i:=1 to length(str1) do
     if top=nil then create_stack ( top, str1[i] )
                else add_stack ( top, str1[i] );
    delete3 ( top );
    p:=top;
    str1:='';
    while p<>nil do
    begin
      str1:=p^.c+str1;
      p:=p^.next
    end
  end;

  writeln ('Vasha novaya stroka: ');
  writeln (str1);
  readln;

end.

В программе вводится строка, если в строке больше 4 букв, то создается стек ( один из видов однонаправленных линейных списков ) на основе букв строки, из него удаляется по условию три предпоследих буквы и стек выводится в строковую переменную;; иначе если в строке не больше 4 букв, то строка просто выводится

[pulsar]

Сообщение от Armorer

Как я понял из вопроса проблем с организацией списка и работой со строками нет, проблема только как применить это.

К сожалению именно организация списка и есть главная проблема =) Однако спасибо за совет.
capta1n, благодарю!

[capta1n]

пожалуйста, только "спасибо" на форуме делается так: нажимаешь на весы под моей аваторкой - вот тебе и благодарность

[pulsar]

Сделано =)

[pulsar]

Ребят, а блок-схему не набросатете?
Ибо в силу своей криворукости, она у мну не получается...