test.l

本学期编译课程需要实现L语言

/*这是一个测试程序*/

Program abc;
  Integer x,y,z;  /*变量声明*/
  Real a,b;
  array x[13,2], y[5];
  const  m=10,v=3.0, u=false;  
  function ab(Integer i,m;Real t) /*过程*/
    Begin
      t:=n+m;
      If m>n then   /*条件语句*/
	 n:=m 
      else 
         t:=m;
      While n<m do  /*循环语句*/
        Begin
          n:=n+1
        End     
    End
return m;

Begin   
  x:=1;y:=2;z:=3; a:=0.1; u:=false;       /*赋值语句*/
  write ab(x,y,z); read a;                /*write,read语句*/
  z:=4+z+(1-2+6+x)*0.3*y*5+7;	          /*复杂赋值语句*/
  If ~3<=x & y<>4 then z:=0 else x:=1 ;    /*条件表达式*/
  for i:=0+3 to 30-3 do x(5) ;            /*for语句*/
  while i<30 do begin x:=3; y:=5 end;     /*while语句*/  
  repeat x:=1 until x<y;                /*repeat语句*/
  ab(5)                                 /*函数语句*/
  
End.  /*程序结束符*/