Gente, alguém poderia a me ajudar porque não tá rodando esse programa q fala o horóscopo alguém sabe um outro modo de faze-lo? fico grata pela ajuda
algoritmo "Horoscopo"
// Função :
// Autor :
// Data : 3/6/2010
// Seção de Declarações
var
dia,mes: inteiro
nome:caracter
inicio
// Seção de Comandos
escreval("Entre com seu nome")
leia(nome)
escreval("Entre com o dia de seu nascimento")
leia(dia)
escreval("Entre com o mês de seu nascimento")
leia(mes)
se(dia>=20 e dia<=31 e mes=3 dia>=1 dia<=20 e mes=4)então
escreva(nome,"è do signo de Áries ")
fimse
se(dia>=21 e dia<=30 e mes=4 e dia>=1 e dia<=20 e mes=5)então
escreval(nome,"é do signo de Touro")
fimse
se(dia>=21 e dia<=31 e mes==5 e dia>=1 e dia<=20 e mes=6)então
escreval(nome,"é do signo de Gêmeos")
fimse
se(dia>=21 e dia<=30 e mes==6 e dia>=1 e dia<=21 e mes=7)então
escreval(nome,"é do signo de Cancer")
fimse
se(dia>=22 e dia<=31 e mes==7 e dia>=1 e dia<=22 e mes=8)então
escreval(nome,"é do signo de Leão")
fimse
se(dia>=22 e dia<=31 e mes=8 e dia>=1 e dia<=22 e mes=9)então
escreval(nome,"é do signo de Virgem")
fimse
se(dia>=22 e dia<=30 e mes=9 e dia>=1 e dia<=22 e mes=10)então
escreval(nome,"é do signo de Libra")
fimse
se(dia>=23 e dia <=31 e mes==10 e dia>=1 e dia<=21 e mes=11)então
escreval(nome,"é do signo de Escorpião")
fimse
se(dia>=22 e dia<=30 e mes==11 e dia>=1 e dia<=21 e mes=12)então
escreval(nome,"é do signo de Sagitário")
fimse
se(dia>=22 e dia<=31 e mes=12 e dia>=1 e dia<=20 e mes=1)então
escreval(nome,"é do signo de Capricórnio")
fimse
se(dia>=21 e dia<=31 e mes=1 e dia>=1 e dia<=18 e mes=2)então
escreval(nome,"é do signo de Aquário")
fimse
se(dia>=19 e dia<=29 e mes=2 e dia>=1 e dia<=19 e mes=3)então
escreval(nome,"é do signo de Peixes")
senao
escreval("dia ou mês invalido")
fimse
fimalgoritmo