假设有文法 Z→aBa B→bB|c 则相应的递归子程序可如下: ReadToken procedure Z() procedure B() beg in beg in if token=a then Match(a): if token b then Match(b) B B Readtoken33Mth(2)° Ise f token =c else err() then Match end ese err d enc 主程序: Begin ReadToken;zend假设有文法 Z → a B a B → b B | c 则相应的递归子程序可如下： procedure Z( ) begin if token=a then Match(a)； B； Match(a) else err( ) end; procedure B ( ) begin if token = b then Match(b); B; else if token = c then Match(c); else err( ) end; 主程序：Begin ReadToken; Z end ReadToken ReadToken