Alg1 - 3ªlista. 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 transcorridos"
// Função :
// Autor :
// Data : 21/09/2010
// Seção de Declarações
var
dia,mes,ano,dt:inteiro
inicio
// Seção de Comandos
escreva ("Entre com o dia,mês e ano, apertando enter ao digitar cada um ")
leia(dia,mes,ano)

se(mes=1) entao
dt<-dia
senao
se(mes=2)entao
dt<-dia+30
senao
se(mes=3) entao
dt<-dia+60
senao
se(mes=4)entao
dt<-dia+90
senao
se (mes=5)entao
dt<-dia+120
senao
se(mes=6)entao
dt<-dia+150
senao
se (mes=7)entao
dt<-dia+180
senao
se (mes=8)entao
dt<-dia+210
senao
se (mes=9)entao
dt<-dia+240
senao
se(mes=10)entao
dt<-dia+270
senao
se (mes=11)
dt<-dia+300
senao
se(mes=12) entao
dt<-dia+330
senao
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse
fimse

escreva("Foram transcorridos ",dt," dias")
fimalgoritmo