Двусвязный список в виде класса Опции

[Rei-li]

Здравствуйте.
Проверьте, пожалуйста, правильно ли выполнено задание:
Реализуйте заданную структуру данных (двусвязный список целых чисел) в виде класса (набора классов).
Не используйте стандартные классы .NET для представления коллекций ( разрешается использование только массивов).

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

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;

begin
  { TODO -oUser -cConsole Main : Insert code here }
end.

[IUnknown]

Значит, сделай так:

program Project2;
{$APPTYPE CONSOLE}
uses
   SysUtils;

type
   TList = class
      inf  : integer;
      prior: TList;
      next : TList;

      constructor Create(AInf : Integer;
                         APrev, ANext : TList);
   end;

   TListDual = class
   private
      pfirst, plast : TList;
   public
      constructor Create;
      destructor Destroy; override;

      procedure Print_forward;
      procedure Print_back;
      procedure Insert(NewInf : integer);

      function IsEmpty : Boolean;
   end;

constructor TList.Create(AInf : Integer;
                         APrev, ANext : TList);
begin
   Inf := AInf;
   Prior := APrev; Next := ANext;
end;

constructor TListDual.Create;
begin
   pfirst := nil; plast := nil;
end;

function TListDual.IsEmpty : Boolean;
begin
   Result := (pFirst = nil);
end;

destructor TListDual.Destroy;
var q : Tlist;
begin
   if IsEmpty then writeln('List not init')
   else
   begin
      while not IsEmpty do
      begin
         q := pfirst;
         pfirst := pfirst.next;
         q.Free;
    end;
  end;
  plast := nil;
  inherited;
end;

procedure TListDual.Print_forward;
var start : TList;
begin
   if IsEmpty 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 : TList;
begin
   if IsEmpty 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 : TList;
begin
   P := TList.Create(NewInf, PLast, nil);
   if IsEmpty then
      pfirst := P
   else
      plast.next := p;

   plast := P;
end;

var
   L : TListDual;
   i : Integer;
begin
  L := TListDual.Create;
  for i := 1 to 10 do
  begin
     L.Insert(i);
  end;
  L.Print_Back;
  L.Print_Forward;
  L.Free;
end.

- будет тебе в виде набора классов. Проверял в FPC, вроде работает, утечек не дает... Что непонятно в реализации - спрашивай.

Сообщение отредактировано: IUnknown - 20.09.2011 23:14