Правила форума
Прочтите прежде чем задавать вопрос!
Пусть задан список слов из каждой группы слов оставить только одно.
Я написал код, но программа не работет. Пожалуйста проверьте и объясните, что не правильно.
program XXX;
uses
SysUtils,
windows;
type
tinfo = string;
plist = ^tlist;
tlist = record
info: tinfo;
next: plist;
end;
procedure PrintList(L: plist);
var
p: plist;
begin
p := L;
while p<>nil do
begin
write (p^.info, ' ');
p := p^.next;
end;
writeln;
end;
procedure InitList (var L: plist);
begin
L := nil;
end;
procedure DisposeList (var L: plist);
var
d: plist;
begin
while L<>nil do
begin
d := L;
L := L^.next;
dispose (d);
end;
end;
function IsEmpty(L: plist): boolean;
begin
IsEmpty := L = nil;
end;
procedure AddToEndOfList (var L: plist; info: tinfo);
var
p,p_pred: plist;
q: plist;
begin
if IsEmpty (L) then
begin
new (q);
q^.next := nil;
q^.info := info;
L := q;
end
else
begin
p := L;
while p<>nil do
begin
p_pred := p;
p := p^.next;
end;
new (q);
p_pred^.next := q;
q^.next := nil;
q^.info := info;
end;
end;
procedure ReadList(var L: plist);
var
info: tinfo;
begin
InitList (L);
while not eoln do
begin
read (info);
AddToEndOfList (L, info);
end;
readln;
end;
//вот здесь начинаются проблемы
procedure MakeNewList(var L: plist; L1: plist);
var
p, h: plist;
info: tinfo;
begin
InitList (L);
p := L1;
while p<>nil do
begin
info := p^.info;
h:=p^.next;
if (p^.info<>h^.info) and (p<>nil) then
AddToEndOfList (L, info);
p := p^.next;
end;
end;
var
L,
L1: plist;
begin
SetConsoleCp (1251);
SetConsoleOutputCp (1251);
writeln ('Введите список');
ReadList (L1);
readln;
MakeNewList (L,L1);
writeln ('Новый список ');
PrintList (L);
readln;
DisposeList (L);
DisposeList (L1);
end.
