списки

[nataliya234]

type
te=integer;
spisok=^zveno;
zveno=record
elem:te;
sled:spisok;
описать и проверить процедуру или функцию, которая проверяет есть ли в списке хотя бы два одинаковых элемента.

[nataliya234]

есть примерный код программы
type
te=integer;
spisok=^zveno;
zveno=record
elem:te;
sled:spisok;
end;

var
m11,m12:spisok;
t:boolean;


procedure TForm1.N2Click(Sender: TObject);
procedure sravn(m11:spisok; var t:boolean);
var
n12,n11,p:spisok;
i,j:integer;
begin
n11:=p;
n12:=p;
i:=1;
j:=0;
t:=true;
while (n11<>nil) and t do begin
while (n12<>nil) and t do begin
if (n11^.elem=n12^.elem) and (i=j) then t:=false;
n12:= n12^.sled;
j:=j+1;
end;
n11 := n11^.sled;
i:=i+1;
end;
end;
begin
sravn (m11,t);
if t then Edit1.Text:='есть'
else Edit1.Text:='нет';
end;

procedure TForm1.N1Click(Sender: TObject);
var
i:integer;
begin
m12:=nil;
for i:=1 to Memo1.Lines.Count do
begin
new(m11);
m11^.elem:=StrToInt(Memo1.Lines[i-1]);
m11^.sled:=m12;
m12:=m11;
end;
end;


procedure TForm1.N3Click(Sender: TObject);
begin
close;
end;

end.

[Anatole]

Немножко подправил процедуру сравнения. Должна работать.

procedure sravn(m11:spisok; var t:boolean);
var
n12,n11,p:spisok;
i,j:integer;
begin
n11:=m11;(* m11 - "голова" списка*)
t:=true;
while (n11<>nil) and t do begin
n12:=n11^.sled;
while (n12<>nil) and t do begin
t := (n11^.elem<>n12^.elem);
n12:= n12^.sled;
end;
n11 := n11^.sled;
end;
end;

[nataliya234]

вообщем эта процедура сравнивает только 1 элемент со 2, 2 с 3 и тд, а нужно чтобы 1 со 2,3,4,5ж 2,с 3,4,5 и тд

[nataliya234]

и она работает только если все элементы равны друг другу (например 33333)

[nataliya234]

люди помогите плиз, очень срочно нужно