#include
#include
#include?
#define?STACK_INIT_SIZE?100
#define?STACKINCREMENT?10
#define?OVERFLOW?-1
#define?ERROR?0
#define?OK?1

typedef?float?SElemType;

typedef?struct
{
	SElemType?*base;
	int?top;
	int?stacksize;
}SqStack;


SElemType?InitStack（SqStack?*S）
{
	//構(gòu)造一個空棧
????
	S->base=（SElemType??*）malloc（100*sizeof（SElemType?））;
????if（!S->base）?return?OVERFLOW;
	S->top=0;
	S->stacksize=STACK_INIT_SIZE;
	return?OK;
}

SElemType?GetTop（SqStack?*S）
{
	//若棧不空，則用e返回棧頂元素，否則返回ERROR
	SElemType?e;
	if（S->top==0）????return?ERROR;
	e=S->base[S->top-1];????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????????