Algoritmo años_históricos
//Elaborado por: José Cevallos Pilliza
//Programa que nos de una beta de un Quiz o test de años históricos del Ecuador
Escribir "Ingrese su Nombre de Usuario: " Sin Saltar
Leer Usuario
Escribir "----------------------------------------------------------"
Escribir "Bienvenido/a " Usuario " al test de historia del Ecuador"
Escribir "¿Desea comenzar el test?" Sin Saltar
Escribir "Presione...."
Escribir "1. Si desea continuar "
Escribir "2. Si desea terminar el juego "
leer press
Borrar Pantalla
Según press hacer
1:
Escribir "....Iniciando...."
Escribir "A. ¿Cual es el hecho que sucedió en el año 1809, es el más relevante para Ecuador?"
Escribir "Elija la respuesta: "
Escribir "1.Revolución Liberal de Eloy Alfaro "
Escribir "2.Independencia de Guayaquil "
Escribir "3. Revolución Ciudadana "
Escribir "4. Primer Grito de la Independencia de Quito "
leer literal
si literal=4 Entonces
corr <- corr +1;
Escribir "La respuesta es correcta"
sino
Escribir "La respuesta es incorrecta"
FinSi
escribir "Presiona enter para continuar: "
leer e
Borrar Pantalla
Escribir "B. El Primer Grito de Independencia Hispano-americana en Quito se realizó en el año...."
Escribir "1. 10 de septiembre de 1930"
Escribir "2. 11 de agosto de 1809"
Escribir "3. 10 de agosto de 1809"
Escribir "4. 09 de febrero de 1900"
leer lite
si lite=3 Entonces
corr <- corr +1;
Escribir "La respuesta es correcta"
sino
Escribir "La respuesta es incorrecta"
FinSi
Escribir "Presione enter para continuar"
leer e
Borrar Pantalla
Escribir "C. ¿En que año Ecuador toma posesión legal de las islas Galápagos?"
Escribir "1. 1832"
Escribir "2. 1902"
Escribir "3. 1899"
Escribir "4. 1919"
leer lit
si lit=1 Entonces
corr <- corr +1;
Escribir "La respuesta es correcta"
sino
Escribir "La respuesta es incorrecta"
FinSi
Escribir "Presiona enter para continuar "
leer e
Borrar Pantalla
Escribir "D. Seleccione Verdadero o Falso, según el siguiente texto "
Escribir " ----El 1895 5 de junio ocurrió el siguiente acontesimiento...Ocurrió la Revolución Liberal----"
Escribir " Verdadero"
Escribir " Falso"
leer V
si V=Verdadero Entonces
corr <- corr +1;
Escribir "La respuesta es correcta"
sino
Escribir "La respuesta es incorrecta"
FinSi
Escribir "Presione enter para continuar"
leer e
Borrar Pantalla
Escribir "E. Complete la siguiente oración con las palabras correspondientes."
Escribir " En el año ______ el general Villamil se reúne con compatriotas (Fragua _________) para preparar el movimiento de independencia de _______. Y así en el año 1820 al _______ se dió la independencia, "
Escribir "1.1821- de Vinces- Guayaquil- 24 de Ocutubre"
Escribir "2. 1500- de Vulcano- Guayaquil- 31 de Agosto"
Escribir "3. 1820- de Vulcano- Guayaquil- 20 de Septiembre"
Escribir "4. 1820- de Vulcano- Guayaquil- 09 de Octubre"
leer opc
si opc=4 Entonces
corr <- corr +1;
Escribir "La respuesta es correcta"
sino
Escribir "La respuesta es incorrecta"
FinSi
Borrar Pantalla
Escribir "Test finalizado"
Escribir "Presione enter para mostrar el resultado: "
Leer e
Escribir "El test a dado a su fin"
Escribir "************************************************************"
Escribir "resultados de los puntos obtenidos por respuestas correctas: " corr,"/5"
Escribir "Gracias por ingresar. See you later :D"
Escribir "************************************************************"
2:
Escribir " Gracias por probar nuestro test:D, asta la próxima. "
FinSegun
FinAlgoritmo
Comentarios
Publicar un comentario