VisualG Programa que verifica o signo

[bely]

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

 

[bely]

Alguem sabe porque não roda me ajuedem, por favor....

[Caio Cesar Nogueira]

Bom, essa resposta com certeza não ira te ajudar mais, mas pode ser que ajude a outros.

Var

   dia, mes :inteiro

Inicio

   escreva ("digite o dia do seu nescimento: ")
   leia (dia)
   escreva ("digite o mes do seu nescimento: ")
   leia (mes)
   se ((dia >=21) e (mes=3) ou (dia <=19) e (mes=4)) então
      escreva ("aries")
   senao
      se ((dia >=20) e (mes=4) ou (dia <=20) e (mes=5)) então
         escreva ("touro")
      senao
         se ((dia >=21) e (mes=5) ou (dia <=21) e (mes=6)) então
            escreva ("gemeos")
         senao
            se ((dia >=22) e (mes=6) ou (dia <=22) e (mes=7)) então
               escreva ("cancer")
            senao
               se ((dia >=23) e (mes=7) ou (dia <=22) e (mes=8)) então
                  escreva ("leao")
               senao
                  se ((dia >=23) e (mes=8) ou (dia <=22) e (mes=9)) então
                     escreva ("virgem")
                  senao
                     se ((dia >=23) e (mes=9) ou (dia <=22) e (mes=10)) então
                        escreva ("libra")
                     senao
                        se ((dia >=23) e (mes=10) ou (dia <=21) e (mes=11)) então
                           escreva ("escorpião")
                        senao
                           se ((dia >=22) e (mes=11) ou (dia <=21) e (mes=12)) então
                              escreva ("sagitario")
                           senao
                              se ((dia >=22) e (mes=12) ou (dia <=19) e (mes=1)) então
                                 escreva ("capricornio")
                              senao
                                 se ((dia >=20) e (mes=1) ou (dia <=18) e (mes=2)) então
                                    escreva ("aquario")
                                 senao
                                    se ((dia >=19) e (mes=2) ou (dia <=20) e (mes=3)) então
                                       escreva ("peixes")

                                    fimse
                                 fimse
                              fimse
                           fimse
                        fimse
                     fimse
                  fimse
               fimse
            fimse
         fimse
      fimse
   fimse

Fimalgoritmo