[delphi] visibilidad y alcance de identificadores

[franco_cvm]

necesitaría su ayuda con un ejercicio del practico, que verdaderamente no entiendo, dice:

crear un procedimiento que tenga dos parámetros o argumentos en la lista de llamada: un parámetro que pasa por valor y corresponde con el valor de n y otro parámetro que pasa por referencia, en el cual se carga el valor calculado de n!. analizar los efectos secundarios o colaterales de usar este procedimiento en vez de usar la función anterior.

cuando dice la funcion anterior, se refiere a esta:

Código Delphi [-]
function factorial (n:integer):integer;
var
i,f:integer;
begin
f:=1;
for i:= 2 to n do
f:=f*i;
factorial:=f;
end;

o a esta:

Código Delphi [-]
function factorial (n:integer):integer;
begin
if n<= 1 then
factorial:=1
else factorial:=n*factorial(n-1);
end;

el procedimiento que me pide el ejrcicio( esta mal seguro):

Código Delphi [-]
procedure factorial(n:integer;var n1:integer);
begin
n:=StrToInt(edit1.text);
if n<=1 then
begin
factorial:=1;
n1:=factorial;
end;
if n>1 then
begin
factorial:=n*factorial(n-1);
n1:=factorial;
end;
end;

[franco_cvm]

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.

[Casimiro Notevi]

¿Y tú qué opinas?

[Casimiro Notevi]

Y no repitas hilos, gracias

Te recuerdo nuestras normas.



.

[[nlsgarcia]]

franco_cvm,

Empezado por franco_cvm

...procedimientos y funciones...visibilidad y alcance de identificadores...

Revisa esta información:

1- Understanding and Using Functions and Procedures

2- Procedures and Functions (Delphi)

3- Marco Cantu Essential Pascal Chapter 6 : Procedures and Functions

4- Marco Cantu Essential Pascal Chapter 11 : Program and Units

5- Delphi For Beginners: Object Pascal Variable Scope

6- Delphi Basics - Variables

7- Libros y tutoriales para aprender Delphi

Espero sea útil

Nelson.

[franco_cvm]

¿que hilo repetí?

[Casimiro Notevi]

Con repetir, me refería a repetir preguntas del tipo: "hacedme estos ejercicios".
Los hilos en sí, no estaban repetidos, sino la temática y la forma de realizar las preguntas, que no son válidas según las normas de los foros, no está bien que vengas a decir: "Tengo estos ejercicios, dadme una solución", eso demuestra poco interés por tu parte en esforzarte por aprender.
Saludos.

[franco_cvm]

podría ser este el código que busco??? con respecto a lo de visibilidad y alcance no logro hacerlo.

Código Delphi [-]
procedure factorial(n:integer;var res:integer);
var
i,a:integer;
begin
if n<=1 then
res:=1
else
begin
a:=1;
for i:=1 to n do
a:=a*(i);
res:=a;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
a,res:integer;
begin
a:=StrToInt(edit1.Text);
factorial(a,res);
showmessage(IntToStr(res));
end;

[Casimiro Notevi]

Empezado por franco_cvm

podría ser este el código que busco??? con respecto a lo de visibilidad y alcance no logro hacerlo.

Es que no se trata de "hacer", sino de "saber".
Para saber la respuesta a tu pregunta, con los enlaces que te ha pasado nlsgarcia tienes más que suficiente porque está explicado perfectamente.
Obviamente, tienes que leerlos.

[franco_cvm]

están todos en ingles