包集合的程序实例:执行部分 package body and pkg is 过程的完整编程 procedure p and(a, b:in bit; signal c: out bit) begin c<=a and b; end -函数的完整编程 function f and(a, b: bit) return bit is begin return(a and b);end; end包集合的程序实例：执行部分 package body and_pkg is --过程的完整编程 procedure p_and(a,b:in bit;signal c:out bit) is begin c<=a and b; end; --函数的完整编程 function f_and(a,b:bit) return bit is begin return (a and b);end; end ;