PLink=^TLink;
TLink=record
info:Тип_элемента;
next=PLink;
end;
function issubset(var l1,l2:PLink):boolean;
var p1,p2:PLink;
b:boolean;
begin
b1:=true;
p1:=l1;
while b and (p1<>nil) do
begin
p2:=l2;
while (p2<>nil) and(p2^.info<>p1^.info) do
p2=p2^.next;
b:=b and (p2<>nil);
end;
issubset:=b;
end;
Процедуры и функции!
Описать процедуру или функцию, которая определяет входит ли один список в другой ( абсолютно любой список ) :(
буду очень рад если поможете решить эту задачу, хочу понять принцип, т.к на экзамене будет много встречных задач.. заранее благодарен..:confused:
буду очень рад если поможете решить эту задачу, хочу понять принцип, т.к на экзамене будет много встречных задач.. заранее благодарен..:confused:
Если каждый элемент первого списка входит во второй, то таки да.
мне программа нужна :(