Logaritmo para calendario del zodiaco, maya y egipcio
Enviado por Richy Canchola • 17 de Abril de 2016 • Trabajos • 809 Palabras (4 Páginas) • 309 Visitas
Escribir "Algoritmo para saber tus horóscopos"
Escribir "¿Qué día es hoy?"
Leer dia1
Escribir "¿En qué mes estamos?"
Leer mes1
Escribir "¿Cuál es el año actual?"
Leer año1
Limpiar Pantalla
Escribir "Dame tu día de nacimiento"
Leer dia
Escribir "Dame tu mes de nacimiento"
Leer mes
Escribir "Dame tu año de nacimiento"
Leer año
Limpiar Pantalla
Escribir "Signo del zodiaco"
Si dia>0 Y dia<=31 Y mes>0 Y mes<=12 Entonces
Segun mes Hacer
1:
Si dia>0 y dia<=20 Entonces
Escribir "CAPRICORNIO"
Sino Si dia>20 y dia<=31 Entonces
Escribir "ACUARIO"
FinSi
Fin Si
2:
Si dia>0 y dia<=19 Entonces
Escribir "ACUARIO"
Sino Si dia>19 y dia<=31 Entonces
Escribir "PISCIS"
FinSi
Fin Si
3:
Si dia>0 y dia<=20 Entonces
Escribir "PISCIS"
Sino Si dia>20 y dia<=31 Entonces
Escribir "ARIES"
FinSi
Fin Si
4:
Si dia>0 y dia<=21 Entonces
Escribir "ARIES"
Sino Si dia>21 y dia<=31 Entonces
Escribir "TAURO"
FinSi
Fin Si
5:
Si dia>0 y dia<=21 Entonces
Escribir "TAURO"
Sino Si dia>21 y dia<=31 Entonces
Escribir "GEMINIS"
FinSi
Fin Si
6:
Si dia>0 y dia<=21 Entonces
Escribir "GEMINIS"
Sino Si dia>21 y dia<=31 Entonces
Escribir "CANCER"
FinSi
Fin Si
7:
Si dia>0 y dia<=22 Entonces
Escribir "CANCER"
Sino Si dia>22 y dia<=31 Entonces
Escribir "LEO"
FinSi
Fin Si
8:
Si dia>0 y dia<=22 Entonces
Escribir "LEO"
Sino Si dia>22 y dia<=31 Entonces
Escribir "VIRGO"
FinSi
Fin Si
9:
Si dia>0 y dia<=22 Entonces
Escribir "VIRGO"
Sino Si dia>22 y dia<=31 Entonces
Escribir "LIBRA"
FinSi
Fin Si
10:
Si dia>0 y dia<=22 Entonces
Escribir "LIBRA"
Sino Si dia>22 y dia<=31 Entonces
Escribir "ESCORPION"
FinSi
Fin Si
11:
Si dia>0 y dia<=22 Entonces
Escribir "ESCORPION"
Sino Si dia>22 y dia<=31 Entonces
Escribir "SAGITARIO"
FinSi
Fin Si
12:
Si dia>0 y dia<=22 Entonces
Escribir "SAGITARIO"
Sino Si dia>22 y dia<=31 Entonces
Escribir "CAPRICORNIO"
FinSi
Fin Si
Fin Segun
Sino
Escribir "VERIFICA QUE EL DIA O MES QUE INTRODUJISTE SEAN CORRECTOS"
Fin Si
Si
...