DEACHP Software - Todo sobre Calculadoras gráficas HP [Menú EJEMPLOS RPL][Menú Principal DEACHP]
Ejemplo: Determinante 3×3 INFORM - Plantilla de entrada [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 ejinform3.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 un cálculo muy básico que permite obtener el determinante de una matriz de 3 × 3.

Leyendo el código:

Se inicia el programa con el bucle indefinido DO UNTIL END, el cual permitirá ejecutar el contenido indefinidamente.
A continuación el comando INFORM necesita de 5 argumentos para crear la plantilla de entrada que se ve como captura del programa:

1.
El titulo: "Determinante 3 ×3".
2. Las etiquetas para cada uno de los campos que en este caso son 4: { "A:" "B:" "C:" "D:" "E:" "F:" "G:" "H:" "I:"}.
3.
Los valores que darán forma mediante columnas a la plantilla, en este caso 3 columnas: { 3 0 }.
4.
Una lista con 9 valores de reseteo, en este caso la lista se encuentra vacia { }.
5. El quinto argumento será colocado luego de ejecutarse la estructura condicional IF THEN END, la cual verificará la existencia de la variable global Data1. La variable Data1 permitirá más adelante almacenar los valores ingresados en la plantilla de entrada para una próxima ejecución del programa.

Luego del comando INFORM se coloca la estructura condicional IF THEN ELSE END, que dará la posibilidad de continuar o terminar la ejecución del programa según se haya presionado OK ó CANCL en la plantilla de entrada. Observe que al presionar CANCL también es arrojado el valor 1, el cual permitirá también finalizar el bucle indefinido.

Dentro de la estructura condicional, una copia de los datos ingresados es guardada en la variable global Data1.
A continuación se abre una nueva estructura condicional IF THEN ELSE END que ayudará a verificar si falta ingresar alguno de los campos pedidos por la plantilla de entrada, si así fuera los últimos datos son eliminados y un 0 es arrojado para reiniciar el bucle indefinido.En el caso contrario los datos ingresados se asignarian a las variables correspondientes para calcular el resultado deseado dentro de nuevo procedimiento << >> . y luego un 1 es arrojado para finalizar el bucle indefinido.


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: 'NOMBRE'.
3. Presionar la tecla STO.
4. Para ejecutar el programa ingresar al menú VAR y presionar la tecla del menú correspondiente al programa.

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]