PTA作业7-17 符号配对

7-17 符号配对 (20分)
请编写程序检查C语言源程序中下列符号是否配对：/与/、(与)、[与]、{与}。

输入格式:
输入为一个C语言源程序。当读到某一行中只有一个句点.和一个回车的时候，标志着输入结束。程序中需要检查配对的符号不超过100个。

输出格式:
首先，如果所有符号配对正确，则在第一行中输出YES，否则输出NO。然后在第二行中指出第一个不配对的符号：如果缺少左符号，则输出?-右符号；如果缺少右符号，则输出左符号-?。

输入样例1：

void test()
{
    int i, A[10];
    for (i=0; i<10; i++) /*/
        A[i] = i;
}
.

输出样例1：

NO
/*-?

输入样例2：

void test()
{
    int i, A[10];
    for (i=0; i<10; i++) /**/
        A[i] = i;
}]
.

输出样例2：

NO
?-]

输入样例3：

void test()
{
    int i
    double A[10];
    for (i=0; i<10; i++) /**/
        A[i] = 0.1*i;
}
.

输出样例3：

YES

#include<stdio.h>
#include<malloc.h>
#include<stdlib.h>
#include<iostream>
#include<string>
using namespace std;

//库函数头文件包含
#include<stdio.h>
#include<malloc.h>
#include<stdlib.h>

//函数状态码定义
#define TRUE        1
#define FALSE       0
#define OK          1
#define ERROR       0
#define INFEASIBLE -1
#define OVERFLOW   -2

#define STACK_INIT_SIZE 100
#define STACKINCREMENT 10 
 
typedef int  Status;
typedef char  SElemType; //栈元素类型 

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

//初始化与销毁
Status InitStack(SqStack &S)
{
	S.base=(SElemType*)malloc(STACK_INIT_SIZE*sizeof(SElemType));
	if(!S.base) exit(OVERFLOW);//构造失败 
	 S.top=S.base;//空栈
	 S.stacksize=STACK_INIT_SIZE;
	 return OK; 
} 
 
Status DestroyStack(SqStack &S)
{
 	free(S.base);
 	S.base=NULL;
 	S.top=NULL;
 	S.stacksize=0;
 	return OK;
}
 //清空栈 
Status ClearStack(SqStack &S)
{
 	S.top=S.base;//保留首地址
	 return OK; 
}
 //入栈
Status Push(SqStack &S,SElemType e)
 //插入e为栈顶元素 
{
 	if(S.top-S.base==S.stacksize)//栈满重新开辟空间 
 	{
 		S.base=(SElemType*)realloc(S.base,(STACKINCREMENT+S.stacksize)*sizeof(SElemType));
 		if(!S.base) exit(OVERFLOW);
 		S.top=(S.base+S.stacksize);
 		S.stacksize=S.stacksize+STACKINCREMENT;
	}
    *S.top=e;
	S.top++;
	return OK;
} 
  
 //出栈
Status Pop(SqStack &S,SElemType &e)
{
 	if(S.base==S.top) return ERROR;
 	e=*(S.top-1);
 	S.top--;
 	return OK;
} 
//判栈空 
Status StackEmpty(SqStack &S)
{
	if(S.top==S.base)//空栈 
	{
		return TRUE;
	}
	else return FALSE;
}

//求栈长
int StackLength (SqStack S)
{
	int i=0;
	SElemType *p;
	p=S.top;
	while(p!=S.base)
	{
		p--;i++;
	}
	return i;
}

//遍历栈
Status StackTraverse(SqStack S,Status (*visit)(SElemType)) 
{
	SElemType *p;
	p=S.base;
	while(p<S.top)
	{
		if(visit(*p)==ERROR)return ERROR;
		p++;
	}
	return OK;
}
 
Status StackPrintElem(SElemType e)
{
  printf("%d\n",e);
  return OK;
}

SElemType GetTop(SqStack &S)
{
	if(S.top!=S.base)
	return *(S.top-1);
}

//修改栈顶元素的值
Status SetTopElem(SqStack &S,SElemType e) 
{
	if(S.base==S.top)
	{
		return ERROR;
	}
	*(S.top-1)=e;
	return OK;
}

//思路 ：先将代码中所有的符号保存下来，其中/*和*/分别用<和>代替，左符号进栈，每遇到一次右符号，就看栈顶符号是否配对，是则出栈，否则不做处理，最后判断是否栈空，是则合法，否则右符号缺失 
//注意： pta中c++平台gets函数编译不通过，此处用getline函数代替 
Status match()
{
	SqStack S;
    int haserr=0;
	InitStack(S);
	SElemType a,c; 
	SElemType e;
	char temp[250];
	int i=0,j=0;
    string str;
    while(getline(cin,str))
	{
		if(str[0]=='.'&&!str[1])break;
		for(int i=0; str[i]; i++)
		{
			if(str[i]=='('||str[i]=='['||str[i]=='{'||str[i]==')'||str[i]=='}'
			        ||str[i]==']') temp[j++]=str[i];
			else if(str[i]=='/'&&str[i+1]=='*')
			{
				temp[j++]='<';//  将/*替换为<
				i++;
			}
			else if(str[i]=='*'&&str[i+1]=='/')
			{
				temp[j++]='>';
				i++;
			}
		}
	}//以上是保存括号
    /*for(j=0;j<100;j++)
	{
		printf("%c",temp[j]);
	} */
    j=0;
	while(c=temp[j])             
	{
		switch(c)
		{
			case'(':
			case'{':
			case'[':
			case'<':
				{
    				Push(S,c); break;
				}
			case']':
			{
				a=c;
				if(StackEmpty(S))
				{
					haserr=1;break;
    			}
    			else
    			 {
				    e=GetTop(S);
    				if(e=='[')
    				{Pop(S,e);}
					 else 
					  {
					    haserr=1;
					  }
    			  break;
				}
			}
				
			case'}':
			{
				a=c;
				if(StackEmpty(S))
				{
					haserr=1;break;
    			}
    			else
    			 {
				    e=GetTop(S);
    				if(e=='{')
    				{Pop(S,e);}
					 else 
					  {
					    haserr=1;
					  }
    			  break;
				}
			}
			case')':
			{
				a=c;
				if(StackEmpty(S))
				{
					haserr=1;break;
    			}
    			else
    			 {
				    e=GetTop(S);
    				if(e=='(')
    				{Pop(S,e);}
					 else 
					  {
					    haserr=1;
					  }
    			  break;
				}
				/*if(!StackEmpty(S)&&GetTop(S)=='(
				{
					Pop(S,e);break;
    			}
    			else
    			{	
					haserr=1;
					a=c;	
    			    break;
				}*/
			}
			case'>':
			{
				a=c;
				if(StackEmpty(S))
				{
					haserr=1;break;
    			}
    			else
    			 {
				    e=GetTop(S);
    				if(e=='<')
    				{Pop(S,e);}
					 else 
					  {
					    haserr=1;
					  }
    			  break;
				}
			}
			default:
			break;	
		}
		++j; 
		if(haserr == 1) break;//一旦出现不配对，终止
	}
	if(!StackEmpty(S))//非空 
	{
		printf("NO\n");
		if(GetTop(S)=='<')//右缺失
		{
			printf("/*-?\n");
		 } 
		 else printf("%c-?",GetTop(S));
	}
	else if(haserr==1)
	{
		switch(a)//左缺失
		{
			case')' :
			{
				printf("NO\n");
				printf("?-)");
				break;
			}
			case']' :
			{
				printf("NO\n");
				printf("?-]");
				break;
			}
			case'}' :
			{
				printf("NO\n");
				printf("?-}");
				break;
			}
			case'>' :
			{
				printf("NO\n");
				printf("?-*/");
				break;
			}
			default:
			break;
		}
	}
	else
	{
		printf("YES\n");
	}
	return OK;
}
int main()
{
	match();
	return 0;
}