無符號數(shù)的詞法分析程序

1、#include#include#include#includeusingnamespacestd;intw=0;/尾數(shù)累加器intp=0;/指數(shù)累加器intj=0;/十進制小數(shù)位數(shù)計數(shù)器inte=1;/用來記錄十進制數(shù)的符號，當(dāng)指數(shù)為正時為1，為負時為-1inti=0;/用來標(biāo)志元素位置intd=0;/用來表示每個數(shù)值型元素對應(yīng)的數(shù)值constintN=40;用來確定輸入識別符的最大長度chardataN;存放輸入的識別符boolis_digit;/標(biāo)志是否是數(shù)字stringCJ1;確定是整形還是實型doubleCJ2;/記數(shù)值/函數(shù)聲明lengthisvoidcheck(charc);/檢

2、查首字母是否是數(shù)字的函數(shù)voiddeal_integer(charc);/處理識別符的整數(shù)部分voiddeal_point(charc);/用來處理小數(shù)部分voiddeal_index(charc);/用來處理指數(shù)部分voids_next();/確定實型voidz_next();確定整型voidlast();/計算CJ2voiderror。;/程序中錯誤處理程序voiddeal();處理函數(shù)主體intmain()/主函數(shù)lengthiscoutdata;deal();處理函數(shù)主體last();/計算CJ2system(pause);return0;voidcheck(charc)/判斷輸入的首

3、字母是否是數(shù)字is_digit=isdigit(c);while(is_digit!=true)輸入的首字母不是數(shù)字時coutvvnError!Tryagain.vvendl;要求重新輸入cindata;check(data0);voiddeal_integer(charc)處理識別符的整數(shù)部分d=(int)c-48;w=w*10+d;i+;if(isdigit(datai)!=O)下一個仍是數(shù)值時，調(diào)用程序本身deal_integer(datai);voiddeal_point(charc)用來處理小數(shù)部分inttemp=i;if(isdigit(c)!=0)是數(shù)值字符時deal_integ

4、er(c);elseerror();/錯誤處理程序deal();處理函數(shù)主體j=i-temp;記錄十進制小數(shù)位數(shù)voiddeal_index(charc)用來處理指數(shù)部分if(c=-)e=-1;i+;是-號時elseif(c=+)i+;是+號時elseif(isdigit(c)=false)/非數(shù)值字符時error();/錯誤處理程序deal();處理函數(shù)主體elsed=(int)c-48;把輸入字符轉(zhuǎn)換為整型gotopro2;if(isdigit(datai)!=0)pro1:d=(int)(datai)-48;pro2:p=p*10+d;i+;if(isdigit(datai)!=O)是數(shù)

5、值字符時gotopro1;elseif(datai!=O)非結(jié)束標(biāo)志error();/錯誤處理程序deal();處理函數(shù)主體elses_next();/確定實型voids_next()/確定實型i-;/退一個字符CJ1=實型；voidz_next()確定整型i-;/退一個字符CJ1=整型；voidlast()/計算CJ2CJ2=w*pow(double)10,e*p-j);coutvvCJIvv:vvCJ2vvendl;輸出voiderror()/程序中錯誤處理程序coutvvnError!Tryagain.vvendl;重新輸入數(shù)據(jù)cindata;p=0;w=0;j=0;/所有全局變量重新初始化e=1;i=0;d=0;/exit(0);voiddeal()check(dataO);判斷輸入的首字母是否是數(shù)字deal_integer(datai);處理識別符的整數(shù)部分if(datai=.)deal_point(data+i);用來處理小數(shù)部分if(datai=e|datai=E)如果是e或E時deal_index(data+i);用來處理指數(shù)部分elseif(datai!=0)error();/錯誤處理程序deal();處理函數(shù)主體elses_next();/確定實型elseif(datai=e|datai=E)如果是e或E時deal_index