Respuestas
227,981: 2C 2D 7U 9d 8c 1m
12,35: 1D 2U 3d 5c
7,30: 7U 3d 0c
803,09: 8C 0D 3U 0d 9c
Recuerda distinguir entre mayúsculas y minúsculas. Suerte, saludos...
Con el siguiente algoritmo podemos descomponer los números en decenas, centenas, unidades, décimas, centésimas, milésimas, etc. Se adjunta imagen con las respuestas.
Algoritmo descomposicionDeNumeros
- // Definir variables
Definir c, dcimas, cntecimas,mlesimas ,diezmlesimas,cienmlesimas, millonsimas ,undades, dcenas, cntenas, unidadesmil, dcenasmil, cntenasmil Como Caracter
Definir cantdecimal, cantentera Como Entero
Definir num Como Real
c <- 's'
Mientras c='s' Hacer
cantdecimal <- 0
cantentera <- 0
partedecimal <- ""
partentera <- ""
dcimas <- 'No hay'
cntecimas <- 'No hay'
mlesimas <- 'No hay'
diezmlesimas <- 'No hay'
cienmlesimas <- 'No hay'
millonsimas <- 'No hay'
undades <- 'No hay'
dcenas <- 'No hay'
cntenas <- 'No hay'
unidadesmil <- 'No hay'
dcenasmil <- 'No hay'
cntenasmil <- 'No hay'
- // Ingresar número
Escribir 'Ingresar número: ' Sin Saltar
Repetir
leer num
Si NO ((num>0 y num<999999.999999)) Entonces
Escribir 'Entrada inválida'
FinSi
Hasta Que (num>0 y num<999999.999999)
- // Descomponer número
NuevoNum <- ConvertirATexto(num)
tam <- Longitud(NuevoNum)
para a <- 1 Hasta tam Hacer
cifra <- SUBCADENA(NuevoNum,a,a)
si cifra = "." Entonces
cantentera <- a-1
cantdecimal <- 1
FinSi
FinPara
si cantdecimal = 1 Entonces
para b <- 1 Hasta cantentera Hacer
cifra <- SUBCADENA(NuevoNum,b,b)
partentera <- partentera+cifra
FinPara
para b <- cantentera+2 Hasta tam Hacer
cifra <- SUBCADENA(NuevoNum,b,b)
partedecimal <- partedecimal+cifra
FinPara
SiNo
para b <- 1 Hasta tam Hacer
cifra <- SUBCADENA(NuevoNum,b,b)
partentera <- partentera+cifra
FinPara
FinSi
Segun Longitud(partentera) Hacer
1:
undades <- SUBCADENA(partentera,1,1)
2:
undades <- SUBCADENA(partentera,2,2)
dcenas <- SUBCADENA(partentera,1,1)
3:
undades <- SUBCADENA(partentera,3,3)
dcenas <- SUBCADENA(partentera,2,2)
cntenas <- SUBCADENA(partentera,1,1)
4:
undades <- SUBCADENA(partentera,4,4)
dcenas <- SUBCADENA(partentera,3,3)
cntenas <- SUBCADENA(partentera,2,2)
unidadesmil <- SUBCADENA(partentera,1,1)
5:
undades <- SUBCADENA(partentera,5,5)
dcenas <- SUBCADENA(partentera,4,4)
cntenas <- SUBCADENA(partentera,3,3)
unidadesmil <- SUBCADENA(partentera,2,2)
dcenasmil <- SUBCADENA(partentera,1,1)
6:
undades <- SUBCADENA(partentera,6,6)
dcenas <- SUBCADENA(partentera,5,5)
cntenas <- SUBCADENA(partentera,4,4)
unidadesmil <- SUBCADENA(partentera,3,3)
dcenasmil <- SUBCADENA(partentera,2,2)
cntenasmil <- SUBCADENA(partentera,1,1)
FinSegun
Segun Longitud(partedecimal) Hacer
1:
dcimas <- SUBCADENA(partedecimal,1,1)
2:
dcimas <- SUBCADENA(partedecimal,1,1)
cntecimas <- SUBCADENA(partedecimal,2,2)
3:
dcimas <- SUBCADENA(partedecimal,1,1)
cntecimas <- SUBCADENA(partedecimal,2,2)
mlesimas <- SUBCADENA(partedecimal,3,3)
4:
dcimas <- SUBCADENA(partedecimal,1,1)
cntecimas <- SUBCADENA(partedecimal,2,2)
mlesimas <- SUBCADENA(partedecimal,3,3)
diezmlesimas <- SUBCADENA(partedecimal,4,4)
5:
dcimas <- SUBCADENA(partedecimal,1,1)
cntecimas <- SUBCADENA(partedecimal,2,2)
mlesimas <- SUBCADENA(partedecimal,3,3)
diezmlesimas <- SUBCADENA(partedecimal,4,4)
cienmlesimas <- SUBCADENA(partedecimal,5,5)
6:
dcimas <- SUBCADENA(partedecimal,1,1)
cntecimas <- SUBCADENA(partedecimal,2,2)
mlesimas <- SUBCADENA(partedecimal,3,3)
diezmlesimas <- SUBCADENA(partedecimal,4,4)
cienmlesimas <- SUBCADENA(partedecimal,5,5)
millonsimas <- SUBCADENA(partedecimal,6,6)
FinSegun
- // Mostrar resultados
si cntenasmil <> 'No hay' Entonces
Escribir 'Centenas millar: ',cntenasmil
FinSi
si dcenasmil <> 'No hay' Entonces
Escribir 'Decenas millar: ',dcenasmil
FinSi
si unidadesmil <> 'No hay' Entonces
Escribir 'Unidades millar: ',unidadesmil
FinSi
si cntenas <> 'No hay' Entonces
Escribir 'Centenas: ',cntenas
FinSi
si dcenas <> 'No hay' Entonces
Escribir 'Decenas: ',dcenas
FinSi
si undades <> 'No hay' Entonces
Escribir 'Unidades: ',undades
FinSi
si dcimas <> 'No hay' Entonces
Escribir 'Décimas: ',dcimas
FinSi
si cntecimas <> 'No hay' Entonces
Escribir 'Centésimas: ',cntecimas
FinSi
si mlesimas <> 'No hay' Entonces
Escribir 'Milésimas: ',mlesimas
FinSi
si diezmlesimas <> 'No hay' Entonces
Escribir '10 milesi..: ',diezmlesimas
FinSi
si cienmlesimas <> 'No hay' Entonces
Escribir '100 milesi..: ',cienmlesimas
FinSi
si millonsimas <> 'No hay' Entonces
Escribir 'Millonésimas: ',millonsimas
FinSi
Escribir 'Otro número?: (s/n)' Sin Saltar
Repetir
Leer c
continuar <- Minusculas(c)
Hasta Que (c=='s' O c=='n')
FinMientras
FinAlgoritmo
Saber acerca de descomposición de números consulte: https://brainly.lat/tarea/1607588
#SPJ2
