复件 test.txt

来自「非常好的编译源代码 将一个l语言转换为中间代码 java版本」· 文本 代码 · 共 71 行

//开始一个程序
program myTest;

/**
*
*声明（函数，过程定义，说明）段：
*/
integer : i;
const integer i = 1 ;
integer : a[10,10];
integer : b[10];
integer test(integer i)
	integer : i;
	integer : j;
	integer : b[10];
		begin
			i++;
			return i;
			j++;
			return j;
		end

procedure proce
	integer : i;
		begin
			i++;
		end

/**
*
*主要程序段
*/
begin
	i++;
	i:=i/10;
	j :=10;
//for语句
	for i:=1 to 10 do
		begin
			i++;
			j:=j+1;
			j:=j+2;
		end
				;
	a [ j + 2 ] := 1;
		
//if语句
	if i==10 and j ==10
	then
		j:=10; 
	else 
		j:=15;
		
//repeat语句
	repeat 
		j:=1+j*10; 
	until
		i==17;

//while语句	
	while i==10 do
		i++;

//过程调用
	call proce;

//函数调用
	test(2);
	
	
end