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.
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