pl0soucode1.txt

用vc编写的基本pl/0语言,简单易懂.

const a=10;
var b,c;
procedure p;
  begin 
    c:=b+a;
  end;
begin
  
  read(b);
  while b#0 do
    
          begin
             call p; 
             write(2*c);
             read(b)
          end
    
end.