1、编写一个算法实现两个集合的差运算,假定采用顺序存储表示,分别为s1和s2,要求在s1就地进行,即从中删除掉与s2集合中所有相同值的元素。
2、编写一个算法实现两个集合的差运算,假定采用链接存储表示,分别由表头指针head1和head2所指向,要求在head1单链表上就地进行,即从中删除掉与head2单链表中所有相同值的节点。
CSDN,找了半天也没找到pascal专区,不知道发到哪儿,急用,希望有大神能够指导下。
2、编写一个算法实现两个集合的差运算,假定采用链接存储表示,分别由表头指针head1和head2所指向,要求在head1单链表上就地进行,即从中删除掉与head2单链表中所有相同值的节点。
CSDN,找了半天也没找到pascal专区,不知道发到哪儿,急用,希望有大神能够指导下。
TSet = (sSet1, sSet2, sSet3, sSet4);
TSets = set of TSet;...
var
ss1, ss2, ss3: TSets;
begin
ss1 := [sSet1, sSet2, sSet3];
ss2 := [sSet2, sSet3, sSet4];
ss3 := ss1 - ss2; if sSet1 in ss3 then ShowMessage(' sSet1 in ss3 ');
if sSet2 in ss3 then ShowMessage(' sSet2 in ss3 ');
if sSet3 in ss3 then ShowMessage(' sSet3 in ss3 ');
if sSet4 in ss3 then ShowMessage(' sSet4 in ss3 ');
end;