Inicio de sesión
Navegación
Actualmente hay 0 usuarios y 7 invitados en línea.
- adictto21
- Marcial Sosa
- morti667
- Oscar Alberto M...
- ssharuko
2 preguntas sobre INFORM
Integró: 06/05/2009
Envíos: 13
MonedasHP: 0
lepard 
Calc: HP50
2 preguntas sobre INFORM
Jue, 07/05/2009 - 11:22
Hola a todos:
Mis preguntas con relacion al comando INFORM son la siguientes:
1. En una sintaxis como la que sigue, solo son mostrados hasta los cuatro primeros campos. He intentado de todo pero solo se muestran los cuatro primeros. ¿Alguien sabe porque y si tiene solución esto?
<< "Aridos a emplear" {{"A1""árido 1"5}{"A2""árido 2"5}{"A3""árido 3"5}{"A4""árido 4"5}{"A5""árido 5"5}{"A6""árido 6"5}} {} {} {} INFORM
>>
2. Si este problema se plantea con "n" áridos (2; 3; 4 ... n), lo adecuado fuera hacer un ciclo DO or WHILE que repita "n" veces la capatación de datos para cada árido, porque un CASE llevaría infinitos casos igual que un CHOOSE, para escoger la cantidad necesaria. En mi opinion, se debería pasar un valor a un contador que fuera iterando n veces la captación de datos, es decir:
"Aridos a emplear" {{"An""árido n"5}} {} {} {} INFORM 'A' n ->STR + STO
y todo esto n veces.
La pregunta es: ¿Es posible pasar el valor de variables a la etiqueta y a la Ayuda?. Es decir, que "An" sea A1; A2; A3... según varie n. ( en algunos lenguajes a esto se le dice macrosustitución).
Gracias.
lepard.
Otros temas de interes
Integró: 08/07/2004
Envíos: 699
MonedasHP: 459
alexis
Calc: HP50
| ROM:2.10-7, HP49G+ | ROM:2.15, Hp 35s | 2007, Hp 20b | 2008, Casio Fx-6300g | 1984
Podráa ser de esta manera:
1. Colocar numero de columna y espaciamiento {2 0} y acostumbrarse a usar IF THEN ELSE END acompañando al INFORM, en {"A1""árido 1"5} "el 5 significa que aceptara listas, 0 si va a aceptar numeros y si no hay nada aceptara cualquier tipo de objeto.
<< "Aridos a emplear"
{{"A1""árido 1"5}{"A2""árido 2"5}
{"A3""árido 3"5}{"A4""árido 4"5}
{"A5""árido 5"5}{"A6""árido 6"5}} {2 0} {} {} INFORM
IF
THEN @aqui lo que hace tu programa.
END >>
2. Se puede pero es mas largo, cada dato se guardara en una variable Ai dependiendo del numero n de datos para aridos que coloques.
<< "Numero de áridos"
"" INPUT OBJ-> -> n
<< 1 n FOR i
"Aridos a emplear"
"A" i R->I + ":" +
"Arido " i R->I +
5
3 ->LIST 1 ->LIST
{1 0} {} {} INFORM
IF THEN OBJ-> DROP "'A" i R->I + OBJ-> STO
END
NEXT
>>
>>
Integró: 28/06/2003
Envíos: 194
MonedasHP: 126
deachp
Saludos lepard y a todos los miembros del grupo,
Aquí te envío la solución a tu pregunta, MULTI INFORM es un pequeño programa que permite el ingreso de 'n' datos a travéz de plantillas INFORM consecutivas, pruebalo!
Y no olviden que están por iniciarse 2 Cursos de Programación en Calculadoras Gráficas HP uno en la UNI y otro UNAC Lima-Perú, informes en: www.deachp.com/eventos.html
MULTI INFORM: [Descargar Aquí versión 49G/G+ HP50G]
« 0 1 -> n op
«
"Ingrese el número de
áridos"
"" INPUT OBJ-> 'n' STO
{}
1 n FOR i
"A" i +
"Arido #" i +
5
3 ->LIST
NEXT n ->LIST
1 n FOR j
"Ingrese los aridos"
OVER j j 3 + SUB
{1 0} {} {}
INFORM
IF THEN ROT SWAP + SWAP
ELSE
n 'j' STO 0 'op' STO END
4 STEP
op NOT 1 + DROPN
op
»
»
Atte. Dante Aroní C.
Hola, chicos:
Gracias por responder y por vuestro tiempo para leer mis posts. Miraré lo que han posteado y les respondo tan pronto pueda. Solo que sepan que he leido sus respuestas y agradezco su tiempo.
Gracias.
lepard