Форум на Исходниках.RU

Очередь на основе односвязного кольцевого списка

kotmatroskin55 — Thu, 24 Jan 2013 06:30:41 +0000

kotmatroskin55: На всякий случай решил выложить. Может кому сгодится, ну или появится желание покритиковать. Эту задачу я сдал. 1 курс матфака ОмГУ
очередь.rar (, : 126)

Очередь на основе односвязного кольцевого списка

kotmatroskin55 — Thu, 04 Oct 2012 10:27:48 +0000

kotmatroskin55: Всем спасибо. Вопрос решен

Очередь на основе односвязного кольцевого списка

kotmatroskin55 — Fri, 08 Jun 2012 10:34:39 +0000

kotmatroskin55: кажись разобрался,осталось доделать процедуру сравнения,но это уже мелочи

Очередь на основе односвязного кольцевого списка

volvo877 — Fri, 08 Jun 2012 09:34:59 +0000

volvo877: Знаешь, я второй раз то же самое писать не буду - перечитай мои посты выше и переделай алгоритм, потом будем продолжать. Этот код неверный.

Очередь на основе односвязного кольцевого списка

kotmatroskin55 — Fri, 08 Jun 2012 09:31:41 +0000

kotmatroskin55: попробовал - ничего хорошего не выходит,пишет пустая очередь

procedure Queue.change(qu1,qu2:Queue;var qu_rez:Queue);

var

p:L1_List;

x,y:TElem;

begin

while not lst.IsEmpty do

begin

x:=qu1.get_que;

y:=qu2.get_que;

if x>=y then

begin

qu_rez.put_que(x);

qu_rez.put_que(y);

end

else

begin

qu_rez.put_que(y);

qu_rez.put_que(x);

end;

Очередь на основе односвязного кольцевого списка

volvo877 — Fri, 08 Jun 2012 09:08:00 +0000

volvo877: Обычно у списка есть готовый метод, проверяющий его на пустоту. У тебя в первом сообщении он назывался IsEmptyList, у меня в №15 - IsEmpty. Вот его и вызывай для проверки.

Очередь на основе односвязного кольцевого списка

kotmatroskin55 — Fri, 08 Jun 2012 08:39:52 +0000

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

while lst.head<>nil do

Очередь на основе односвязного кольцевого списка

volvo877 — Fri, 08 Jun 2012 05:12:30 +0000

volvo877:

Цитата kotmatroskin55 @ 08.06.12, 04:35

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

Это неправильное предположение. Цикл должен быть до тех пор, пока ОДНА из очередей не станет пустой. Как только одна очередь пустая - выходишь из цикла и потом просто дописываешь в очередь-результат содержимое непустой очереди. Это было первое. Второе: не надо сразу писать и X и Y в очередь-результат. Иначе при вот таких данных:

1: <1, 2, 6, 8>
2: <5, 7>
ты получишь неправильный результат: у тебя первые 2 элемента первой очереди меньше, чем первый элемент второй (а твой алгоритм запишет 1, 5 в результирующую очередь), поэтому надо писать в qu_rez только МЕНЬШЕЕ из значений. Идею понимаешь? :)

Очередь на основе односвязного кольцевого списка

kotmatroskin55 — Fri, 08 Jun 2012 04:35:49 +0000

kotmatroskin55: Наверное последний вопрос в этой теме: написал процедуру обработки,которая решает поставленную задачу,все робит,только не могу сообразить как правильно организовать цикл. Подскажите пожалуйста. :wall: :wall: :wall: :wall: :wall: вот код:

procedure Queue.change(qu1,qu2:Queue;var qu_rez:Queue);

var

p:L1_List;

x,y:TElem;

begin//вот здесь должен быть цикл,типа пока обе очереди не станут пустыми

x:=qu1.get_que;

y:=qu2.get_que;

if x>=y then

begin

qu_rez.put_que(x);

qu_rez.put_que(y);

end

else

begin

qu_rez.put_que(y);

qu_rez.put_que(x);

end;

Очередь на основе односвязного кольцевого списка

kotmatroskin55 — Wed, 06 Jun 2012 14:11:04 +0000

kotmatroskin55: И еще один вопросик: как организовать обработку ошибок с помощью маски?,честно говоря не понял вообще

Очередь на основе односвязного кольцевого списка

Vesper — Wed, 06 Jun 2012 08:09:13 +0000

Vesper: RTFM: тут, и на лекциях должны рассказывать. Вкратце: public доступен откуда хочешь, private доступен только из методов самого класса и больше ниоткуда, protected еще доступен из методов потомков класса, если они есть. И ругается именно поэтому, head в твоем L1_List не паблик, а достать хочешь из не связанного никак Queue.

Очередь на основе односвязного кольцевого списка

kotmatroskin55 — Wed, 06 Jun 2012 07:51:37 +0000

kotmatroskin55: еще два вопроса:
1. чем отличается "private" от "protected";
2. и еще компилятор страшно ругается вот на это:

function Queue.Get_Que:TElem;//взять элемент из очереди

begin

if Lst.IsEmpty then

begin

end

else

begin

Get_Que := Lst.head^.data;

Lst.RemoveAt (Lst.head);

end;

вот так: Error: identifier idents no member "head"

Очередь на основе односвязного кольцевого списка

kotmatroskin55 — Tue, 05 Jun 2012 14:16:57 +0000

kotmatroskin55:

Цитата Vesper @ 05.06.12, 12:37

Цитата volvo877 @ 05.06.12, 12:24

А ты знаешь, агрегацию тоже никто не отменял

вопрос:получается те процедуры,что я написал - неправильные или как?

Добавлено 05.06.12, 14:23
Извини,сам понял, что вопрос предельно глупый

Очередь на основе односвязного кольцевого списка

kotmatroskin55 — Tue, 05 Jun 2012 12:55:33 +0000

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

Очередь на основе односвязного кольцевого списка

volvo877 — Tue, 05 Jun 2012 12:24:32 +0000

volvo877:

Цитата kotmatroskin55 @ 05.06.12, 10:31

Кстати,мне сказали,что наследование использовать нельзя: "Вы еще до этого не доросли"

А ты знаешь, агрегацию тоже никто не отменял:

type

TQueue =

object

private

Lst : TList;

public

constructor Create;

destructor Destroy; virtual;

procedure Put (X : TItem);

function Get : TItem;

procedure Print;

end;

// ...

constructor TQueue.Create;

begin

Lst.Create;

end;

destructor TQueue.Destroy;

begin

Lst.Destroy;

end;

procedure TQueue.Put (X : TItem);

begin

Lst.Append (X);

end;

function TQueue.Get : TItem;

var T : Link;

begin

if Lst.IsEmpty then WriteLn('<>')

else

begin

Get := Lst.head^.data;

Lst.RemoveAt (Lst.head);

end;

procedure TQueue.Print;

begin

Lst.Print;

end;

, остальная часть программы не меняется. Наследования нет, функционал абсолютно такой же, как и при наследовании. :)

Очередь на основе односвязного кольцевого списка

kotmatroskin55 — Tue, 05 Jun 2012 10:31:21 +0000

kotmatroskin55: понял,благодарю. Кстати,мне сказали,что наследование использовать нельзя: "Вы еще до этого не доросли". Сейчас попробую разобраться.

Очередь на основе односвязного кольцевого списка

volvo877 — Tue, 05 Jun 2012 09:05:12 +0000

volvo877:

Цитата kotmatroskin55 @ 05.06.12, 06:44

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

Ты написал процедуры НЕ на основе односвязного списка, а отдельные. Наследование у тебя тут - никаким боком не используется. Если б ты не тратил лишнее время (и память, кстати, тоже) на работу с этим на фиг никому не нужным заглавным звеном (великое, блин счастье, выделить память под пустой элемент, а потом везде в программе обходить разложенные этим простым и незатейливым действием фугасы, которые могут в любой момент рвануть так, что мало не покажется) - то все было бы просто до безобразия:

// Модуль:

// (недостающие методы реализуешь сам, они для решения текущей задачи не важны)

unit L;

interface

type

TItem = Integer;

Link = ^Node;

Node =

record

data : TItem;

next : Link;

end;

TList =

object

protected

head, tail : Link;

public

constructor Create;

destructor Destroy; virtual;

procedure Append (X : TItem); // to the end

procedure Insert (X : TItem); // to the beginning

procedure InsertAfter (p : Link; X : TItem); // insert X after p^

function Find (x : TItem) : Link;

procedure RemoveAt (p : Link);

function IsEmpty : boolean;

procedure Print;

// ...

end;

TQueue =

object (TList)

constructor Create;

destructor Destroy; virtual;

procedure Put (X : TItem);

function Get : TItem;

end;

implementation

constructor TList.Create;

begin

head := nil;

tail := nil;

end;

destructor TList.Destroy;

var p : Link;

begin

while head <> nil do

begin

p := head;

head := head^.next;

dispose(p);

end;

procedure TList.Append (X : TItem); // to the end

var p : Link;

begin

new(p);

p^.next := nil;

p^.data := X;

if IsEmpty then

head := p

else

tail^.next := p;

tail := p;

end;

procedure TList.Insert (X : TItem); // to the beginning

var p : Link;

begin

new(p);

p^.next := head;

p^.data := X;

if IsEmpty then

tail := p;

head := p;

end;

procedure TList.InsertAfter (p : Link; X : TItem); // insert X after p^

begin

end;

function TList.Find (x : TItem) : Link;

begin

end;

function TList.IsEmpty : boolean;

begin

IsEmpty := head = nil;

end;

procedure TList.RemoveAt (p : Link);

var pp : Link;

begin

if p = head then

begin

pp := head;

head := head^.next;

dispose(pp);

if head = nil then

tail := nil;

end

else

begin

pp := head;

while (pp^.next <> nil) and (pp^.next <> p) do

pp := pp^.next;

if Assigned (pp) then // found

begin

pp^.next := p^.next;

dispose(p);

end;

procedure TList.Print;

var p : Link;

begin

p := head;

write('<');

while p <> nil do

begin

write (p^.data:3);

p := p^.next;

end;

writeln('>');

end;

constructor TQueue.Create;

begin

inherited;

end;

destructor TQueue.Destroy;

begin

inherited;

end;

procedure TQueue.Put (X : TItem);

begin

Append (X);

end;

function TQueue.Get : TItem;

var T : Link;

begin

if IsEmpty then WriteLn('<>')

else

begin

Get := head^.data;

RemoveAt (head);

end;

end.

// тестовая программа:

uses crt, L;

var

i : Integer;

x : TItem;

q : TQueue;

ls : tlist;

begin

ls.Create;

for i := 1 to 10 do

begin

ls.Insert(2 * i);

end;

ls.Print;

ls.Destroy;

q.Create;

for i := 1 to 10 do

begin

q.Put(i);

end;

q.Print;

writeln(q.Get);

q.Print;

q.Destroy;

readln;

end.

Очередь на основе односвязного кольцевого списка

Vesper — Tue, 05 Jun 2012 08:21:52 +0000

Vesper: Если тебе позарез нужны методы L1_List, нужно использовать Que как объект, одним из элементов которого является список как структура данных. Тогда метод Put будет реализован через AddElem(хвост) и смещение хвоста, а Get (как из начала очереди) через удаление головы.

Очередь на основе односвязного кольцевого списка

kotmatroskin55 — Tue, 05 Jun 2012 08:03:23 +0000

kotmatroskin55: и еще вопросик:как с помощью методов для списка создавать очередь, если они идут как бы сами по себе,т.е. от методов L1_List не особо зависят. чего-то я не совсем в теме-литературы море перекопал,но толку пока не очень.

Очередь на основе односвязного кольцевого списка

Vesper — Tue, 05 Jun 2012 06:53:51 +0000

Vesper:

Цитата kotmatroskin55 @ 05.06.12, 06:44

Вопрос: позволит ли мне паскаль хранить в памяти несколько очередей?

В динамической памяти может поместиться довольно много объектов для такой задачи. Считай, что позволит, и из этого пиши дальше. На всякий случай можешь посмотреть результат функции MemAvail до и во время выполнения программы, чтобы оценить максимальную длину очередей.

Очередь на основе односвязного кольцевого списка

kotmatroskin55 — Tue, 05 Jun 2012 06:44:52 +0000

kotmatroskin55: написал процедуры для работы с очередью на основе односвязного списка.
вроде вот так как-то:

unit L1_sp;

interface

uses crt;

type

TElem=integer;

TFile=file of TElem;

Link=^ListElem;

ListElem=record

Data:TElem;

next:Link;

end;

TQueue = record // структура для реализации очереди

first: Link; // указатель, указывает на первый элемент очереди

last: Link; // указатель, указывает на последний элемент очереди

end;

L1_List=object

private

head:Link;//голова

Temp:Link;//указатель на следующий элемент

//err_code:word;

public

constructor CreateList;//создание списка

constructor CopyList(var List:L1_List);//копирование

destructor Destroy_List;//удаление с очисткой памяти

procedure ClearList;//очистка текущуго списка

function IsEmptyList:boolean;//пустой ли список

procedure PutTempForvard;//вправо

procedure InBegin;//в начало

//function IsTempLast:boolean;

procedure PutElem(var x:TElem);//вставка элемента за указатель

procedure GetElem(var x:TElem);//

procedure LookElem(var x:TElem);//посмотреть элемент

procedure ChangeElem(var x:TElem);//изменить элемент

procedure DelElem(var x:TElem);//удалить элемент

//procedure GetError;

// procedure MaskError(eror:word);

// procedure ClearMaskErr;

end;

Queue=object(L1_List)

private

Que:TQueue;

eprst:boolean;

public

procedure Put_Que(var x: TElem); //добавление элемента в очередь

procedure Get_Que(var x:TElem);

procedure Print_Que;

end;

//********************************

implementation

//********************************

constructor L1_List.CreateList;//

begin

new(head);//выделяем память

head^.next:=nil;//направляем указатель в nil

temp:=head;

end;

//****************************************

Destructor L1_List.Destroy_List;//

begin

while head<>NIL do//пока голова не укаывает в nil

begin

temp:=head;

head:=head^.next;

dispose(temp);

end;

dispose(head);

end;

//***************************************

procedure L1_List.InBegin;//в начало

begin

Temp:=head^.next;

end;

//****************************************

procedure L1_List.PutElem(var x:TElem);//добавить элемент после указателя

var

NewEl:Link;

begin

new(NewEl);//выделяем память под новый элемент

NewEl^.data:=x;// записываем в него данные

{Если список был пустой, то головой списка становится p}

if head^.next=NIL then

begin

NewEl^.next:= nil;

head:=NewEl;

end

else

begin

NewEl^.next:=Temp^.next;{ в новом элементе делаем ссылку

на следующий элемент, который был до вставки}

Temp^.next:=NewEl;{в текущем элементе делаем ссылку на новый}

end;

head:=Temp^.next;// текущим становится новый элемент

end;

//********************************************

procedure L1_List.PutTempForvard;//двигаем указатель вправо

begin

if temp^.next<>NIL then

temp:=temp^.next

else

begin

end;

//********************************************

procedure L1_List.DelElem(var x:TElem);

var

p,p1:Link;//p1 - предыдущий элемент

power:boolean;

begin

if temp^.next<>nil then

begin

p:=temp^.next;

power:=true;

end

else

begin

end;

while true do

begin

if p^.data = x then

begin

power:= true;

break;

end

else

if p^.next = nil then break

else

begin

p1:= p;

p:= p^.next;

end;

if power then

begin

if p = head then // если удаляется первый элемент

begin

p:= head^.next; // запоминаем ссылку на следующий элемент

Dispose(head); // удаляем первый элемент списка

head:= p; // головой списка становится p

end

else

begin // если удаляется не первый элемент

p1^.next:= p^.next; { в предыдущем элементе заменяем

ссылку на следующий элемент после удаляемого }

Dispose(p);

temp:= p1; // текущим делаем предыдущий элемент

end;

end

else

begin

end;

//********************************************

constructor L1_List.CopyList(var List:L1_List);

begin

end;

//********************************************

procedure L1_List.ClearList;//очистить текущий список

var

tmp:Link;

begin

tmp:=temp^.next;

while tmp <> NIL do

begin

head:=tmp;

tmp:=tmp^.next;

Dispose(head);

end;

Dispose(tmp);

end;

//***********************************************

function L1_List.IsEmptyList:boolean;//пустой ли список

begin

if temp^.next = NIL then IsEmptyList:=false

else IsEmptyList:=true;

end;

procedure L1_List.ChangeElem(var x:TElem);//изменение элемента за указателем

begin

if temp^.next<>nil then temp^.data:=x

else

begin

end;

procedure L1_List.LookElem(var x:TElem);//посмотреть элемент после указателя

begin

if temp^.next<>nil then

begin

x:=temp^.data;

end;

procedure L1_List.GetElem(var x:TElem);

begin

if temp^.next<>nil then

begin

x:=temp^.data;

dispose(temp);

end

else

begin

end;

procedure Queue.Put_Que(var x: TElem); //добавление элемента в очередь

var

pont:Link;//временный указатель

begin

if Que.last=nil then{Если очередь пуста, то указатели на первый и последний элемент будут совпадать}

begin

Que.last:= New(Link);

Que.first:= Que.last; // Приравниваем указатели

Que.last^.data:= x;//записываем данные

Que.last^.next:= nil; // Следующий элемент пока пустой

end

else

begin

pont:=New(Link);

pont^.data:=x;

pont^.next:=nil;

Que.last^.next:=pont;//ссылка на следующий элемент

Que.last:=pont;//сдвигаем указатель на последний элемент

end;

procedure Queue.Get_Que(var x:TElem);//взять элемент из очереди

var

pont:Link;

begin

if Que.first=nil then

begin

eprst:=true;

end

else

begin

x:=Que.first^.data;//первывй элемент очереди

pont:=Que.first;//запомним ссылку

Que.first:=Que.first^.next;//переход на следующий элемент

dispose(pont);

end

end;

procedure Queue.Print_Que;

var

pont:Link;

begin

pont:=Que.first;//берем первый элемент очереди,в цикле проходим все элементы очереди и печатаем их

while pont<>nil do

begin

write(pont^.data,' ');

pont:=pont^.next;

end;

writeln;

end;

end.

Добавлено 05.06.12, 06:49
только теперь не могу сообразить с какого боку подойти к решению задачи. Получается для начала нужно создать две очереди, выделить память под третью, а затем с помощью методов Put и Get каким-то макаром заполнить третью. Вопрос: позволит ли мне паскаль хранить в памяти несколько очередей?

Очередь на основе односвязного кольцевого списка

volvo877 — Mon, 04 Jun 2012 06:45:10 +0000

volvo877:

Цитата kotmatroskin55 @ 04.06.12, 06:14

Я так понимаю,для выполнения задания еще нужно будет добавить процедуру поиска элемента?

Я так понимаю, ты не хочешь читать посты? Нет и не может быть для очереди никакого поиска элементов. Только 2 метода (не включая конструктора/деструктора) - Put и Get. Первый добавляет элемент в хвост очереди, второй - извлекает из головы. Всё. Про все остальные методы (типа поиска, сортировки, получения НЕ головного элемента) забудь. Их не существует.

Вот у тебя и задача: используя только методы Put/Get, крутись как хочешь, но из двух упорядоченных очередей (создавать сразу упорядоченную, либо упорядочивать, используя только эти 2 метода - дело твоё) создай третью, которая тоже упорядочена.

Очередь на основе односвязного кольцевого списка

kotmatroskin55 — Mon, 04 Jun 2012 06:14:40 +0000

kotmatroskin55: задание такое:
"Даны две очереди целых чисел, элементы которых упорядочены по неубыванию. Составить из их элементов третью очередь, упорядоченную по невозрастанию"
там был еще компилятор, но я не стал его брать - времени в обрез.

Добавлено 04.06.12, 06:21
Я так понимаю,для выполнения задания еще нужно будет добавить процедуру поиска элемента? А еще не решил как создавать исходные очереди - вручную - с проверкой неубывания, или пусть пользователь забивает ее как хочет, а потом самому сортировать обе очереди, и оттуда уже плясать. Что посоветуешь?

Очередь на основе односвязного кольцевого списка

volvo877 — Mon, 04 Jun 2012 05:53:57 +0000

volvo877: Это смотря какое у тебя задание. Можно и наследника в этом же модуле сделать. Можно и наследника в отдельном модуле :)

Очередь на основе односвязного кольцевого списка

kotmatroskin55 — Mon, 04 Jun 2012 05:49:55 +0000

kotmatroskin55: И еще вопросик: как лучше сделать реализацию очереди - написать объект - наследник L1_List?или проще будет отдельный модуль написать?

Очередь на основе односвязного кольцевого списка

kotmatroskin55 — Mon, 04 Jun 2012 05:39:37 +0000

kotmatroskin55: все понял.от души.

Добавлено 04.06.12, 05:42
все это финиш..............................................................

Очередь на основе односвязного кольцевого списка

volvo877 — Mon, 04 Jun 2012 05:14:12 +0000

volvo877:

var

x:TElem;

lst : L1_List;

begin

lst.CreateList; // Создавать надо ЭКЗЕМПЛЯР

readln(x);

lst.PutElem(x);

readln;

end.

Очередь на основе односвязного кольцевого списка

kotmatroskin55 — Mon, 04 Jun 2012 04:50:24 +0000

kotmatroskin55: :wall: :wall: :wall: :wall: :wall: :wall: :wall:
попробовал написать тестирующую для списка - казалось бы - чего сложного то, но компилятор ругается на методы вот так:
"Error: Only static variables can be used in static methods or outside methods"
вот код тестирующей - там три строчки - засел на создании списка.
опять наверное какая-нибудь мелочь - подскажите пожалуйста

program L1_Test;

uses crt,L1_sp;

var

x:TElem;

begin

L1_List.CreateList;

readln(x);

L1_List.PutElem(x);

readln;

end.

вот код модуля

unit L1_sp;

interface

uses crt;

type

TElem=integer;

TFile=file of TElem;

Link=^ListElem;

ListElem=record

Data:TElem;

next:Link;

end;

L1_List=object

private

head:Link;//голова

Temp:Link;//указатель на следующий элемент

//err_code:word;

public

constructor CreateList;//создание списка

constructor CopyList(var List:L1_List);//копирование

destructor Destroy_List;//удаление с очисткой памяти

procedure ClearList;//очистка текущуго списка

function IsEmptyList:boolean;//пустой ли список

procedure PutTempForvard;//вправо

procedure InBegin;//в начало

//function IsTempLast:boolean;

procedure PutElem(var x:TElem);//вставка элемента за указатель

// procedure GetElem(var x:TElem);//

procedure LookElem(var x:TElem);//посмотреть элемент

procedure ChangeElem(var x:TElem);//изменить элемент

procedure DelElem(var x:TElem);//удалить элемент

//procedure GetError;

// procedure MaskError(eror:word);

// procedure ClearMaskErr;

end;

implementation

//********************************

constructor L1_List.CreateList;//

begin

new(head);//выделяем память

head^.next:=nil;//направляем указатель в nil

temp:=head;

end;

//****************************************

Destructor L1_List.Destroy_List;//

begin

while head<>NIL do//пока голова не укаывает в nil

begin

temp:=head;

head:=head^.next;

dispose(temp);

end;

dispose(head);

end;

//***************************************

procedure L1_List.InBegin;//в начало

begin

Temp:=head^.next;

end;

//****************************************

procedure L1_List.PutElem(var x:TElem);//добавить элемент после указателя

var

NewEl:Link;

begin

new(NewEl);//выделяем память под новый элемент

NewEl^.data:=x;// записываем в него данные

{Если список был пустой, то головой списка становится p}

if head^.next=NIL then

begin

NewEl^.next:= nil;

head:=NewEl;

end

else

begin

NewEl^.next:=Temp^.next;{ в новом элементе делаем ссылку

на следующий элемент, который был до вставки}

Temp^.next:=NewEl;{в текущем элементе делаем ссылку на новый}

end;

head:=Temp^.next;// текущим становится новый элемент

end;

//********************************************

procedure L1_List.PutTempForvard;//двигаем указатель вправо

begin

if temp^.next<>NIL then

temp:=temp^.next

else

begin

end;

//********************************************

procedure L1_List.DelElem(var x:TElem);

var

p,p1:Link;//p1 - предыдущий элемент

power:boolean;

begin

if temp^.next<>nil then

begin

p:=temp^.next;

power:=true;

end

else

begin

end;

while true do

begin

if p^.data = x then

begin

power:= true;

break;

end

else

if p^.next = nil then break;

p1:= p;

p:= p^.next;

end;

if power then

begin

if p = head then // если удаляется первый элемент

begin

p:= head^.next; // запоминаем ссылку на следующий элемент

Dispose(head); // удаляем первый элемент списка

head:= p; // головой списка становится p

end

else

begin // если удаляется не первый элемент

p1^.next:= p^.next; { в предыдущем элементе заменяем

ссылку на следующий элемент после удаляемого }

Dispose(p);

temp:= p1; // текущим делаем предыдущий элемент

end;

end

else

begin

end;

//********************************************

constructor L1_List.CopyList(var List:L1_List);

begin

end;

//********************************************

procedure L1_List.ClearList;//очистить текущий список

var

tmp:Link;

begin

tmp:=temp^.next;

while tmp <> NIL do

begin

head:=tmp;

tmp:=tmp^.next;

Dispose(head);

end;

Dispose(tmp);

end;

//***********************************************

function L1_List.IsEmptyList:boolean;//пустой ли список

begin

if temp^.next = NIL then IsEmptyList:=false

else IsEmptyList:=true;

end;

procedure L1_List.ChangeElem(var x:TElem);//изменение элемента за указателем

begin

if temp^.next<>nil then temp^.data:=x

else

begin

end;

procedure L1_List.LookElem(var x:TElem);//посмотреть элемент после указателя

begin

if temp^.next<>nil then

begin

x:=temp^.data;

end;

end.

Добавлено 04.06.12, 05:08
и еще забыл сказать, что список я решил делать обычный, а не кольцевой

Очередь на основе односвязного кольцевого списка

volvo877 — Sat, 02 Jun 2012 06:43:32 +0000

volvo877: Насчет самого списка -реализации уже были в этом разделе, я выкладывал точно - посмотри.

А насчет очереди - зачем тебе 2 списка для каждой очереди? Нужно на каждую очередь один список, метод Put очереди будет добавлять элемент перед начальным (новый элемент будет указывать полем Next на начальный), метод Get - будет получать значение начального элемента списка (и удалять его). Вот тебе и очередь.

Очередь на основе односвязного кольцевого списка

kotmatroskin55 — Sat, 02 Jun 2012 04:24:46 +0000

kotmatroskin55: А вот как создать очередь на его основе, пока не придумал,я так понимаю, что надо будет создать в памяти по два списка для каждой
очереди? или я неправ?

unit L1_sp;

interface

uses crt,timer;

type

TElem=integer;

TFile=file of TElem;

Link=^ListElem;

ListElem=record

Data:TElem;

next:Link;

end;

L1_List=object

private

buf:Link;

Temp:Link;

//err_code:word;

public

constructor CreateList;//создание списка

constructor CopyList(var List:L1_List);//копирование

destructor Destroy_List;//удаление с очисткой памяти

procedure ClearList;//очистка текущуго списка

function IsEmptyList:boolean;//пустой ли список

procedure PutTempForvard;//вправо

procedure InBegin;//в начало

//function IsTempLast:boolean;

procedure PutElem(var x:TElem);//вставка элемента за указатель

// procedure GetElem(var x:TElem);//

procedure LookElem(var x:TElem);//посмотреть элемент

procedure ChangeElem(var x:TElem);//изменить элемент

procedure DelElem(var x:TElem);//удалить элемент

//procedure GetError;

// procedure MaskError(eror:word);

// procedure ClearMaskErr;

end;

implementation

//********************************

constructor L1_List.CreateList;//

begin

new(buf);

buf^.next:=buf;

temp:=buf;

end;

//****************************************

Destructor L1_List.Destroy_List;//

begin

while temp<>NIL do

begin

buf:=temp;

temp:=temp^.next;

dispose(buf);

end;

dispose(temp);

end;

//***************************************

procedure L1_List.InBegin;//в начало

begin

Temp:=buf^.next;

end;

//****************************************

procedure L1_List.PutElem(var x:TElem);//добавить элемент после указателя

var

NewEl:Link;

begin

new(NewEl);

NewEl^.data:=x;// записываем в него данные

{Если список был пустой, то головой списка становится p}

if buf^.next=NIL then

begin

NewEl^.next:= nil;

Buf:=NewEl;

end

else

begin

NewEl^.next:=Temp^.next;{ в новом элементе делаем ссылку

на следующий элемент, который был до вставки}

Temp^.next:=NewEl;{в текущем элементе делаем ссылку на новый}

end;

buf:=Temp^.next;// текущим становится новый элемент

end;

//********************************************

procedure L1_List.PutTempForvard;//двигаем указатель вправо

begin

if temp^.next<>NIL then

temp:=temp^.next

else

begin

end;

//********************************************

procedure L1_List.DelElem(var x:TElem);

var

p,p1:Link;//p1 - предыдущий элемент

power:boolean;

begin

if buf^.next<>nil then p:=buf^.next

else

begin

end;

while true do

begin

if p^.data = x then

begin

power:= true;

break;

end

else

if p^.next = nil then break;

p1:= p;

p:= p^.next;

end;

if power then

begin

if p = buf then // если удаляется первый элемент

begin

p:= buf^.next; // запоминаем ссылку на следующий элемент

Dispose(buf); // удаляем первый элемент списка

buf:= p; // головой списка становится p

end

else

begin // если удаляется не первый элемент

p1^.next:= p^.next; { в предыдущем элементе заменяем

ссылку на следующий элемент после удаляемого }

Dispose(p);

temp:= p1; // текущим делаем предыдущий элемент

end;

end

else

begin

end;

//********************************************

constructor L1_List.CopyList(var List:L1_List);

begin

end;

//********************************************

procedure L1_List.ClearList;//очистить текущий список

var

tmp:Link;

begin

tmp:=temp^.next;

while tmp <> NIL do

begin

buf:=tmp;

tmp:=tmp^.next;

Dispose(buf);

end;

Dispose(tmp);

end;

//***********************************************

function L1_List.IsEmptyList:boolean;//пустой ли список

begin

if temp^.next = NIL then IsEmptyList:=false

else IsEmptyList:=true;

end;

procedure L1_List.ChangeElem(var x:TElem);//изменение элемента за указателем

begin

if temp^.next<>nil then temp^.data:=x;

end;

procedure L1_List.LookElem(var x:TElem);//посмотреть элемент после указателя

begin

if temp^.next<>nil then

begin

end;

end.