Работа со списками, в поиске нашел не все что надо Опции

[chessman]

Задача:
1)Построить список из элементов,которые вводятся с клавиатуры графически.
2)Удалить определенный элемент и изобразить новый список графически.
3)Вставить заданный элемент в начало(в конец) списка и изобразить новый список графически.
Помогите пожалуйста с задачей или с материалом по теме.

[Romtek]

что значит "графически"?

[chessman]

что значит "графически"?

Это значит : первый элемент-стрелочка-второй элемент...

[volvo]

в поиске нашел не все что надо

, а доработать процедуру вывода списка, чтобы она вместо пробела печатала "стрелочку", никак нельзя? Ну поймите же наконец, нельзя написать вывод, который подойдет для ВСЕХ: кому-то нужна "стрелочка", кому-то - "тире", а кому-то и ">>>" подходит... Поэтому и оставили в процедуре вывода пробелы. Замените их на "стрелочки" и пользуйтесь. Вот пример:

{ это - то что есть сейчас: }
procedure tlist.print;
  var p: ptitem;
  begin
    p := first;
    write('(list) <');
    while assigned(p) do
      begin
        write(p^.info, ' ');
        p := p^.next
      end;
    writeln('>')
  end;

{ а вот на это можно заменить: }
procedure tlist.print;
  var p: ptitem;
  begin
    p := first;
    while assigned(p) do
      begin
        write(p^.info, ' --> ');
        p := p^.next
      end;
    writeln
  end;

Очень много изменений?

[chessman]

Спасибо,но это только 1 пункт...

[volvo]

А остальное - здесь: FAQ: ООП (списки) :yes: