Помощь - Поиск - Пользователи - Календарь
Полная версия: программу для работы со структурой данных
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Aliosha
на Паскале:

1) написать программу для работы со структурой данных "кольцевой двусвязный список"
2) структура данных должна быть реализована на основе статических массивов
3) работы со структурой должны осуществляться с помощью текстового пользовательского меню

написал,но вот не могу сделать кольцевой двусвязный список
Федосеев Павел
Читаем топик:
Цитата
2) структура данных должна быть реализована на основе статических массивов

А также приложенный файл:
Цитата
type
Tinf=integer;
List=^TList;
TList=record
data:TInf;
next,prev:List;
end;

И все это сравниваем с
Цитата
написал,но вот не могу сделать кольцевой двусвязный список

Где шаблон рвётся?
Федосеев Павел
структура для кольцевого двунаправленного списка будет
  TBDRing=record
Storage: array [1..100] of integer;
RingSize: integer;
Current: integer;
end;

Получить текущий элемент
procedure GetItem (var R: TBDRing; var Info: integer);
begin
with R do
Info:=Storage[Current];
end;
очистить всё
procedure EraseAll (var R: TBDRing);
begin
R.RingSize:=0;
end;

Ну, а дальше сам попробуй.
Нужны ещё процедуры
- вставки нового элемента в текущую позицию
- удаление элемента в текущей позиции
- создания пустого списка
- перемещения по списку вперёд и назад
- на основе перемещения от 1 до RingSize печать всех элментов
Что не получиться - спрашивай.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.