Question

Proceso Romanos

// leer el número
Escribir "Ingrese un número entre 1 y 1000"
Leer Numero

// controlar que sea válido para convertir
SePuedeConvertir<-Verdadero
Si Numero=0 Entonces
Escribir "No existe ningún símbolo para representar el 0"
SePuedeConvertir<-Falso
FinSi
Si Numero<>trunc(numero) Entonces
Escribir "El número debe ser entero"
SePuedeConvertir<-Falso
FinSi
Si Numero>1000 Entonces
Escribir "Muy alto"
SePuedeConvertir<-Falso
FinSi
Si Numero<0 Entonces
Escribir "Debe ser positivo"
SePuedeConvertir<-Falso
FinSi

// realizar la conversión
Si SePuedeConvertir Entonces
Si Numero=1000 Entonces
Escribir "M"
Sino
Dimension nu[10], nd[10], nc[10] // notación para unidades, decenas y centenas
nu[I]<-''; nu[II]<-'2'; nu[III]<-'3'; nu[IV]<-'4'; nu[V]<-'5'; nu[VI]<-'6'; nu[VII]<-'7'; nu[VIII]<-'8'; nu[IX]<-'9'; nu[X]<-'10'
nd[1]<-''; nd[2]<-'X'; nd[3]<-'XX'; nd[4]<-'XXX'; nd[5]<-'XL'; nd[6]<-'L'; nd[7]<-'LX'; nd[8]<-'LXX'; nd[9]<-'LXXX'; nd[10]<-'XC'
nc[1]<-''; nc[2]<-'C'; nc[3]<-'CC'; nc[4]<-'CCC'; nc[5]<-'CD'; nc[6]<-'D'; nc[7]<-'DC'; nc[8]<-'DCC'; nc[9]<-'DCCC'; nc[10]<-'CM'
centenas<-trunc(Numero/100) MOD 10
decenas<-trunc(Numero/10) MOD 10
unidades<-Numero MOD 10
Escribir nc[centenas+1],nd[decenas+1],nu[unidades+1]
FinSi
FinSi
FinAlgoritmo






me falta el 2, quien me ayuda invertirlo porfavor :(​

Answer 1

Respuesta:

Tienes que usar  repetir/ hasta que  ( Por ejemplo el usuario digite el numero 1  y termina el algoritmo si digita otro seguirá.)

Te dejo un ejemplo

Answer 2

No estoy muy seguro, pero y si le preguntas al usuario “¿Cuantos números vas a insertar?”
Y con ese valor haces un ciclo, solo copias y pegas el código dentro del ciclo y ya se repite la cantidad de veces que indicó el usuario