prim.lst

经过修改的PL0编译程序源码

Source file: prim.pl0

  1  const ober = 10000;
  2  var
  3     a,b,c,weiter;
  4  
  5  begin
  6     a:= 1;
  7     while a <= ober do
  8     begin
  9        b:= 2;
 10        if b < a then weiter:= 1;
 11        while weiter = 1 do
 12        begin
 13           c:= a/b;
 14           if a - c*b = 0 then weiter:= 0;
 15           b:= b+1;
 16           if b = a then weiter:= 0;
 17        end;
 18        a:= a+1
 19     end;
 20  end.
 21