Determinar digito mayor de un numero
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.. gracias |
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:
Código:
DM := Número mod 10; |
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 |
¡Ah! Tienes razón. El ejemplo es confuso y puede ser que se refiera más bien a lo que dices tú.
// Saludos |
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 |
Hola luisito2011, también lo puedes hacer así:
Saluditos |
Hola.
Un saludo. Edito: Veo que mientras hacía los últimos retoques del código, Caro ya había puesto una solución muy similar... :) |
La franja horaria es GMT +2. Ahora son las 14:52:18. |
Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi