Ayuda VARIABLE de mayor tamaño
Publicado: 21 Mar 2016, 13:21
Resulta que cree un programa de estas caracteristicas:
Cada nuevo término en la sucesión de Fibonacci se genera mediante la adición de los dos términos anteriores. Al comenzar con 1 y 2, los 10 primeros términos serán los siguientes:
1, 2, 3, 5, 8, 13, 21, 34, 55, 89, ...
Al tener en cuenta los términos de la sucesión de Fibonacci cuyos valores no superan los cuatro millones, hallar la suma de los términos más valorados.
Aquí el código:
El programa lo hace todo bien hasta ciertas repeticiones en este caso 91, si pongo mas repeticiones en el while como por ejemplo 4.000.000 el Msgbox manda un numero NEGATIVO, creo que la suma es muuuuy grande que la variable no es capaz de capturar, me imagino que habrá una función que haga almacene mas en una variable ¿saben cual es?
Saludos
Cada nuevo término en la sucesión de Fibonacci se genera mediante la adición de los dos términos anteriores. Al comenzar con 1 y 2, los 10 primeros términos serán los siguientes:
1, 2, 3, 5, 8, 13, 21, 34, 55, 89, ...
Al tener en cuenta los términos de la sucesión de Fibonacci cuyos valores no superan los cuatro millones, hallar la suma de los términos más valorados.
Aquí el código:
Código: Seleccionar todo
Dim $numeroAnterior = 1
Dim $numeroSuperior = 1
Dim $Sumatotal = 0
Dim $sumaPares = 0
Dim $ParesTotal = 0
Dim $i = 1
While $i < 91
$Sumatotal = $numeroAnterior + $numeroSuperior ; 2 3 5
$numeroAnterior = $numeroSuperior ; 1 2 3
$numeroSuperior = $Sumatotal ; 2 ; 3 2
$sumaPares = Mod($Sumatotal,2)
If ($sumaPares = 0) Then
$ParesTotal = $Sumatotal + $ParesTotal
EndIf
$i = $i + 1
Wend
MsgBox(0,"prueba",$ParesTotal)Saludos
.