Alg1 - 2ªlista. 17 - Faça um algoritmo que leia o dia do mês ( valor de 1 a 31), e o dia da semana correspondente (1 a 7). O algoritmo deve calcular..

Faça um algoritmo que leia o dia do mês ( valor de 1 a 31), e o dia da semana correspondente (1 a
7). O algoritmo deve calcular e escrever o dia da semana (1 a 7) correspondente ao primeiro dia do
mês.

________________________________________________________________


algoritmo "Dia do mês"
// Função :
// Autor :
// Data : 04/09/2010
// Seção de Declarações
var
semana : literal
dia_mes,dia_semana,primeiro_dia,n,x : inteiro

inicio
escreva ("Digite o dia do mês (valor de 1 a 31) ")
leia (dia_mes)
escreva ("Digite o dia da semana (valor de 1 a 7) ")
leia (dia_semana)
n <- dia_mes
x <- dia_semana

SE (dia_mes>31) ou (dia_semana>7) ou (dia_mes<1) ou (dia_semana<1) entao
escreva ("Número inválido ")
fimalgoritmo
senao
Enquanto n > 1 faca
n <- n-1
x <- (x-1)
SE (x=0) entao
x <- (7)
FIMSE
FIMENQUANTO
SE x=1 entao
semana <- " é um Domingo"
senao
SE x=2 entao
semana <- " é uma Segunda-feira"
senao
SE x=3 entao
semana <- " é uma Terça-feira"
senao
SE x=4 entao
semana <- " é uma Quarta-feira"
senao
SE x=5 entao
semana <- " é uma Quinta-feira"
senao
SE x=6 entao
semana <- " é uma Sexta-feira"
senao
SE x=7 entao
semana <- " é um Sábado"
FIMSE
FIMSE
fimse
fimse
fimse
fimse
fimse
fimse
escreva ("O primeiro dia deste mês",semana)

fimalgoritmo