test.txt

是一个很好的编译器

(*the PL/0 programme*)
const m = 11, n =9;                     
var x[1..3], y, z, q, r;     (*declare array*) 
bool c;                      (*declare boolean varity*)
procedure multiply;              
var a, b; 		
begin    
    a:=n; b:=y;z :=0;             
    for(b:=10;b>0;b:=b-1)
       begin
         if odd b then z := z + a ;  (*if----then -----else *)
             else  a:= 2 * a;
            break;           (*break clause*)
             b:=b+2;
             
       end
end; 
procedure divide(p,q);               
var w;
begin
	 q := 0; w := y;r := m;       
	while w>y do
	begin    
		q := 2 * q; w := w / 2;
		if q<= r then 
		begin
			r := r - w;
			q := q + 1;
		end  
                  else exit; (*else，exit clause *)
	end
end; 
procedure judgechoose ;                      
var f, g;
begin
        f := n;
	g := y;
        while f <> g do
	begin
		if f < g then f:=f*2;
		if g < f then g:=g*2;
	end
end;                         (*declare boolean varity*)

begin
	x[2] := m; y := n; call multiply;
	x[1] := 25; y := 3; call divide(m,n);
	x[3] := 34; y := 36; call judgechoose(m,n);
end.                         (*the PL/0 programme end*)