包集合的程序实例:调用方式 entity f is port(x, y:in bit; S, z: out bit: =0);end use work and_pkgl;-包集合的调用 architecture str of fis begin I:p and(x, y,s); 过程调用 z<=f and(x, y); 函数调用 end str,包集合的程序实例：调用方式 entity f is port(x,y:in bit;s,z:out bit:='0');end; use work.and_pkg.all; --包集合的调用 architecture str of f is begin u1:p_and(x,y,s); --过程调用 z<=f_and(x,y); --函数调用 end str;