Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.12.11;
Скачать: CL | DM;

Вниз

Помогите примером   Найти похожие ветки 

 
tytus   (2005-11-23 15:22) [0]

Как в паскале создать в памяти однонаправленный список?


 
Reindeer Moss Eater ©   (2005-11-23 15:23) [1]

В памяти он всегда будет двунаправленным и более.


 
Reindeer Moss Eater ©   (2005-11-23 15:26) [2]

type
tmylist = class
private
 fList : TList;
public
 function Next : Pointer;
end;


 
TUser ©   (2005-11-23 15:26) [3]

PwaGraph = ^TwaGraph;
TwaGraph =
 record
   VCount: integer;
   LCount: integer;
   TopVertex: TwaVertex; // a head
   Next: PwaGraph;
 end;

function NewGraph: PwaGraph;
begin
 New (result);
 with result^ do begin
   VCount:=0;
   LCount:=0;
   InitVertex(TopVertex);
   TopVertex.LCount:=MaxInt;
   TopVertex.Index:=MaxInt;
   Next:=nil;
   end;
end;

Ну и добавить элемент потом можно
var temp: Pwagraph;
begin
 temp:=NewGraph;
 temp^.Next:=AHeadOfList;
 AHeadOfList:=temp;
end;


 
tytus   (2005-11-23 15:30) [4]

[1] Сам пишу на делфи, начинал на паскале. Вот подкинули такую задачку - однонаправленный список. Как делать - не помню и все. А ведь препод не будет умничать - посмотрит прогу - и запорит если что не так...


 
Reindeer Moss Eater ©   (2005-11-23 15:34) [5]

[2] и [3] эмулируют однонаправленный список.

На самом деле в памяти с произвольным доступом Random Access Memory не может быть никакого однонаправленного списка.

Впрочем преподы - они в другом, в особом мире живут.


 
Плохиш ©   (2005-11-23 16:32) [6]

Берёшь двунаправленный список, убираешь ссылку на предыдущий элемент и получаешь однонаправленный список.

PS. Ответ на [0] описан в любой книжке по паскалю.



Страницы: 1 вся ветка

Текущий архив: 2005.12.11;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.038 c
4-1128951430
Gluk
2005-10-10 17:37
2005.12.11
Перехват окна сохранения


2-1132441298
Vadim14
2005-11-20 02:01
2005.12.11
доступ к PCI


2-1132918235
Quadro
2005-11-25 14:30
2005.12.11
Странная ошибка


2-1132476842
The One
2005-11-20 11:54
2005.12.11
Как получить обратиться к полю класса (private) из регулярной...


14-1132662465
syte_ser78
2005-11-22 15:27
2005.12.11
есть ли прога помечающая беды на сд-рв?