Создать двусвязанное кольцо, содержащее информацию о графических маркерах.

[Keyx]

Уважаемые программисты! Помогите плиз решить задачку, бьюсь над ней целый день...


Создать двусвязанное кольцо, содержащее информацию о графических маркерах. Каждый эле-мент кольца – запись (координаты, цвет, тип маркера). Нарисовать все маркеры на экране, затем удалить из кольца все элементы, содержащие информацию о красных маркерах, очистить экран и снова нарисовать все маркеры, информация о которых осталась в кольце.

Заранее всем спасибо!!!

[Kostia]

Вам осталось всего-то разобраться в коде, дописать удаление, очистку и вставку элементов списка))) И проверить код на ошибки... Удачи=)

type
  Marker = record
    color: integer;
    x,y: integer;
    tip: integer;
end;
type
  PElem = ^TElem;
  TElem = record
    next, prev: PElem;
    data: Marker;
end;
type
  TList = record
    head, tail: PElem;
end;

procedure Add(var list: TList; data: Marker);
var
  Elem: PElem;
begin
  getmem(Elem, sizeof(TElem));
  Elem^.data := data;
  if(list.tail = nil)then
  begin
    Elem^.next := Elem;
    Elem^.prev := Elem;
  end
  else
  begin
    Elem^.next := list.head;
    Elem^.prev := list.tail;
    list.tail^.next := Elem;
  end;
  if(list.head = nil) then list.head := Elem;
  list.head^.prev := Elem;
  list.tail := Elem;
end;

function Find(var list: TList; i: integer): PElem;
var
  Elem: PElem;
  j: integer;
begin
  Elem := list.head;
  for j:=2 to i do
    Elem := Elem^.next;
  Result := Elem;
end;

function Get(var list: TList; i: integer): Marker;
var
  Elem: PElem;
begin
  Elem := Find(list, i);
  Result := Elem^.data;
end;

var
  list: TList;
  m, mm: Marker;
begin
  list.head := nil;
  list.tail := nil;
  
  m.color := 5;
  m.x := 100; m.y:= 500;
  m.tip := 1;
  
  mm.color := 8;
  mm.x := 300; m.y:= 200;
  mm.tip := 2;

  Add(list, m);
  Add(list, mm);
  
  mm := Get(list, 1);
  m := Get(list, 2);
  
  writeln(m.color,' ',mm.color);
  readln;
end.