Вывод списка на экран

[Kir94]

Помогите пожалуйста исправить код чтобы он выводил элементы списка на экран. Я так думаю что элементы просто не заносятся в список, т.е. нужно исправить процедуру add, но у меня не получается. Помогите пожалуйста.

{программа организации списка динамическими переменными}
uses crt;
{создаем тип динамической переменной}
type DinPer=^item;
item=record
inf: string;
next: DinPer;
end;
{описываем переменные head – голова списка, указывает на первый элемент,
hv – хвост списка, последний элемент, не указывает ни на что, указатель имеет значение nil,
p – динамическая переменная, используется для работы со списком}
var head,hv,p:DinPer;
n,i:integer;
x: string;
{ добавление в список элементов в хвост}
procedure add(var hv:DinPer; x:string);
begin
new(p);
p^.next:=nil;
hv:=p;
hv^.inf:= x;
end;
{вывод на экран элементов списка}
procedure print;
begin
writeln('элементы списка: ');
p:=head;
while p<>nil do
begin
writeln(p^.inf);
p:=p^.next;
end;
end;
begin
clrscr;
{голова списка не ссылается ни на какую область памяти (переменную)}
head:=nil;
{хвост списка не ссылается ни на какую область памяти (переменную)}
hv:=nil;
writeln('введите количество добавляемых элементов');
readln(n);
writeln('введите элементы списка ');
for i:=1 to n do begin
readln(x);
add(hv,x);
end;
{просмотр всех элементов списка}
Print;
end.

[ViktorR]

У Вас переменная head имеет значение Nil.
В процедуре Add значение этой переменной не присваивается.
Рекомендация: Скачать книгу Т.А. Павловская, Программирование на ЯВУ, Паскаль. Книга имеется в списке рекомендуемой литературы, см. Раздел "Полезная литература. Паскаль" в заголовке этой конференции. Там имеется прекрасный пример работы со списком.


Как-то так, ...

[Stilet]

procedure add(var hv:DinPer; x:string);
begin
new(p);
p^.next:=nil;
p^.inf:= x;

if hv=nil then begin
 head:=hv;
end else begin
 hv^.next:=p;
end;

hv:=p;
end;

[Kir94]

Сообщение от Stilet

procedure add(var hv:DinPer; x:string);
begin
new(p);
p^.next:=nil;
p^.inf:= x;

if hv=nil then begin
 head:=hv;
end else begin
 hv^.next:=p;
end;

hv:=p;
end;

Все равно список не выводится

[ViktorR]

Вот пример без привязки к Вашим переменным.

Procedure Add(x: byte);
var n, tmp: Plist;
begin
   new(n);    {получаем указатель на новый элемент}
   n^.data:=x;  {Заполняем элемент значением}
   n^.next:=nil; {элемент добавляется в хвост}

   if head = nil then {список пуст}
      head:=n {созданный элемент - первый элемент списка}
   else     {список не пуст}
   begin
      tmp:=head;
      while tmp^.next <> nil do {переходим в конец списка}
          tmp:=tmp^.next;
      tmp^.next:=n;  {Добавляем элемент в хвост}
   end;
end;

Кстати, а какую роль играет переменная hv?


Как-то так, ...

[Kir94]

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

[Kir94]

Все разобрался и теперь все работает. Спасибо всем за помощь