function.txt

用VC写的扩充的pl0文法编译器

const a=30,b=4;

var x :integer;

function f(c,d:integer):integer;
begin
   if c<d
then
	f:=c;
else
	f:=d;
end;
begin
x:=f(a,b);
write("x=",x);
end
.