第2章PL0编译的实现试题.ppt

第2章 PL/0编译程序的实现 本章目的：以PL/0编译程序为实例,学习编译程序实现的基本步骤和相关技术 1 PL/0编译程序的结构 2 PL/0编译程序的分析工作 (词法，语法和语义）实现 3 PL/0编译程序的错误处理方法 4 目标代码生成和类pcode代码解释器 1. PL/0编译程序的结构 PL/0语言 PL/0语言：PASCAL语言的子集 PL/0程序示例 PL/0的语法描述图 PL/0语言的EBNF表示 PL/0程序示例 CONST A=10; （* 常量说明部分 *）  VAR B,C; （* 变量说明部分 *） PROCEDURE P; （* 过程说明部分 *） VAR D;（* P的局部变量说明部分 *） PROCEDURE Q; （* P的局部过程说明部分 *） VAR X; BEGIN READ(X); D:=X; WHILE X#0 DO CALL P; END; BEGIN WRITE(D); CALL Q; END; BEGIN CALL P; END. 输入圆柱的半径和高，计算一些面积、体积等 var r, h, len, a1, a2, volumn; begin read(r); read(h); len := 2 * 3 * r; a1 := 3 * r * r; a2 := a1 + a1 + len * h; volumn := a1 * h; write(len); write(a1); write(a2); write(volumn); end. 计算最大公约数 var m, n, r, q; { 计算m和n的最大公约数 } procedure gcd; begin while r#0 do begin q := m / n; r := m - q * n; m := n; n := r; end end; begin read(m); read(n); { 为了方便，规定m = n } if m n then begin r := m; m := n; n := r; end; begin r:=1; call gcd; write(m); end; end. pl/0程序--递规调用 var n; procedure rec; begin if n # 0 then begin write(n); n := n - 1; call rec; end; end; begin read(n); call rec; end. 计算 sum = 1! + 2 ! + ... + n!, n从控制台读入 var n, m, fact, sum; { 递规计算 fact = m! } procedure factorial; begin if m 0 then begin fact := fact * m; m := m - 1; call factorial; end; end; begin { 读入n } read(n); sum := 0; while n 0 do begin m := n; fact := 1; call factorial; sum := sum + fact; n := n - 1; end; { 输出n !} write(sum); end. PL/0语言的EBNF表示 构成EBNF的元素—（非终结符，终