Pensamiento Computacional

Proceso ahorcado perfil flexible

Proceso Juego_del_Ahorcado

Escribir " Hola bienvenido al juego del ahorcado "

Escribir " elige una de las sigientes opciones "

Escribir " Max 6 Palabras ";

Escribir " 1. Jugar ";

Escribir " 2. Ingresar Palabras ";

Escribir " 3. Ver Lista de Palabras ", MaxPalabras

Escribir " 0 Salir ";

Escribir " Digite Opcion: "

Repetir

Leer Opcion

Hasta Que Opcion =0 o Opcion >=4

OpcionFin<-" "

Segun Opcion Hacer

2:

Escribir " Ingresar (Palabras) "

1:

Escribir " Jugar (palabras) "

3:

Escribir " Listar (palabras) "

0,4:

Escribir " Confirme que desea terminar (S/[N]) "

Leer OpcionFin

Fin Segun

Si OpcionFin<> "S" y OpcionFin <> "s"

Opcion<--1

Fin Si

Repetir

Hasta Que Opcion=0 o Opcion>=4

FinProceso

Subproceso Palabras_Por_Omicion

Segun XC Hacer

1,Palabra,[XC]:

Escribir " LOGICA ";

2,Palabra,[XC]:

Escribir " NUECES ";

3,Palabra,[XC]:

Escribir " ROBLES ";

4,Palabra,[XC]:

De Otro Modo:

Escribir " GUANTE ";

5,Palabra,[XC]:

Escribir " TROMPO ";

Fin Segun

FinSubProceso

Subproceso Listar(palabras)

Borrar Pantalla

Escribir " PALABRAS INGRESADAS "

Escribir " _ _ _ _ _ _ "

Para i<-1 hasta MaxPalabras

Escribir "i"," . ",Palabras[i]

Fin Para

Escribir " ================================= ";

Opcion<-0

Leer Opcion;

Si Opcion>=1 y Opcion <= Maxpalabras +1

Si Opcion =MaxPalabras +1

Escribir " Agregar nueva palabra o frase ";

MaxPalabras = Opcion

FinSi

Leer Palabras(Opcion)

Si " " = Palabras[Opcion]

XC = Opcion

FinSi

FinSi

FinSubProceso

SubProceso Ingresar(Palabras)

Escribir " INGRESO DE PALABRAS "

Escribir " _ _ _ _ _ _ _ "

Escribir " 000 para terminar "

XC = 0

xtmpPal = " "

Repetir

XC = XC +1

Escribir XC, " . Ingrese palabra o frase; "

Leer xTmpPal

Si " " = xTmpPal

Si "

...