操作实现部分 procedure initialise (var S:stack); var i integer; begin 一旦我们小心翼翼地完成了定义和实现， 我们就可以发布这个“数据结构”为一 个“数据类型”供别的程序员直接使用， 他们不用关心这个类型的所有实现细节， 就像我们自己使用int类型一样！ end; function top(var S:stack):elemtype; begin return the top element of the stack x) top t=S.elements[S.last] end;操作实现部分 一旦我们小心翼翼地完成了定义和实现， 我们就可以发布这个“数据结构”为一 个“数据类型”供别的程序员直接使用， 他们不用关心这个类型的所有实现细节， 就像我们自己使用int类型一样！