综合测试.txt

来自「一个pascal子集编译器。输入pascal原程序」· 文本 代码 · 共 28 行

program mini;
const con1=100;
var var1,var2;
	procedure add(a,b);
	begin
		var1:=a+b
	end
	procedure writing;
	var var3;
		procedure reading;
		var var4;
		begin
		read(var1,var2,var3,var4) 
		end
	begin
	if var3<50  then write(50)
	end
begin
call add(con1,200);
call writing;
call reading;
while var1<con1 do 
	begin
	var1:=(var1+var4)*30;
	if var1<>con1  then var1:=var1/var4*40
	else var1:=1000
	end
end.