【文件属性】：
文件名称：无符号数的词法分析程序
文件大小：33KB
文件格式：DOC
更新时间：2012-05-14 17:44:11
无符号数的词法分析程序
#include
#include
#include
#include
using namespace std;
int w=0; //尾数累加器
int p=0; //指数累加器
int j=0; //十进制小数位数计数器
int e=1; //用来记录十进制数的符号，当指数为正时为1，为负时为-1
int i=0; //用来标志元素位置
int d=0; //用来表示每个数值型元素对应的数值
const int N=40;//用来确定输入识别符的最大长度
char data[N];//存放输入的识别符
bool is_digit; //标志是否是数字
string CJ1;//确定是整形还是实型
double CJ2;//记数值
//函数声明
void check(char c);//检查首字母是否是数字的函数
void deal_integer(char c);//处理识别符的整数部分
void deal_point(char c);//用来处理小数部分
void deal_index(char c);//用来处理指数部分
void s_next();// 确定实型
void z_next();//确定整型
void last();// 计算 CJ2
void error();//程序中错误处理程序
void deal();//处理函数主体
int main(){ //主函数
cout<<"please input your data,and its maximum length is "<>data;
deal();//处理函数主体
last();// 计算 CJ2
system("pause");
return 0;
}
void check(char c) //判断输入的首字母是否是数字
{
is_digit=isdigit(c);
while(is_digit!=true){//输入的首字母不是数字时
cout<<"\nError! Try again.."<>data;
check(data[0]);
}
}
void deal_integer(char c){//处理识别符的整数部分
d=(int)c-48;
w=w*10+d;
i++;
if(isdigit(data[i])!=0)//下一个仍是数值时，调用程序本身
deal_integer(data[i]);
}
void deal_point(char c){//用来处理小数部分
int temp=i;
if(isdigit(c)!=0)//是数值字符时
deal_integer(c);
else
{ error(); //错误处理程序
deal();//处理函数主体
}
j=i-temp;//记录十进制小数位数
}
void deal_index(char c){//用来处理指数部分
if(c=='-') {e=-1;i++;}//是'-'号时
else {if(c=='+') i++;//是'+' 号时
else {
if(isdigit(c)==false) //非数值字符时
{ error();//错误处理程序
deal();//处理函数主体
}
else
{ d=(int)c-48;//把输入字符转换为整型
goto pro2;}
}
}
if(isdigit(data[i])!=0)
pro1: d=(int)(data[i])-48;
pro2: p=p*10+d;
i++;
if(isdigit(data[i])!=0)//是数值字符时
goto pro1;
else if(data[i]!='\0'){//非结束标志
error();//错误处理程序
deal();//处理函数主体
}
else s_next(); // 确定实型
}
void s_next(){// 确定实型
i--;//退一个字符
CJ1="实型";
}
void z_next(){//确定整型
i--;//退一个字符
CJ1="整型";
}
void last(){// 计算 CJ2
CJ2=w*pow((double)10,e*p-j);
cout<>data;
p=0;w=0;j=0; //所有全局变量重新初始化
e=1;i=0;d=0;
//exit(0);
}
void deal(){
check(data[0]);//判断输入的首字母是否是数字
deal_integer(data[i]);//处理识别符的整数部分
if(data[i]=='.')
{ deal_point(data[++i]);//用来处理小数部分
if(data[i]=='e'||data[i]=='E')//如果是e或E时
deal_index(data[++i]);//用来处理指数部分
else if(data[i]!='\0')
{ error();//错误处理程序
deal();//处理函数主体
}
else s_next();// 确定实型
}
else { if(data[i]=='e'||data[i]=='E')//如果是e或E时
{ deal_index(data[++i]);//用来处理指数部分
//CJ1="整型";
}
else if(data[i]!='\0'){ //非结束标志
error();//错误处理程序
deal();//处理函数主体
}
else
z_next();//确定整型
}
}
