Cap 3 exercicio 11

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 "dias corridos"

var
dia,mes,ano,dc,dc2:inteiro

inicio
escreval("Número de dias corridos no ano.")
escreva("Digite o dia = ")
leia(dia)
escreva("Digite o mês = ")
leia(mes)
escreva("Digite o ano = ")
leia(ano)
se ((ano mod 4)=0) e ((ano mod 100)<>0) entao
ano <- 366 senao ano <- 365 fimse se (mes = 12) entao dc <- (ano-31) dc <- (dc+dia) senao ano <- ano-31 fimse se (mes = 11) entao dc <-(ano-30) dc <- (dc+dia) senao ano <- (ano-30) fimse se (mes = 10) entao dc <- (ano-31) dc <- (dc+dia) senao ano <- (ano-31) fimse se (mes = 9) entao dc <- (ano-30) dc <- (dc+dia) senao ano <- (ano-30) fimse se (mes = 8) entao dc <- (ano-31) dc <- (dc+dia) senao ano <- (ano-31) fimse se (mes = 7) entao dc <- (ano-30) dc <- (dc+dia) senao ano <- (ano-30) fimse se (mes = 6) entao dc <- (ano-31) dc <- (dc+dia) senao ano <- (ano-31) fimse se (mes = 5) entao dc <- (ano-30) dc <- (dc+dia) senao ano <- (ano-30) fimse se (mes = 4) entao dc <- (ano-31) dc <- (dc+dia) senao ano <- (ano-31) fimse se (mes = 3) entao dc <- (ano-30) dc <- (dc+dia) senao ano <- (ano-30) fimse se mes = 2 entao se((ano mod 4)=0)e((ano mod 100)<>0) entao
dc <- (ano-29)
dc <- (dc+dia)
senao
dc <- (ano-28)
dc <- (dc+dia)
fimse
fimse
se mes = 1 entao
dc <- dia
fimse
escreval("Dias corridos é igual a ",dc,".")
escreval("*** F I M ***")
fimalgoritmo