Составить процедуру, определяющуювхождение списка L1 в список L2 и наоборот. Если один из списков длиннее, удалить лишние элементы из его начала. Используя процедуру, проанализировать пары списков М1 и М2, N1 и N2.
Program Spisok;
Uses CRT;
Type
TData=integer;
PLink=^TElement;
TElement=Record
Data:TData;
Link:PLink;
End;
Procedure InPutList(n: integer; Var List:PLink);
Var
ElNew:PLink;
Value:TData;
i:Integer;
Begin
{ List:=NIL;}
For I:=1 To n Do
Begin
WriteLn('vvedite ',i,' element');
Read(value);
New(ElNew);
ElNew^.Data:=Value;
ElNew^.Link:=List;
List:=ElNew;
End;
End;
{----------------}
Procedure OutPutList(List:PLink);
Var
i:integer;
Begin
WriteLn('element spiska ');
While List <> NIL Do
Begin
Write(List^.Data,' ');
List:=List^.Link;
End;
WriteLn;
End;
{----------------}
Var
List1,List2,Elem,NewElem:PLink;
o,i,n,p,m:Integer;
ff:boolean;
Begin
ClrScr;
WriteLn('vvedite kol-vo elementov spiska ');
ReadLn(n);
WriteLn('vvedite kol-vo elementov spiska ');
ReadLn(m);
InPutList(n,List1);
InPutList(m,List2);
Writeln;
OutPutList(List1);
Writeln;
OutPutList(List2);
i:= 0;
While List1 <> nil do
Begin
If List1^.Data <> List2^.Data then
Begin
Writeln('ne vhodit 1 v 2');
ff:= True;
break
End;
List1:= List1^.Link;
List2:= List2^.Link;
End;
While List2 <> nil do
Begin
If List2^.Data <> List1^.Data then
Begin
Writeln('ne vhodit 2 v 1');
ff:= False;
break
End;
List1:= List1^.Link;
List2:= List2^.Link;
End;
If m > n Then o:= m-n else o:= n-m;
{ вот с этого момента я не могу понять
в чем моя ошибка}
New(NewElem);
If ff = True Then
for i:= 1 to o do
Begin
List1:= NewElem;
NewElem:= NewElem^.Link;
Dispose(NewElem);
end;
writeln('@@');
Outputlist(List1);
keypressed;
End.