Линейные списки (Входимость) - Delphi - Ответ 1181686

program p1;
 
{$APPTYPE CONSOLE}
 
uses SysUtils,Math;
type ss = ^list;
 
     list = record
     inf : integer;
     next : ss;
end;
 
Var u,p,q:array[1..2] of ss;
    m1,m2:array[1..255] of integer;
    F : Boolean;
    n1,n2,j:byte;
 
Procedure Form(x,r:byte);
Var i : integer;
Begin
     New(u[x]);
     u[x]^.next := nil;
     p[x]:=u[x];
     for i:=1 to r do
     begin
          new(p[x]^.next);
          p[x] := p[x]^.next;
          p[x]^.next := nil;
          read( p[x]^.inf);
     end;
End;
 
Procedure Output(x:byte);
Var I : Word;
Begin
     I := 0;
     p[x]:=u[x]^.next;
     While p[x]<>nil do
     Begin
          Inc(I);
          WriteLn(I:2,' ',p[x]^.inf);
          p[x] := p[x]^.next;
     End;
End;
Function ListIn(l1,l2:byte):boolean;
var i,h:byte;
b:boolean;
begin
i:=0;
p[l1]:=u[l1]^.next;
     While p[l1]<>nil do
     Begin
          Inc(I);
          m1[i]:=p[l1]^.inf;
          p[l1] := p[l1]^.next;
     End;
i:=0;
p[l2]:=u[l2]^.next;
     While p[l2]<>nil do
     Begin
          Inc(I);
          m2[i]:=p[l2]^.inf;
          p[l2] := p[l2]^.next;
     End;
result:=false;
for i:=1 to l1 do
for h:=1 to l2 do
begin
if m[i]...
 
end;
 
     {q[1] := u[1];
p[1] := u[1]^.next;
q[2] := u[2];
p[2]:= u[2]^.next;
Result := True;
while ((p[l1] <> nil)) do
begin
  if (p[l1]^.inf <> p[l2]^.inf) then  Result:=false;
  q[1] := q[1]^.next;
  p[1]:= p[1]^.next;
  q[2] := q[2]^.next;
  p[2]:= p[2]^.next;
 
end;}
 
Begin
      {for j:=1 to 255 do begin m1[i]:=9999; m2[i]:=9999; end;}
     Write('Input size of list A');
     read(n1);
     Form(1,n1);
     Write('Input size of list B');
     read(n2);
     Form(2,n2);
     WriteLn('List A');
     WriteLn;
     Output(1);
     WriteLn('List B');
     Output(2);
     if n1<n2 then
     begin
     if ListIn(1,2) then Write('List B include list A')
     else Write('List B not include list A')
     end else
     begin
     if ListIn(2,1) then Write('List A include list B')
     else Write('List A not include list B')
     end;
     //write(m1[2],' ',m2[2]);
     readln; readln;
End.