test3.pl0

来自「很详细的PL0编译演示程序,学习编译的极品!」· PL0 代码 · 共 34 行

var
  a,b,c;
procedure common; 
 var c;
  procedure rest;
  begin
    c:=a / b;
    c:=a-c*b
  end;
 begin
   call rest;
   while c>0 do
     begin
 	a:=b;
	b:=c;
	call rest
     end;
   write(b)
end;
procedure q;
 var x,y;
 begin
  read(c);
  x:=a+c;
  y:=2*x;
  write(x); write(y)
 end;
begin
  read(a);
  read(b);
  call common;
  call q
end.