语法分析实验报告.txt

鱨 20032320 . . pascal pascal := := prograp ; * := * := ab y z * := * := 0 * := 1 8 9 := var : int;const ; var : int; const ; := , := = = , * := * := := begin end. := ; := := := := + - := * / := () := if then | if then else * := = := while do := := read () := write () := begin end 1棬 2 ll(1), 1 顣 2 a a-q1|q2|.|qn first(qi) first(qj)=null (i,=, follow(*)= follow(*)=;,=, , ,:=, follow(*)=;,=, , ,:=, follow ()= follow()=b follow()=follow()=;, follow()=follow()=; follow(*)=follow(*)=, , ; follow()=follow()=e follow()=follow()=e, ; , follow()=follow()=,-,/ follow()=follow()=;,e ll(1) void init(); int now; / int n; / char kw5020; / int findinkwtab(char *); bool guanxi(); / bool tiaojian(); / bool yinzi(); / bool xiang(); / bool biaodashi(); / bool read(); / bool write(); / bool circulate(); / bool condition(); / bool fuzhiyuju(); / bool fuheyuju(); / bool yuju(); / bool zhixingyuju(); / bool shuoming(); / bool shuomingchuan(); / bool bianliang(); / bool changliang(); / bool chengxuti(); / bool chengxushoubu(); / bool chengxu(); / ; int analyse:findinkwtab(char *p)/ for(int i=0;invalue=x; accidenceq-ntype=x; strcpy(accidenceq-word,e); q+; else/ accidenceq=new accidence; int y=1; int j=0; accidenceq-nvalue=1; for(i=0;intype=34) if(stricmp(accidencei-word,e)=0) accidenceq-nvalue=accidencei-nvalue;/ break; else accidenceq-nvalue+; accidenceq-ntype=34; strcpy(accidenceq-word,e); q+; / coutntypenvaluewordnvalue=0; accidenceq-ntype=x; strcpy(accidenceq-word,e); q+; / coutntypenvalueword) e0=strn; n+; e1=strn; e2=0; x=findinkwtab(e); accidenceq=new accidence; accidenceq-nvalue=0; accidenceq-ntype=x; strcpy(accidenceq-word,e); q+; / coutntypenvaluewordnvalue=0; accidenceq-ntype=x; strcpy(accidenceq-word,e); q+; / coutntypenvalueword|strn=:) if(strn+1=) e0=strn; n+; e1=strn; e2=0; x=findinkwtab(e); accidenceq=new accidence; accidenceq-nvalue=0; accidenceq-ntype=x; strcpy(accidenceq-word,e); q+; / coutntypenvaluewordnvalue=0; accidenceq-ntype=x; strcpy(accidenceq-word,e); q+; / coutntypenvaluewordnvalue=1; for(i=0;intype=33) if(stricmp(accidencei-word,e)=0) accidenceq-nvalue=accidencei-nvalue;/ break; else accidenceq-nvalue+; accidenceq-ntype=33; strcpy(accidenceq-word,e); q+; / coutntypenvalueword n“; coutntype!=1) coutntype!=34) coutntype!=28) cout program ;n“; return true; bool analyse:shuomingchuan() if(!shuoming()return false; while(accidencenow-ntype=2) if(!shuoming() return false; coutvar:int;const ;var:int;const;n“; return true; bool analyse:shuoming() switch(accidencenow-ntype) case 3:/var now+; if(!bianliang() return false; if(accidencenow-ntype!=2