Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ////////////////////////////
- // ALGORITMO DEL PROGRAMA //
- ////////////////////////////
- TIPO 'combo':
- - Declarar un contenedor <teclas> de tipo cadena de caracteres que los almacene con orden
- - Declarar una variable <texto> de tipo cadena de caracteres
- :fin-TIPO
- PROGRAMA:
- - Declarar una variable <N> de tipo numérico
- - Declarar una contenedor <combos> de elementos tipo 'combo'
- - Declarar una variable <char> de tipo carácter
- - Declarar una variable <combo> de tipo 'combo'
- - Declarar una variable <tmp> de tipo cadena de caracteres
- - Leer un número y asignarlo a <N>
- - Asignar a <tmp> el valor "" (cadena vacía)
- REPETIR mientras( el valor de <N> sea mayor que "0" ):
- - Leer un caracter y asignarlo a <char>
- SI( <char> es un final de línea ):
- REPETIR ():
- SI( <char> es un final de línea ):
- - Añadir a <combos> el elemento <combo>
- - Elimitar de <combo><teclas> todos los elementos
- - Asignar a <combo><texto> el valor "" (cadena vacía)
- :sal-REPETIR
- :fin-SI
- - Leer un caracter y asignarlo a <char>
- - Añadir por el final a <combo><texto> el valor <char>
- :fin-REPETIR
- - Decrementar el valor de <N> en una unidad
- :SI-NO
- SI( <char> es un " " (espacio) ):
- - Añadir a <combo><teclas> el valor <tmp> manteniendo el orden
- - Asignar a <tmp> el valor "" (cadena vacía)
- :SI-NO:
- - Añadir por el final a <tmp>
- :fin-SI
- :fin-SI
- :fin-REPETIR
- - Leer un número y asignarlo a <N>
- REPETIR mientras( el valor de <N> sea mayor que "0" ):
- - Decrementar el valor de <N> en una unidad
- - Elimitar de <combo><teclas> todos los elementos
- REPETIR ():
- SI( <char> es un final de línea ):
- - Mostrar el valor <texto> de <combos> que tenga el elemento <teclas> igual que <combo><teclas>
- - sal-REPETIR
- :SI-NO
- SI( <char> es un " " (espacio) ):
- - Añadir a <combo><teclas> el valor <tmp> manteniendo el orden
- - Asignar a <tmp> el valor "" (cadena vacía)
- :SI-NO:
- - Añadir por el final a <tmp>
- :fin-SI
- :fin-SI
- :fin-REPETIR
- :fin-REPETIR
- :fin-PROGRAMA
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement