el ejercicio pide determinar que variables y parametros son visibles desde la funcion p, el procedimiento q y el procedimiento test. y en que orden se imprimira en memo1.
el ejercicio:
Código Delphi
[-]procedure test;
var
x,y,z:integer;
function q(var y:integer):integer;
var
x:integer;
begin
x:=8;
y:=y+1;
memo1.lines.add(y);
q:=y+x;
end;
procedure p(x:integer; var y:integer);
begin
y:=2;
z:=x+y;
memo1.lines.add(z);
memo1.lines.add(q(z));
memo1.lines.add(z);
end;
begin
x:=1;
y:=3;
z:=20;
p(x,y);
memo1.lines.add(x,' ',y,' ',z)
end.