eccexam1.txt

来自「snl语言是一个简单的具有嵌套过程定义的过程式语言」· 文本 代码 · 共 14 行

{测试公共表达式优化部分的例子；检测一般变量}

program  pp
var  integer  A,B,C,D,E,F,G;
    
begin
  F:=1;
  A:=B*C+C*B;
  D:=B;
  E:=D*C+B*C;
  B:=F;
  G:=B*C+B*C

end.