Линейные списки

[WarDen14]

Помогите, пожалуйста, найти ошибку в коде. Выводит только первый элемент линейного списка и последний под "*".
Дан линейный список с информацией о студентах(ФИО, стипендия, группа, номер зачетки)

[Serge_Bliznykov]

1) зачем Вы используете ДВУНАПРАВЛЕННЫЕ списки? Вы же всё равно используете их как простые однонаправленные.
Ну, например, переменную TAIL вы вообще не зайдействовали.

2) ну это ещё всё полбеды.
Процедура добавления элементов в список после текущего реализована не совсем корректно.

а в остальном у Вас всё более менее правильно.


я предлагаю так изменить процедуру:

procedure InsAfterCur(var pCur: plist; st: stud); {Вставка после текущего}
var ptr, tmpNext: plist;
begin
  new(ptr);
  ptr^.data := st;
  tmpNext := pCur^.next;
  pCur^.next := ptr;
  ptr^.prev := pCur;
  ptr^.next := tmpNext;
  pCur := ptr;
end;

[WarDen14]

а не могли бы вы, пожалуйста, подкорректировать процедуру дополнения списка?

[Serge_Bliznykov]

мой пост выше...

[WarDen14]

спасибо большое!

[WarDen14]

не могли бы еще чем помочь.. нашел процедуру удаления узла в списке, но вот с какими параметрами к ней обращаться?

procedure DelCur( var H,T,pCur : plist); 
 var ptr  : plist;
 begin
  if (pCur<>H) and (pCur<>T) then begin
   ptr:=pCur;
   ptr^.prev^.next:=pCur^.next;
   pCur^.next^.prev:=pCur^.prev;
   pCur:=pCur^.next;
   dispose(ptr);
   end
  else
   if (pCur=H) and (pCur<>T) then begin
    ptr:=pCur;
    ptr^.next^.prev:=NIL;
    pCur:=pCur^.next;
    dispose(ptr);
    H:=pCur;
    end
   else if (pCur<>H) and (pCur=T) then begin
    ptr:=pCur;
    ptr^.prev^.next:=NIL;
    pCur:=pCur^.prev;
    dispose(ptr);
    T:=pCur;
    end
   else if (pCur=T) and (pCur=H) then begin
    ptr:=pCur;
    dispose(ptr);
    pCur:=NIL;
    H:=NIL;
    T:=NIL;
    end;
end;

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[WarDen14]

ап________________

[Serge_Bliznykov]

очевидно, что в неё передаются три параметра:
H - указатель на "голову" списка (у Вас это Head)
T - это указатель на "хвост" списка (у Вас это Tail - только нужно дописать, чтобы он в вашей программе корректно иницилизировался и изменялся. Иначе ничего не будет работать!
у вас работа с хвостом не реализована!
ну и pCur - это указатель на тот элемент списка, который необходимо удалить.


ps. сам код удаления я не смотрел...

[WarDen14]

спасибо...!

[WarDen14]

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

var Tail:plist;
writeln('FIO');
readln(st.fio);
writeln('Stipendia');
readln(st.stip);
writeln('Group');
readln(st.group);
writeln('Zachetka');
readln(st.nz);
 intail(tail,st)
 while tail^.Next <> nil do
      tail := tail^.Next;

Сама процедура

rocedure InTail(var L: pList; item: stud);
var
  p, q: plist;
begin
  p := New(plist);
  p^.Data := item;
  p^.Next := nil;
  if L = nil then begin
     p^.Prev := nil;
     L := p;
    end
  else begin
     q:= L;
     while q^.Next <> nil do
      q := q^.Next;
     q^.Next := p;
     p^.Next := nil;
     p^.Prev := q;
    end;
end;