Разработайте класс, реализующий линейный двусвязный список

[Аким Ба]

Разработайте класс, реализующий линейный двусвязный список. Методы класса: вставка элемента после n-го элемента списка, просмотр списка в прямом и обратном направлении, удаление трех элементов списка, средний из которых имеет номер n. Поля записей: фамилия абитуриента, номер оконченной им школы, наличие медали, средний балл, полученный на вступительных экзаменах.

[Pein95]

мда... наглость просто прет...

[Аким Ба]

А в чем именно моя наглость?

Вроде все указал правильно, в пределах нормы!)

Или в том, что раз я новенький, то мне не следует спрашивать о помощи сразу с таких задач?
Некие знания у меня имеются, но с данной задачей возникли проблемы вот и все..

[Serge_Bliznykov]

то мне не следует спрашивать о помощи сразу с таких задач?

ткните пальцем в Ваш пост, где Вы просите помощи?...
и вежливости Вас совсем не учили?

это по первому вопросу.

теперь о создании класса...
Помощь предполагает, что Вы что-то делаете и то, что у Вас не получается, Вам подсказывают, как это правильно сделать..
А не означает, что сделают всё за Вас!
ну и последнее.
рекомендую сходит в поиск по форуму, поискать похожие задания, решения, попытаться разобраться и что-то сделать.

Успехов в учёбе.

[Вадим Мошев]

Сообщение от Аким Ба

А в чем именно моя наглость?

Вроде все указал правильно, в пределах нормы!)

Или в том, что раз я новенький, то мне не следует спрашивать о помощи сразу с таких задач?
Некие знания у меня имеются, но с данной задачей возникли проблемы вот и все..

Просто так приходите и сразу выкладываете условие вашей задачи. Советую:
1. В начале здороваться.
2. Писать о том, что хотели бы попросить помощи.
3. Заранее поблагодарить за ответ.
Это минимум.

[MooNDeaR]

Вообще не плохо было бы до регистрации зайти
Вот сюда.
И вот сюда

Вторая ссылка как-то более говорящая

[Аким Ба]

Давайте не будем ругаться))

Просто прочитав как составлять темы, я не стал писать слова "Помогите" и т.д., так как это было бы не правильно!

Если после условия можно писать в чем суть проблемы и что конкретно нужно помочь или уточнить, то этого я не понял.Косяк!

Проблема в том, что мы не изучали списков. Как односвязных так и двусвязных, и я не могу понять с чего начать...
Какая литература есть, она не поясняет сути этой темы..

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

[Вадим Мошев]

У меня есть готовый код для работы для работы с ОДНОНАПРАВЛЕННЫМ списком, но там нет операции вставки элемента после i-го. Могу им поделиться, а дальше вам надо будет думать самому.

Проблема в том, что мы не изучали списков.

Вы учитесь в начале августа? Откуда у вас это задание? Если его дали перед началом лета, то почему не не обратились за помощью раньше?

[Аким Ба]

Если дадите, буду признателен!)

Задание получил в конце июня, июль отдыхал..сейчас начал что то делать)

[Serge_Bliznykov]

Аким Ба,
сходите в тему "Паскаль... Двухсвязный список !!!"
в этой теме есть ссылки на другие похожие темы/примеры...

а вообще примеров создания на Паскаль обычных двухсвязных списков много.
Вот примера с обёрткой это в класс я не нашёл (думаю, что просто плохо искал),но в любом случае, это можно и самому дописать...


вот, набросал простенький пример...

{ класс, реализующий линейный двухсвязный список }

type
  PList = ^TList;
  TList = record
    inf  : integer;
    prior: PList;
    next : PList
  end;

  TListDual = object
  private
    pfirst, plast : PList;
  public
    constructor Init;
    destructor RemoveList;
    procedure Print_forward;
    procedure Print_back;
    procedure Insert( NewInf : integer);
  end;

constructor TListDual.Init; {инициализация списка }
begin
  pfirst := nil; plast := nil;
end;


destructor TListDual.RemoveList; {уничтожение списка}
var
  q: Plist;
begin
  if pfirst = nil then writeln('List not init')
  else
  begin
    while pfirst <> nil do
    begin
      q := pfirst;
      pfirst := pfirst^.next;
      dispose(q);
    end;
  end;
  plast := nil;
end;

procedure TListDual.Print_forward; { процедура печати элементов с первого(начало) }
var start : PList;
begin
  if pfirst = nil then writeln('List not init')
  else
  begin
    start := pfirst;
    while (start <> nil) do
    begin
      write(start^.inf, ' ');
      start := start^.next;
    end;
    WriteLn;
  end;
end;

procedure TListDual.Print_back; { процедура печати элементов с последнего(начало) }
var last : PList;
begin
  if plast = nil then writeln('List not init')
  else
  begin
    last := plast;
    while (last <> nil) do
    begin
      write(last^.inf, ' ');
      last := last^.prior;
    end;
    WriteLn;
  end;
end;


procedure TListDual.Insert( NewInf : integer); {процедура вставки элементов в конец списка(информационная часть) }
var
  p : PList;
begin
  new(p);
  p^.inf := NewInf;
  p^.next := nil;
  if (pfirst=nil) and (plast=nil) {если пустой список} then
  begin
    pfirst := p;
    pfirst^.prior := nil;
  end
  else {список не пуст, добавляем элемент в конец и корректируем указатели}
  begin
    plast^.next := p;
    p^.prior := plast;
  end;
  plast := p;
end;



{тело программы}
var 
  List1 : TListDual;
begin
   List1.Init;
   List1.Insert(2);
   List1.Insert(3);
   List1.Insert(5);
   List1.Insert(7);
   WriteLn('--- печать списка в прямом направлении ---');
   List1.Print_forward;
   WriteLn('--- печать списка в обратном направлении ---');
   List1.Print_back;

   {уничтожим список}
   List1.RemoveList;


   Readln; {ожидаем Enter, }
end.