Exercicio 11 capitulo 3

Escreva um algoritmo que leia um dia, mês e ano e escreva, para essa data lida, o número de dias
transcorridos no ano.

algoritmo "Exercicio 3.11"
// Função :
// Autor : Gustavo
// Data : 23/9/2010
// Seção de Declarações 
var
   ano,mes,dia,diasCorridos:inteiro
inicio
   escreval("Informe o ano:")
   leia(ano)
   
   escreval("Informe o mes:")
   leia(mes)
   
   escreval("Informe o dia:")
   leia(dia)
   
   se (mes>12) entao
      escreva("Eita!!! Esse mes nao existe!")
   senao
      se ((ano mod 4) = 0) entao
         diasCorridos<- 366
      senao
         diasCorridos<- 365
      fimse

      se (mes <= 12) entao //dezembro.
         diasCorridos<- diasCorridos - 31
      fimse

      se (mes <= 11) entao //novembro
         diasCorridos<- diasCorridos - 30
      fimse

      se (mes <= 10) entao //outubro
         diasCorridos<- diasCorridos - 31
      fimse

      se (mes <= 9) entao //setembro
         diasCorridos<- diasCorridos - 30
      fimse

      se (mes <= 8) entao //agosto
         diasCorridos<- diasCorridos - 31
      fimse

      se (mes <= 7) entao //julho
         diasCorridos<- diasCorridos - 31
      fimse

      se (mes <= 6) entao //junho
         diasCorridos<- diasCorridos - 30
      fimse

      se (mes <= 5) entao //maio
         diasCorridos<- diasCorridos - 31
      fimse

      se (mes <= 4) entao //abril
         diasCorridos<- diasCorridos - 30
      fimse

      se (mes <= 3) entao //marco
         diasCorridos<- diasCorridos - 31
      fimse

      se (mes <= 2) entao //fevereiro
         se ((ano mod 4)=0) entao //bissexto
            diasCorridos<- diasCorridos - 29
         senao
            diasCorridos<- diasCorridos - 28
         fimse
      fimse

      se (mes <= 1) entao //janeiro
         diasCorridos<- diasCorridos - 31
      fimse
      
      diasCorridos<- diasCorridos + dia
      escreva ("Se passou ",diasCorridos," dias")
   
   fimse
fimalgoritmo