DEACHP Software - Todo sobre Calculadoras gráficas HP [Menú EJEMPLOS RPL][Menú Principal DEACHP]
Ejemplo: Buscador de variables en HOME [Descargar ejemplo]
Nota: El ejemplo mostrado a continuación ha sido escrito de manera sencilla para una mejor comprensión, es por eso que en algunos casos parece no aprovecharse al máximo el potencial de la sintáxis RPN. Dentro del archivo comprimido ejfindvar.zip encontrará las versiones para los diversos modelos de calculadoras y para el editor HPUserEdit, además de un texto de ayuda.
Captura de pantalla Breve descripción
 

El siguiente ejemplo realiza la busqueda de la variable ingresada por todo el directorio HOME y subdirectorios, aplicando recursividad.

Leyendo el código:

Inicialmente el programa toma de la pila o stack el nombre de la variable que deseamos buscar, el cual es asignado a la variablelocal var.
Se inicia un procedimiento ó subrutina << >>, se verifica la existencia de la variable buscada en la lista de variables el directorio actual VARS var POS, si ésta existe el comando PATH nos da la ruta encontrada.
Luego obtenemos la lista de todos los subdirectorios dentro del directorio actual utilizando 15 TVARS para que mediante la estructura bucle FOR NEXT busquemos nuevamente la variable en cada uno de ellos.

Nota: el comando UPDIR permite saltar desde el directorio actual al directorio inmediato superior.

Almacenamiento y prueba (En Modo RPN)

1. Digitar y verificar la escritura del programa, luego presionar ENTER.
2. Activar el indicador ALFA y digitar el nombre del programa entre apostrofes: 'FindV'.
3. Presionar la tecla STO.
4. Finalmente presionar la tecla VAR, colocar el nombre de la variable a buscar entre apostrofes ' ' en la pila o stack y presionar la tecla del menú correspondiente al programa.

Nota Importante: El ejemplo anterior, al utilizar la recursividad, en algún momento de su ejecución llega a llamarse a sí mismo, es por eso que es muy importante que el nombre que se le de sea el mismo que el que aparece en su interior (FindV).

Código fuente
DEACHP Software Jr. Virú 471 - Rimac Telf: (+511) 481-0146 / (+511) 9711-1260 E-mail: deachp@uni.edu.pe [Mapa de Ubicación]