源代码.txt

来自「PLX编译器,采用多遍式和自顶向下分析法. (内附测试代码)」· 文本 代码 · 共 18 行

program
integer a;
integer b;
integer r
begin   
a:=17;   
b:=136;  
if a<0 then a:=-a end;
if b<0 then b:=-b end;
while b>0 do
   while b >0 do
       r:=a-a/b*b;
       a:=b;
       b:=r       
   end;
   write a   
end
end