Imprimir data por extenso

[marcosmvg 0]

Faça um programa que lê cinco datas no formato dd/mm/yyyy. Seu programa deverá imprimir as datas por extenso.

Por exemplo: suponha que o usuário digite: 26/05/2009, então seu programa deverá exibir:

26 de Maio de 2009.

 

obrigado

[Rodrigo7777 0]

algoritmo "data_ex"
// Função : Exibir data por extenso
// Autor : Rodrigo
// Data : 05/06/2010
// Seção de Declarações
var
dia, mes, ano: inteiro
mes_ex : caracter
inicio
// Seção de Comandos
escreva ("Digite um dia: ")
leia (dia)
escreva ("Digite um mes: ")
leia (mes)
escreva ("Digite um ano: ")
leia (ano)

escreval ("Sua data foi: ",dia," /",mes," /",ano)

se (mes = 1) ou (mes = 01) entao
   mes_ex <- "Janeiro"
senao
   se (mes = 2) ou (mes = 02) entao
      mes_ex <- "Fevereiro"
   senao
      se (mes = 3) ou (mes = 03) entao
         mes_ex <- "Março"
      senao
         se (mes = 4) ou (mes = 04) entao
            mes_ex <- "Abril"
         senao
            se (mes = 5) ou (mes = 05) entao
               mes_ex <- "Maio"
            senao
               se (mes = 6) ou (mes = 06) entao
                  mes_ex <- "Junho"
               senao
                  se (mes = 7) ou (mes = 07) entao
                     mes_ex <- "Julho"
                  senao
                     se (mes = 8) ou (mes = 08) entao
                        mes_ex <- "Agosto"
                     senao
                        se (mes = 9) ou (mes = 09) entao
                           mes_ex <- "Setembro"
                        senao
                           se (mes = 10) entao
                              mes_ex <- "Outubro"
                           senao
                              se (mes = 11) entao
                                 mes_ex <- "Novembro"
                              senao
                                 se (mes = 12) entao
                                    mas_ex <- "Dezembro"
                                 fimse
                              fimse
                           fimse
                        fimse
                     fimse
                  fimse
               fimse
            fimse
         fimse
      fimse
   fimse
fimse

escreval ("Data por extenso: ",dia," de ",mes_ex," de",ano)
fimalgoritmo

Acredito que seja isso. Agora só modificar o programa ao seu gosto.

 

Boa sorte