VPF::[Object Pascal] Класс двусвязный список

Winchester

Дата 18.2.2010, 00:18 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 10
Регистрация: 6.11.2006

Репутация: нет
Всего: нет

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

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

Код


type
  plist = ^tlist;
  tlist = record
          data : integer;
          next, prev : plist;
  end;

как поступить при ООП, не понимаю...
написать просто в классе как одно из полей данных такую структуру мне кажется неправильным :(

t_gran

Дата 18.2.2010, 03:52 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 621
Регистрация: 13.11.2007
Где: г.Усть-Илимск

Репутация: 33
Всего: 37

Цитата

написать просто в классе как одно из полей данных такую структуру мне кажется неправильным

Почему вы так решили?

Исходя из определения стека - это некий АТД над которым обычно используют следующие действия:
1. MAKENULL(S) - делает стек S пустым;
2. TOP(S) - возвращает элемент из вершины стека S;
3. POP(S) - удаляет элемент из вершины стека S;
4. PUSH(x,S) - вставляет элемент x в вершину S;
5. EMPTY(S) - проверка является ли пустым.

Теперь можно предположить как бы выглядел такой класс:

Код


type
   TStack= class
      private
         stack: plist;
      public
         constructor Create;
         destructor Destroy;
         function Makenull: boolean;
         function Top: integer;
         function Pop: integer;
         procedure Push(x: integer);
         function Empty: boolean;
   end;

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

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »