testpl0pas.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.