数据结构 North China Electric Power University Data Structure 华北电力大学计算机科学与工程系 Dept. of Computer Science k:=Locate(La,x); if k=0 then Insert(La,n+1,x); n:=n+1; End; Procedure Union(Var La:Linear_list ; Lb:Linear_list); 将所有在Lb中存在而在La中不存在的 数据元素插入到La中 Begin n:=Length(La); k:=0; for (i=1; i= Length(Lb); i+) x=Get(Lb,i); k=Locate(La,x); if (k=0) Insert(La,n+1,x); n=n+1; void union(Linear_list La, Linear_List Lb) /*将所有在Lb中存在而在La中不存在的数据 元素插入到La中*/ n= Length(La); /确定线性表La的长度 例2. 判断两个集合A和B是否相等。 North China El