Jump to content

amontalanolla

Members
  • Posts

    5
  • Joined

  • Last visited

  • Country

    Spain

Everything posted by amontalanolla

  1. ¡¡MUCHAS GRACIAS!! me gustaría saber tambien, como ahora estos números ( los de la lista) cumplen o no una condición, es decir, si cumplen o no una funcion VBA que ya tengo programada. Y una vez sabido, que me escriba aquellos que sí cumplen la condición. --->esta es la función que he programado: Function granalcance(numero As Long) As Boolean Dim factor As Long Dim multip As Long Dim resto As Long factor = 2 resto = numero If numero = 1 Then End If Do Until resto = 1 If resto Mod factor = 0 Then multip = 1 Do multip = multip + 1 DoEvents Loop While resto \ factor Mod factor ^ (multip - 1) = 0 If multip > 2 Then granalcance = True Else granalcance = False End If resto = resto \ factor ^ (multip - 1) End If If resto <> 1 Then factor = factor + 1 End If DoEvents Loop End Function Espero haberme explicado, gracias.
  2. Hola, me gustaría crear una lisa a partir dos valores dados por el usuario mediante dos inputbox. de momento tengo esto: Sub inputbox_granalcancelista() Dim i As Long Dim a As Long i = InputBox("introduce el número inicial", "LISTA NÚMEROS", "type here") a = InputBox("introduce el número final", "LISTA NÚMEROS", "type here") Range("A1").Value = i [AQUÍ NO SÉ QUÉ AÑADIR] End Sub
  3. perdón, intento cambiar mi definición. un número de gran alcance para mí es aquel que en su descomposición factorial en números primos, no hay ningún número que no esté elevado a 2 o más de 2. p.ej: el 5 no es un número de gran alcance pero el 8 cuya desc.fact es 2^3, si que sería un número de gran alcance. Espero haberme explicado, gracias
  4. Hola, necesito crear una función que indique si un número pasado como argumento es de gran alcance. De momento tengo la función para hacer la descomposición factorial: Function descomposicionFactorial(numero As Long) As String Dim factor As Long Dim multiplicidad As Long Dim descomposicion As String Dim resto As Long factor = 2 descomposicion = "" resto = numero If numero = 1 Then descomposicion = "1·" End If Do Until resto = 1 If resto Mod factor = 0 Then multiplicidad = 1 Do multiplicidad = multiplicidad + 1 DoEvents Loop While resto \ factor Mod factor ^ (multiplicidad - 1) = 0 resto = resto \ factor ^ (multiplicidad - 1) If multiplicidad - 1 = 1 Then descomposicion = descomposicion & CStr(factor) & "·" Else descomposicion = descomposicion & CStr(factor) & "^" & CStr(multiplicidad - 1) & "·" End If End If If resto <> 1 Then factor = factor + 1 'DoEvents Loop descomposicionFactorial = Mid(descomposicion, 1, Len(descomposicion) - 1) End Function
  5. Mi compañera y yo solo hemos hecho hasta la descomposicion factorial que nos muestra los exponentes. Nos sería de gran ayuda la resolución del resto. Introducción La teoría de los números es la disciplina matemática que se ocupa del estudio de las características de los números. Según esta disciplina, un número de gran alcance es un número natural en cuya descomposición factorial no contiene factores que no aparezcan más de una vez (todos los factores tienen exponente mayor o igual a 2). Problema 1. Elabore una función que indique si un número pasado como argumento es de gran alcance. 2. Diseñe y programe un programa que liste los números de gran alcance entre dos números naturales suministrados por el usuario. 3. Diseñe y programe un programa que liste los pares de números de gran alcance consecutivos entre dos números naturales suministrados por el usuario. 4. De acuerdo con McDaniel (1982), cualquier número puede obtenerse como diferencia de dos números de gran alcance. Elaborar un programa que calcule minuendo y sustraendo tales que permitan obtener el número natural introducido por el usuario.
×
×
  • Create New...

Important Information

Privacy Policy