test.pl0

来自「C++写的编译器,内有详细注释,很好用,可以学习.」· PL0 代码 · 共 31 行

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


Program abc;

  Integer x,y,z;  /*变量声明*/
  Real a,b;

  Procedure ab(Var m,n:Integer; t:Real); /*过程*/
    Begin
      t:=n+m;
      If m>n then   /*条件语句*/
	 n:=m 
      else 
         t:=m;
      While n<m do  /*循环语句*/
        Begin
          n:=n+1
        End
    End;

Begin   
  x:=1;y:=2;z:=3; 
  Call ab(x,y,z);
  z:=4+z+(1+2+6+x)*3*y*5+7;
  If ~ 3<=x & y<>4 then z:=0; /*条件表达式*/
  y:=219;  z:=37;  x:=y*z     /*赋值语句*/
End

.  /*程序结束符*/