testpas.txt

来自「pl0 文法 编译器 （1）扩充一维整型数组。 扩充var数组：VAR 」· 文本 代码 · 共 19 行

	const a=10;
	var b,c;
	procedure p;
		var d;
		begin
			d:=20;
			c:=d/a;
			c:=c+b;
			if a<c then c:=2*c;
                        else c:=2*c+1;	
                end;
	begin
		read (b);
		while b#0 do
			begin
				call p;							                write(2*c);
				read(b);
			end
	end.