Este algoritmo simula el juego de memoria, este consta de una muestra de 6 cartas con números los cuales se debe memorizar, luego de 10 segundos se pregunta que número iba en la carta número y ha si hasta la carta 6, donde luego se calcula la cantidad de aciertos, cada acierto tiene un valor de 10 puntos.
A continuación el algoritmo:
Algoritmo Juego_de_memoria
Definir num Como Entero
Definir a, b, c, d, e, f Como Entero
Escribir "******************************"
Escribir "*******JUEGO DE MEMORIA*******"
Escribir "******************************"
Escribir ""
Escribir "BIENVENIDO, INGRESE SU NOMBRE"
leer nombre
m<-azar(9)
l<-azar(9)
n<-azar(9)
x<-azar(9)
p<-azar(9)
z<-azar(9)
Para i<-10 Hasta 1 Con Paso -1 Hacer
Escribir "************************************"
Escribir "****POR FAVOR, MIRE CON ATENCIÓN****"
Escribir "************************************"
Escribir ""
Escribir ""
Escribir "_______ _______ _______"
Escribir "** ",m, "** ** ",l," ** ** ",n," **"
Escribir "_______ _______ _______"
Escribir ""
Escribir "_______ _______ _______"
Escribir "** ",x, "** ** ",p," ** ** ",z," **"
Escribir "_______ _______ _______"
Escribir ""
Escribir " TIEMPO = ", i
Esperar 1 Segundos
Limpiar Pantalla
Fin Para
aciertos<-0
t<-0
a<-0
b<-0
c<-0
d<-0
e<-0
Para j<-1 Con Paso 1 hasta 6 Hacer
Escribir ""
Escribir "**************************************"
Escribir "AHORA UBIQUE LOS NÚMEROS EN LAS CARTAS"
Escribir "*********CORRESPONDIENTES*************"
Escribir ""
Escribir ""
Escribir "_______ _______ _______"
Escribir "**",t,"** **",a," ** **",b," **"
Escribir "_______ _______ _______"
Escribir ""
Escribir "_______ _______ _______"
Escribir "** ",c,"** **",d," ** **",e," **"
Escribir "_______ _______ _______"
Escribir ""
Escribir ""
Escribir "Ingrese el número de la carta ", j
leer num
si num = m y j=1 Entonces
Escribir "Correcto"
t<-num
aciertos<-aciertos+1
sino
si num=l y j=2 Entonces
Escribir "CORRECTO"
a<-num
aciertos<-aciertos+1
sino
si num=n y j=3 Entonces
Escribir "CORRECTO"
b<-num
aciertos<-aciertos+1
SiNo
si num= x y j=4 Entonces
Escribir "CORRECTO"
c<-num
aciertos<-aciertos+1
SiNo
si num=p y j=5 Entonces
Escribir "CORRECTO"
d<-num
aciertos<-aciertos+1
SiNo
si num= z y j=6 Entonces
Escribir "CORRECTO"
e<-num
aciertos<-aciertos+1
SiNo
Escribir ""
Escribir "INCORRECTO"
FinSi
FinSi
FinSi
FinSi
FinSi
FinSi
Fin Para
Escribir nombre " OBTUVISTE ", aciertos, " ACIERTOS"
si aciertos = 1 Entonces
puntos= puntos+10
SiNo
Si aciertos= 2 Entonces
puntos= puntos+20
sino
si aciertos= 3 Entonces
puntos = puntos +30
SiNo
si aciertos= 4 Entonces
puntos = puntos + 40
SiNo
si aciertos= 5 Entonces
puntos = puntos + 50
SiNo
si aciertos= 6 Entonces
puntos = puntos + 60
Escribir "CALIFICACIÓN MÁS ALTA"
FinSi
FinSi
FinSi
FinSi
FinSi
si aciertos= 0 Entonces
puntos= puntos-100
FinSi
FinSi
Escribir nombre " SUS PUNTOS ACUMULADOS SON = ", puntos
Escribir ""
Escribir "************************************"
Escribir "*******GRACIAS POR JUGAR ***********"
Escribir "************************************"
FinAlgoritmo
Comentarios
Publicar un comentario