Logaritmo para calendario del zodiaco, maya y egipcio

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 dia<=0 entonces

Escribir "No existe dia"

Sino

Si mes<=0

Escribir "Ese mes no existe"

Sino

si año<=999 Entonces

Escribir "No te creo"

Sino

si mes<=mes1 Entonces

Cumple=año1-año

Sino

Cumple=año1-año-1

FinSi

Escribir "TIENES ",Cumple,"AÑOS"

Si mes>=mes1 Entonces

Segun mes Hacer

1:

Days1=31 + dia -dia1

Days2=mes-mes1-1

2:

Days1=28 + dia -dia1

Days2=mes-mes1-1

3:

Days1=31 + dia -dia1

Days2=mes-mes1-1

4:

Days1=30 + dia -dia1

Days2=mes-mes1-1

5:

Days1=31 + dia -dia1

Days2=mes-mes1-1

6:

Days1=30 + dia -dia1

Days2=mes-mes1-1

7:

Days1=31 + dia -dia1

Days2=mes-mes1-1

8:

Days1=31 + dia -dia1

Days2=mes-mes1-1

9:

Days1=30 + dia -dia1

Days2=mes-mes1-1

10:

Days1=31 + dia -dia1

Days2=mes-mes1-1

11:

Days1=30 + dia -dia1

Days2=mes-mes1-1

12:

Days1=31 + dia -dia1

Days2=mes-mes1-1

De Otro Modo:

Escribir " Verifica el mes que introdujiste"

Fin Segun

Sino

Segun mes Hacer

1:

Days1=31-dia1+dia

Days2=12 - mes1

2:

Days1=28-dia1+dia

Days2=12 - mes1

3:

Days1=31-dia1+dia

Days2=12 - mes1

4:

Days1=30-dia1+dia

Days2=12 - mes1

5:

Days1=31-dia1+dia

Days2=12 - mes1

6:

Days1=30-dia1+dia

Days2=12 - mes1

7:

Days1=31-dia1+dia

Days2=12 - mes1

8:

Days1=31-dia1+dia

Days2=12 - mes1

9:

Days1=30-dia1+dia

Days2=12 - mes1

10:

Days1=31-dia1+dia

Days2=12 - mes1

11:

Days1=30-dia1+dia

Days2=12 - mes1

12:

Days1=31-dia1+dia

Days2= 12 - mes1

De Otro Modo:

Escribir " Verifica el mes que introdujiste"

Fin Segun

Fin Si

...