программу для работы со структурой данных, срочно до завтра( Опции

[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 печать всех элментов
Что не получиться - спрашивай.