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

END .

ФОРМУВАННЯ ВПОРЯДКОВАНОГО СПИСКУ.

S1 – вказівник на перший елемент списку

S_new – вказівник на новий елемент списку

S_p – вказівник на елемент, після якого необхідно здійснити вставку нового елемента

Buf – деякий допоміжний вказівник на елемент, який проглядається в процесі пошуку місця для вставки нового елемента.

type

elem=^spisok;

spisok=record

name:string;

next:elem;

end;

var

s1,s_new,buf,s_p:elem;

BEGIN

s1:=nil;s_new:=nil;buf:=nil;

repeat

new(s_new);

readln(s_new^.name);

s_p:=nil;

buf:=s1;

if s_new^.name<>'' then

begin

while (buf^.name<s_new^.name)and(buf<>nil) do

begin

s_p:=buf;

buf:=buf^.next;

if s_p=nil then

begin