dSatckTsizepushTtifcurre
tsizecout“TheStackisfull”e
dlexit0堆栈满则程序结束
19
felsexcurre
ttcurre
t新元素入栈并修改栈顶指针TStackTsizepopifcurre
t0cout”Thereis
oobjecti
theStack”e
dlexit0堆栈空则程序结束elseTaxcurre
t1curre
tretur
a栈顶元素出栈并修改栈顶指针
20
fr