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

sn:=s;

новий елемент s^ буде добавлено в кінець списку. При цьому s1 буде вказувати на перший елемент списку, а s та sn – на добавлений елемент списку (останній елемент).

Розглянемо на схемі повторну дію згаданих вище вказівок:

ТЕКСТ ПРОГРАМИ ФОРМУВАННЯ ЧЕРГИ:

type

elem=^zapis;

zapis=record

name:string;

next:elem;

end;

var s1, s, sn:elem;

name:string;

BEGIN

s1:=nil; s:=nil;

repeat

new(s);

readln(name);

if name<>’’ then begin

s^.name:=name;

s^.next:=nil;

if s1=nil then s1:=s;

else sn^.next:=s;

sn:=s;

end;

until name=’’;

while s1<>nil do begin

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

s1:=s1^.next;