Resolução de Exercício

Resolução do exercício do post anterior:

algoritmo "diaDaSemana"

var
    dia: inteiro
    diaDaSemana: caractere

    funcao diaSemana( d: inteiro) : caractere

    var
        ds: caractere
    inicio
        escolha d
            caso 1
                 ds <- "Domingo"
            caso 2
                 ds <- "Segunda-feira"
            caso 3
                 ds <- "Terça-feira"
            caso 4
                 ds <- "Quarta-feira"
            caso 5
                 ds <- "Quinta-feira"
            caso 6
                 ds <- "Sexta-feira"
            caso 6
                 ds <- "Sábado"
            outrocaso
                 ds <- "Valor inválido"
            fimescolha
           
            retorne ds
    fimfuncao
inicio
        escreval( "Insira um número entre 1 e 7" )
        leia( dia )
        diaDaSemana <- diaSemana( dia )
        escreval( "O dia da semana é ", diaDaSemana )
fimalgoritmo