El algoritmo de la iteración de "dividido en 2"

Iteraciones: Son repeticiones que generan una secuencia de números que siguen unos patrones específicos. Por ejemplo la iteración de dividir en dos si es par o de lo contrario convertir el número en par multiplicándolo por 3, aumentándolo en 1 y este resultado dividirlo en 2. Un ejemplo de esto es el 7, que de acuerdo a esto, se generaría así:

7, 11, 17, 26, 13, 20, 10, 5, 8, 4, 2 y 1

El siguiente algoritmo es codificado en Visual Basic, herramienta de programación que aparece en Excel.

Procedimiento para generarlo:

1. Abra una nueva hoja de cálculo
2. Active la barra de herramientas de Visual Basic abriendo la opción Ver de la barra de menús.
3. Active el cuadro de controles (martillito)
4. Incruste un Command Button en la parte derecha de la hoja: haga click en el boton de comando y luego click en la parte blanca de la hoja.
5. Abra las propiedades del boton (click en la manito)
6. Cambie la propiedad Caption por "Inicio" (sin comillas, es el nombre que se verá como título del boton).
7. Haga doble click en el boton para abrir su código.
8. Cree un formulario haciendo click en el ícono de la barra de herramientas Crear Formulario User Form.
9. En ese formulario cree una etiqueta, un cuadro de texto y dos botones de commando. La etiqueta debe ir con el caption Número, el primer boton con el caption Generar y el segundo boton con el caption Salir.
10. En el boton generar dar doble click y copiar el siguiente código en medio de las líneas
Private Sub CommandButton1_Click() y End Sub

---------------------------------------códgo a copiar---------------------
Dim Num, X As Integer
hoja1.cells.delete
Num = Abs(Int(Val(Me.TextBox1.Text)))
If Num = 0 Then MsgBox ("Error, digite un nuevo valor.")
Hoja1.Cells(2, 2) = Num
fila = 3
Do While Num > 1
If Num Mod 2 = 0 Then
Hoja1.Cells(fila, 2) = Num / 2
Num = Num / 2
Else
Num = (3 * Num + 1) / 2
Hoja1.Cells(fila, 2) = Num
End If
fila = fila + 1
Loop
----------------

11. En el boton salir (commandbutton2) ingresar el commando unload me , que sirve para descargar el formularaio o hacerlo inactivo cuando se presione este botón.

12. Vaya a la hoja de cálculo haciendo click en el boton que aparece en la barra de inicio.
13. Cambie a modo de Salir de Modo diseño, presione ahora el botón y deberá salir el formulario que se creo. Digite el número 10, deben generarse en la hoja 1 y de manera vertical los números de la iteración programada: 10, 5, 8, 4, 2, 1.

Si al ejecutar Excel aparecen las Macros deshabilitadas, se deben habilitar en el menú Herramientas, Macros, Seguridad, Nivel de seguridad medio, luego guardar y de nuevo abrir. Saldra ahora la ventana de Habilitar macros.

Excel, una herramienta potente para el trabajo en matemáticas aplicadas a la computación.