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

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

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

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

4、er(c);elseerror();/錯(cuò)誤處理程序deal();處理函數(shù)主體j=i-temp;記錄十進(jìn)制小數(shù)位數(shù)voiddeal_index(charc)用來處理指數(shù)部分if(c=-)e=-1;i+;是-號時(shí)elseif(c=+)i+;是+號時(shí)elseif(isdigit(c)=false)/非數(shù)值字符時(shí)error();/錯(cuò)誤處理程序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、值字符時(shí)gotopro1;elseif(datai!=O)非結(jié)束標(biāo)志error();/錯(cuò)誤處理程序deal();處理函數(shù)主體elses_next();/確定實(shí)型voids_next()/確定實(shí)型i-;/退一個(gè)字符CJ1=實(shí)型；voidz_next()確定整型i-;/退一個(gè)字符CJ1=整型；voidlast()/計(jì)算CJ2CJ2=w*pow(double)10,e*p-j);coutvvCJIvv:vvCJ2vvendl;輸出voiderror()/程序中錯(cuò)誤處理程序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時(shí)deal_index(data+i);用來處理指數(shù)部分elseif(datai!=0)error();/錯(cuò)誤處理程序deal();處理函數(shù)主體elses_next();/確定實(shí)型elseif(datai=e|datai=E)如果是e或E時(shí)deal_index