Ayuda con un ejercicio

[luisito2011]

hola.. soy yo de nuevo , bueno ahora estoy con un problema..
//aca el problema.. De 3 numeros ingresados por teclado..mostrar el mayor..
ejemplo.. si N1=25 , N2=26 , N3=27,(N1 son los numeros ingresados por teclado) lo q me tiene que mostrar es ''N3''
yo ya tengo el programa hecho .. pero no me corre , me sale error en la parte donde dice mayor de la console

//Esta es en la Unit//

Código Delphi [-]
 
unit caja1;
interface
  type
  CNumeroNatural = Class
  valor:integer;
  constructor crear;
  Function  ObtenerValor :integer;
  function mayor(a,b:cnumeronatural):integer;
  Procedure AsignarValor( NuevoValor : integer);
  End;
implementation
 Constructor CNumeroNatural.Crear;
Begin
     Valor := 0;
End;
    Function  CNumeroNatural.ObtenerValor : integer;
Begin
     Result := Valor;
End;
Procedure CNumeroNatural.AsignarValor( NuevoValor : integer);
Begin
     Valor := NuevoValor;
End;
  function cnumeronatural.mayor(a,b:cnumeronatural):integer;
var   m:integer;
  begin
    if a.obtenervalor > b.obtenervalor then
    m:=a.obtenervalor
    else
    m:=b.obtenervalor;
    mayor:=m;
   end;
end.




 
// Esta es en la Aplication. Console//

Código Delphi [-] 
var
  A,n1,n2,n3:cnumeronatural;
  x:integer;
  begin
  n1:=cnumeronatural.crear;
  n2:=cnumeronatural.crear;
  n3:=cnumeronatural.crear;
  Writeln('Digite un numero');
  readln(x);
  N1.AsignarValor(x);
  Writeln('Digite un numero');
  readln(x);
  N2.AsignarValor(X);
  Writeln('Digite un numero');
  readln(x);
  N3.AsignarValor(X);
  x:=mayor(N1,N2);
  a.asignarvalor(x);
  x:=Mayor(a,n3);
 if N1.ObtenerValor = x  then writeln('N1');
  if N2.ObtenerValor = x  then writeln('N2');
   if N3.ObtenerValor = x  then writeln('N3');
  readln;

Porfa ayuda... ya intente.. todo lo que pude.. hasta puse la function de mayor.. en la console... claro borrando despuej.. el de la unit.. aun asi no me corre.. bueno
graciaj.. y saludoj

[[duilioisola]]

No tengo Delphi para probar tu código. Sería de mucha ayuda saber el mensaje del error que te da.
Solo con el codigo no me doy cuenta del error.

Quizás se deba a como asignas el resultado de la función:

Código Delphi [-]
function cnumeronatural.mayor(a,b:cnumeronatural):integer;
var m:integer;
begin
   if a.obtenervalor > b.obtenervalor then
      m := a.obtenervalor
   else
      m := b.obtenervalor;
   {Aqui parece que llamas a la función mayor sin parámetros.
    Recuerda que estás dentro de un objeto, no en una función normal
   mayor := m;
   }
   // Aqui asigno el resultado.
   Result := m; 
end;

[luisito2011]

Empezado por luisito2011

x:=mayor(N1,N2);
a.asignarvalor(x);
x:=Mayor(a,n3);

donde esta rojo.. es donde me sale error
..(E2003 undeclared identifier:'Mayor')

[ecfisa]

Hola Luisito2011.

El error te lo genera por que estas llamando a un método sin indicar el objeto al que está asociado.

Mirá los cambios en rojo:

Código Delphi [-]
var
  A,n1,n2,n3:cnumeronatural;
  x :integer;
begin
  n1:= CnumeroNatural.crear;
  n2:= CnumeroNatural.crear;
  n3:= CnumeroNatural.crear;
  A := CNumeroNatural.Crear;
  Write('Digite un numero N1:'); 
  Readln(x);
  n1.AsignarValor(x);
  Write('Digite un numero N2:'); 
  Readln(x);
  n2.AsignarValor(X);
  Write('Digite un numero N3:'); 
  Readln(x);
  N3.AsignarValor(X);
  x:= A.Mayor(N1,N2);
  A.Asignarvalor(x);
  x:= A.Mayor(a,n3);
  Write('El mayor es ');
  if N1.ObtenerValor = x  then writeln('N1')
   else if N2.ObtenerValor = x  then writeln('N2')
     else writeln('N3');
  readln;
end.

Un saludo.

[luisito2011]

miechi... bueno eso del a:=cnumeronatural.crear;
me olvide copiarlo.. bueno lo unico que no entiendo ..
por que es ''A.mayor''...
si me lo explicara porfa....

[ecfisa]

Empezado por luisito2011

miechi... bueno eso del a:=cnumeronatural.crear;
me olvide copiarlo.. bueno lo unico que no entiendo ..
por que es ''A.mayor''...
si me lo explicara porfa....

Hola Luisito2011.

A diferencia de una función o procedimiento, para llamar a un método es preciso hacer referencia al objeto asociado (como te mencioné arriba).
Un método es una subrutina asociada o a una clase (método de clase) o a un objeto (método de instancia).

Como en tu código original tenías declarada la variable 'A' de tipo CNumeroNatural sin utilizar, la aproveché para poder llamar al método 'Mayor' y
sólo para eso. Pero podría haber sido cualquier otra del mismo tipo.
Lo que no podés hacer, es utilizar el método 'Mayor' sin una instancia de CNumeroNatural, ya que en la declaración de tu código, la función 'Mayor'
no existe fuera de ella.


Un saludo.