Нужна помощь в описании класов. контейнер на базе очереди. Опции

[medvedeva]

тема:Объектная реализация контейнера на основе комбинированной структуры «Упорядоченный массив динамических очередей»
есть начало, но его нужно переделать так, чтобы выполнялось след:
- информационные объекты являются квартирами дома с парой свойств Номер и Площадь
- квартиры объединяются в рамках объекта Дом (свойство - НомерДома) на основе динамической очереди
- дома объединяются в рамках объекта Улица (свойство - Название) на основе упорядоченного массива.

Для этой задачи надо спроектировать набор необходимых классов, имена которых, а также имена их свойств и методов должны
соответствовать поставленной задаче.
- в классах ввести методы доступа к закрытым свойствам
- использование динамической версии массива не является обязательным
вот начало:

uses
classes,
SysUtils;

type
T = integer;
TypizFile = file of T; // типизированный файл

TQueueItem = class // класс - элемент очереди
private
Data: T; // мои данные
Next: TQueueItem; // указатель на следующий элемент
private
constructor Create(value: T); // создание элемента очереди
end;

TQueue = class // класс очередь
private
Marker: T; // для метки очередей, для их поиска
First, Last: TQueueItem; // указатели начала и конца

public
constructor Create; // инициализация очереди
destructor Free;
procedure Put(value: T); // добавление элемента
function Get: T; // удаление
procedure Print; // просмотр
function Empty: boolean; // проверка на пустоту

// procedure Save (value: T); //сохранение в файл
// procedure Load (value: T); // загрузка из файла
end;

{Класс TCont обьявляем контейнерным классом}
TCont = class // класс-контейнер
private // свойства
mas: array of TQueue; // динамический массив
procedure Add(theQueue: TQueue);

public
Constructor Create; // создание массива указателей очередей
Procedure Add_main; // добавить новые очереди в контейнер
Procedure Delete_main;
procedure Scan_main;
// procedure Save (value: T); //сохранение контейнера в файл
// procedure Load (value: T); // загрузка из файла
end;


{========================================}
// инициализация элемента
constructor TQueueItem.Create(value: T);
begin
Data := value;
next := nil;
end;

{==========================================}
// инициализация очереди
Constructor TQueue.Create;
begin
first := nil; last := nil; // создаем пустую очередь
end;
// Освобождаем память, которую занимала очередь
destructor TQueue.Free;
begin
while not Empty do Get; // удаляем все элементы
end;

заранее спасибо!

Сообщение отредактировано: Lapp - 29.06.2011 22:04

[Гость]

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

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    
  private
    { Private declarations }
  public
    { Public declarations }
  end;
type
   Apts =
   class
      Number : Integer;
      S : Integer;
   end;

   TQItem = Apts;

   TQueueItem = class
      Data : TQItem;
      next : TQueueItem;
   public
      constructor Create (value : TQItem);
   end;
type
   TQueue = class
   private
      head, tail : TQueueItem;
      fHouse : Integer;

   public

      constructor Create (AHouse : Integer);
      destructor Destroy;override;

      function IsEmpty : boolean;
      function Get : TQItem;
      procedure Put (value : TQItem);

      property House : Integer read fHouse;
   end;
 type
   TContainer = class
   private
      fTitle : string;
      Arr : array of TQueue;
      function GetHouse (index : Integer) : TQueue;
      function GetCount : Integer;

   public
      constructor Create (ATitle : string);
      destructor Destroy;override;

      procedure Add(Q : TQueue);
      property Title : string read fTitle;
      property Count : Integer read GetCount;
      property Houses[index : Integer] : TQueue read GetHouse; default;
   end;


var
  Form1: TForm1;

на что получаю вот что:
1. Описание классов - отдельный модуль (один или несколько)
2. Класс Квартира: это не класс, а какое-то недоразумение!
3. Зачем вводить второе имя: TQItem = Apts;
4. Имена классов, свойств и методов должны быть содержательными: никаких Queue, Container и т.д.
5. Где метод удаления из списка и методы работы с файлами?