soure.txt

来自「编译原理实验：设计并实现一个Simple语言的编译器」· 文本 代码 · 共 24 行

{函数调用}
procedure add(x,y);
begin
	x:=x+y;
end;
{ 主函数}
program exp;
var a,b:integer;
begin
	a:=4*(2-3)/2;{测试优先级}
  	b:=10;
   	b:=a+b;
   	write(b);{测试输出语句}
  	if a>b then{测试if-then-else}
    		a:=b;
  	else
  		b:=a;
  	write(b);
  	call add(a,b);{调用函数}
  	write(a);
  	while a<b do{测试while-do}
     	a:=b-a*2;
  	write(a);
end.