【正文】 return temp。 bool hasop,haspar1,haspar2,hasresult。 hasop = haspar1 = haspar2 = hasresult = false。 hasop = true。 haspar2 = true。 isjump = true。 else s,。 else if(hasresult) sresult)endl。 struct Estruct { string lexval。 int falselist。 Mstruct(){quad=0。 list = RSS[tmp].jump。 else while(RSS[tmp].jump) { tmp = RSS[tmp].jump。 for(int i=100。 } ()。 struct Nstruct { int nextlist。 include include string include include include include define deal(s) if(!(s)){return false。 int pos。 WORD(){normal=true。return false。 att=。 if(line[2]=39。line[2]=39。)*10+(line[2]39。 } else type = line[1]39。,39。i++) { if(line[i]==39。 } i++。amp。) { pos = pos*10 + (line[i]39。 } return true。 bool Sn(Sstruct amp。 bool SDn()。 bool SIF(Sstruct amp。 bool SW(Sstruct amp。 bool B(Bstruct amp。 bool E(Estruct amp。 bool A()。 coutsendl。 bool ret = true。} else pdeal(())。 if(!=$){error(缺少語句結束標志 )。 pdeal()。 ret = false。Sn|null bool Sn(Sstruct amp。amp。amp。 error(語法錯誤 )。 backpatch(,quad)。} else deal(())。 } //SSD|SA|SIF|SW|SC bool S(Sstruct amp。 case $var: =0。 case $while:return SW(ss)。SDn|null bool SDn() { deal()。amp。 deal(())。 } } if(==$begin)break。 if(!=$var) { error(語法錯誤 )。 if(!= $int ) { error(語法錯誤 )。 if(!=$flag) { error(語法錯誤 )。 deal()。 if(!=$ma)return true。 return false。 } //SAi:=E bool SA() { deal()。} else{ result = 。return false。 Estruct es。 RSS[quad].setpar1()。ss) 28 { deal()。 }else ()。 if( != $then ) { ret = false。 coutifthen 語句嵌套 。 if(!S(ss1))return false。 return ret。 RSS[].setjump(0)。 if(!SELSE(ss2))ret =false。 = merge(merge(,),)。 bool ret = true。 coutifthenelse 語句嵌套 。 deal()。 }else ()。 Bstruct bs。 }else ()。 if(!S(ss))return false。 RSS[swquad].setjump()。 return ret。 if(!=$begin){error(復合語句缺少 begin)。 if(!Sn(ss))ret = false。} else ()。 } //BEAEBT|NOT B|(B)BT bool B(Bstruct amp。 deal()。 }else { ()。 }else if(== $not) { ()。 = 。 if(!A())return false。 Estruct es2。 RSS[quad].setjump(0)。 quad = Nextquad()。 if(!BT(bs))return false。 } //BTDB|null bool BT(Bstruct amp。 33 ()。 if(!D()) return true。 return false。 RSS[quad].setop(j)。 RSS[quad].setpar2()。 int quad = Nextquad()。 op = j+op。 } else if(==$flag||==$num) { Estruct es1。 Bstruct bsa。 } if(!BT(bs)) ret = false。 if(!= $right ) { error(缺少括號 )。 bool ret = true。 31 deal()。 if(!=$end){error(復合語句缺少 end)。} else ()。ss) { deal()。 backpatch(,)。 int swquad = Nextquad()。 Mstruct m2。 if(!=$do) { error(缺少 do)。 Mstruct m1。 if(!=$while) { error(缺少 while)。 } //SWwhile B do S bool SW(Sstruct amp。 ()。 } } //SELSEnull|else S2 bool SELSE(Sstruct amp。 backpatch(,)。 = quad。 = Nextquad()。 if(!=$else) { = merge(,)。 = quad。 }else ()。 Bstruct bs。 if(!= $if ) { ret =false。 return true。 int quad = Nextquad()。 ()。 } deal()。 if(!= $flag ){error(語法錯誤 )。 deal()。 deal()。 } //SDT null|,iSDT bool SDT() { deal()。 }else ()。 }else ()。 }else ()。 } //SDvar int iSDT bool SD() { deal()。 ret = false。 deal(())。 bool ret = true。 default: error(語法錯誤 )。 case $flag: =0。 bool ret = true。 deal()。 if(!=$){ret = false。 deal(())。amp。amp。 bool ret = true。 24 return ret。 pdeal()。} else pdeal(())。ret = false。 if(!= $program ){error(缺少程序定義語句 )。SDn SC。 bool D()。 bool ET(Estruct amp。 bool BT(Bstruct amp。 23 bool SC(Sstruct amp。 bool SELSE(Sstruct amp。 bool SDT()。 bool S(Sstruct amp。 //定義函數 bool error(string s)。)。line[i]=39。 while(line[i]=39。)j++。 for(i=0。 for(。)。) { type = (line[1]39。amp。 int l = ()。(39。