Determinar digito mayor de un numero

[luisito2011]

ola.. soy yo de nuevo aca con un problemita que no puedo resolver

//Pida un numero por teclado y determine cual es el valor del digito mayo de dicho numero //
ejemplo .. de 123457
DigM:=7;
si me lo puden agregar.. a esa unidad y en console..

Código Delphi [-]
 
Unit
interface
type
cnumeronatural=class
valor:integer;
  constructor crear;
  procedure asignarvalor(nuevovalor:integer);
  function obtenervalor:integer;
  Function NumeroDigitos : integer;

end;
implementation
constructor cnumeronatural.crear;
begin
  valor:=0;
end;
procedure cnumeronatural.asignarvalor(Nuevovalor:integer);
begin
  valor:=nuevovalor;
end;

function cnumeronatural.obtenervalor:integer;
begin
result:=valor;
end;

 
 Function  CNumeroNatural.NumeroDigitos : integer;
Var
   N,c :integer ;
Begin
     N := Valor;
     C := 0;
     while valor >0 do
       begin
        valor := valor Div 10;
        c:=c+1;
       end;
    result:=c;
 End;
  
end.

gracias

[roman]

Hubiera pensado que el dígito mayor es el de la extrema izquierda, pero en fin, si lo que deseas es el dígito de la extrema derecha entonces:

DM := Número mod 10;

// Saludos

[[oscarac]]

Juat ?????

entiendo que si tienes un numero (compuesto por varios numeros) quieres saber el de mayor valor?

Ejemplo

Numero := '5231476'

Resultado = 7

eso?
o es otra cosa lo que deseas

[roman]

¡Ah! Tienes razón. El ejemplo es confuso y puede ser que se refiera más bien a lo que dices tú.

// Saludos

[[oscarac]]

En todo caso lo que puedes hacer es lo siguiente

descomponer el numero en digitos

valor = Valor del Primer digito
for 2 hasta la cantidad de digitos
Digito = Copy (cadena,x,1)
Si digito > Valor
Valor := Digito
endfor

al final el mayor digito se quedara en valor

[Caro]

Hola luisito2011, también lo puedes hacer así:

Código Delphi [-]
function cnumeronatural.DigitoMayor(numero : Integer) : Integer;
var
  Mayor, Digito, Num : Integer;
begin
  Mayor := -1;
  Num := numero;
  while Num > 0 do
   begin
    Digito := Num Mod 10;
    Num := Num Div 10;
    if Digito>Mayor then
     Mayor:=Digito;
   end;
  result:=Mayor;
end;

Saluditos

[ecfisa]

Hola.

Código Delphi [-]
function MayorDigito(Numero: Integer): Integer;
var
 Digito: Integer;
begin
  Result:= -1;
  while Numero > 0 do
  begin
    Digito:= Numero mod 10;
    Numero:= Numero div 10;
    if Digito > Result then
      Result:= Digito;
  end;
end;

Un saludo.

Edito: Veo que mientras hacía los últimos retoques del código, Caro ya había puesto una solución muy similar...