编写一个程序，采用链栈实现的各种基本运算

编写一个程序，采用链栈实现的下列各种基本运算：

(1).初始化栈 初始化栈
(2). 入栈
(3). 出栈
(4). 取栈顶元素 取栈顶元素 取栈顶元素
(5). 判栈是否为空 判栈是否为空 判栈是否为空
(6). 遍历栈 遍历栈

#include<stdio.h>
#include<stdlib.h>
#define STACK_INIT_SIZE 50
#define STACKINCREMENT 10

typedef int SElemType;
typedef struct LNode 
{
	SElemType data;
	struct LNode *next;
}LStack,* LinkStack;

void InitStack(LinkStack &S)//初始化栈
{
	S=(LinkStack)malloc(sizeof(LinkStack));
	S->next=NULL;
}

void Push(LinkStack &S)//入栈
{
	LinkStack p,r;
	SElemType e;
	int i,n;
	printf("请输入入栈元素个数：");
	scanf("%d",&n);
	printf("\n");
	for(p=S,i=0;i<n;i++)
	{
		r=(LinkStack)malloc(sizeof(LinkStack));
		printf("第%d个入栈元素为：",i+1);
		scanf("%d",&e);
		r->data=e;
		r->next=NULL;
		p->next=r;
		p=r;
	}
}

void Pop(LinkStack &S,SElemType &e)//删除栈顶元素，并用e返回其值（出栈）
{
	LinkStack p,r;
	p=S;
	if(!p->next)
		printf("链栈为空，操作失败!\n");
	while(p->next->next)
	{
		p=p->next;
	}
	r=p->next;
	p->next=NULL;
	e=r->data;
}

void GetTop(LinkStack S,SElemType &e)//取栈顶元素
{
	LinkStack p;
	if(!S)
		printf("操作失败!\n");
	p=S->next;
	while(p->next)
	{
		p=p->next;
	}
	e=p->data;
}

void StackEmpty(LinkStack S)//判断栈是否为空
{
	if(!S)
		printf("\n栈不存在，操作失败!\n");
	if(!S->next)
		printf("\n栈空!\n");
	else
		printf("\n栈不空!\n");
}

void VisitStack(LinkStack S)
{
	int i=1;
	LinkStack p;
	if(!S)
		printf("\n栈不存在，操作失败!\n");
	p=S->next;
	printf("\n");
	while(p->next)
	{
		printf("第%d个元素为:%d\n",i++,p->data);
		p=p->next;
	}
	printf("第%d个元素为:%d\n",i++,p->data);
}
int main()
{
	int i,n;
	LinkStack S;
	SElemType out,top;
	InitStack(S);
	Push(S);
	printf("\n请输入要出栈的元素个数：");
	scanf("%d",&n);
	printf("\n");
	for(i=0;i<n;i++)
	{
		Pop(S,out);
		printf("第%d个出栈元素为:%d\n",i+1,out);
	}
	GetTop(S,top);
	printf("\n当前栈顶元素为：%d\n",top);
	StackEmpty(S);
	VisitStack(S);
	return 0;
}