Курсовая работа: Структури даних для обробки інформації

s1:=s_new;

end

else

begin

s_new^.next:=s_p^.next;

_p^.next:=s_new;

end;

end;

until s_new^.name='';

while s1<>nil do

begin

writeln('--',s1^.name);

s1:=s1^.next;

end;

END.

ВИДАЛЕННЯ ЕЛЕМЕНТА ЗІ СПИСКУ

Якщо у деякому сформованому списку вказівник s_1 вказує на перший елемент списка, то програмний код знищення елементів, що вводяться з клавіатури (якщо він присутній у списку, то нехай buf – це вказівник на елемент, що знаходиться перед ним) , може мати наступний вигляд:

{Формування списку}

repeat

writeln('Введите элемент, который хотите уничтожить со списка:’);

readln(name);

if name<>'' then

begin

if s1^.name=name then s1:=s1^.next

else

begin

buf:=s1;

while (buf^.next^.name<>name)and(buf^.next<>nil) do buf:=buf^.next;

if buf^.next^.name=name then buf^.next:=buf^.next^.next;