error.pl

来自「Win32 Console下C++实现的PL/0语言编译程序」· PL 代码 · 共 45 行

const m=7,n=85
var x,y,z,q,r;
procedure multiply;
  var a,b;
begin
  a:=u;
  b:=y;
  z:=c
  while b>0 do
  begin
    if odd b do
      z:=z+a;
    a:=2a;
    b:=b/2;
  end
end;
procedure divide
   var w;
   const two = 2, three:=3;
begin
 r=w;
 q:=0;
 w:=y;
 while w<=r do w:=two*w;
 while w>y
   begin q:=(2*q;w:=w/2);
   if w<=r then
     begin r:=r-2 q:q+1
     end
end
end;
procedure gcd;
var f,g;
begin f:=x;g:=y
 while f<>g do
begin if f<g then g:=g-f;
if g<f then g:=f-g;
z:=f
end;
begin
 x:=m;y:=n;call multiply;
 x:25;y:=3;call divide;
 x:=84;y:36;call gcd;
 call x; x:=gcd;gcd=x
end.