algoritmo "Dias Corridos"
var
dia,mes,ano,dc:inteiro
inicio
escreva ("Entre com o dia")
leia (dia)
escreva ("Entre com o mes")
leia (mes)
escreva ("Entre com o ano")
leia (ano)
se ((ano%4)= 0) entao
dc <- 366
senao
dc <- 365
fimse
se (mes=12) entao
dc <- dc - 31
dc <- dc + dia
senao
dc <- dc + dia
fimse
se (mes=11) entao
dc <- dc - 30
dc <- dc + dia
senao
dc <- dc + dia
fimse
se (mes=10) entao
dc <- dc - 31
dc <- dc + dia
senao
dc <- dc + dia
fimse
se (mes=9) entao
dc <- dc - 30
dc <- dc + dia
senao
dc <- dc + dia
fimse
se (mes=8) entao
dc <- dc - 31
dc <- dc + dia
senao
dc <- dc + dia
fimse
se (mes=7) entao
dc <- dc - 30
dc <- dc + dia
senao
dc <- dc + dia
se (mes=6) entao
dc <- dc - 31
dc <- dc + dia
senao
dc <- dc + dia
fimse
se (mes=5) entao
dc <- dc - 30
dc <- dc + dia
senao
dc <- dc + dia
fimse
se (mes=4) entao
dc <- dc - 31
dc <- dc + dia
senao
dc <- dc + dia
fimse
se (mes=3) entao
dc <- dc - 30
dc <- dc + dia
senao
dc <- dc + dia
fimse
se (mes=2) entao
se ((ano%4)=0) entao
dc <- dc - 29
dc <- dc + dia
senao
dc <- dc - 28
dc <- dc + dia
fimse
senao
dc <- dia
fimse
se (mes=1) entao
dc <- dc - 31
dc <- dc + dia
senao
dc <- dc + dia
fimse
fimalgoritmo
Nenhum comentário:
Postar um comentário