1. Para facilitar el entendimiento de fechas por parte de los usuarios en el sistema de Una Universidad se ha decidido implementar un formato diferente. Actualmente las fechas se almacenan como un número de 8 dígitos, donde los 4 primeros representan el año, los siguientes 2 representan el mes, y los últimos 2 el día. Por ejemplo el número 20151118 representa el año 2015, el mes 11 y día 18. Su misión, es construir un algoritmo que dado una fecha en el formato actual, imprima la fecha en el siguiente formato: Día – Mes – Año. Para la fecha de ejemplo, la respuesta del algoritmo sería 18 –Noviembre – 2015.
Respuestas a la pregunta
Programa en pseint para el cambio de formato de una fecha ingresada por el usuario. Se adjunta imagen de salida del algoritmo.
Algoritmo cambioFormatoFecha
- // Definir variables
Definir s,cter Como Caracter
Definir fcha Como Real
Escribir '**Cambiar el formato de fecha**'
Repetir
- // Ingresar datos válidos
Escribir 'Ingresar fecha (valor de 8 cifras): ' Sin Saltar
Repetir
Leer fcha
cter <- ConvertirATexto(fcha)
Si NO Longitud(cter)=8 Entonces
Escribir 'El número debe ser de 8 cifras'
FinSi
Hasta Que Longitud(cter)=8
- // Cambio de formato
year <- "-"+SUBCADENA(cter,1,4)
mon <- SUBCADENA(cter,5,6)
day <- SUBCADENA(cter,7,8)
dia <- ConvertirANumero(day)
si no (dia >= 01 y dia <=31) Entonces
day <- "no existe"
FinSi
Segun mon Hacer
"01":mes<-"-enero"
"02":mes<-"-febrero"
"03":mes<-"-marzo"
"04":mes<-"-abril"
"05":mes<-"-mayo"
"06":mes<-"-junio"
"07":mes<-"-julio"
"08":mes<-"-agosto"
"09":mes<-"-septiembre"
"10":mes<-"-octubre"
"11":mes<-"-noviembre"
"12":mes<-"-diciembre"
De Otro Modo:mes<-"-no existe"
FinSegun
- //Mostrar fecha con nuevo formato
Escribir day+mes+year
Escribir 'OTRO CÁLCULO? (s/n)' Sin Saltar
Repetir
Leer s
s <- Minusculas(s)
Mientras Que (s<>'s' Y s<>'n')
Hasta Que s=='n'
FinAlgoritmo
Para saber más acerca de algoritmo de fechas consulte https://brainly.lat/tarea/65088500
#SPJ1
