Ejemplo de Algoritmo para convertir un numero decimal en romano

Proceso DecimalARomanoHastaMil
Definir unidad como entero;
Definir decena como entero;
Definir centena como entero;
Definir miles como entero;
Definir decimal como entero;
Definir romano como cadena;

Escribir "Ingrese un numero entro entre 0 y 2021: ";
Leer decimal;



unidad <- decimal % 10;
decimal <- decimal - unidad;
decimal <- decimal / 10;

decena <- decimal % 10;
decimal <- decimal - decena;
decimal <- decimal / 10;

centena <- decimal % 10;
decimal <- decimal - centena;
decimal <- decimal / 10;

miles <- decimal % 10;
decimal <- decimal - miles;
decimal <- decimal / 10;

romano <- "";

Segun unidad Hacer
1:
romano <- "I";
2:
romano <- "II";
3:
romano <- "III";
4:
romano <- "IV";
5:
romano <- "V";
6:
romano <- "VI";
7:
romano <- "VII";
8:
romano <- "VIII";
9:
romano <- "IX";
FinSegun

Segun decena Hacer
1:
romano <- "X" + romano ;
2:
romano <- "XX" + romano;
3:
romano <- "XXX" + romano;
4:
romano <-  "XL"  + romano;
5:
romano <-  "L" + romano;
6:
romano <- "LX"  + romano;
7:
romano <- "LXX"  + romano;
8:
romano <- "LXXX" + romano;
9:
romano <- "XC" + romano;
FinSegun

Segun centena Hacer
1:
romano <- "C" + romano;
2:
romano <- "CC" + romano;
3:
romano <- "CCC" + romano;
4:
romano <- "CD" + romano;
5:
romano <- "D" + romano;
6:
romano <- "DC" + romano;
7:
romano <- "DCC" + romano;
8:
romano <- "DCCC" + romano;
9:
romano <- "CM" + romano;
FinSegun

Segun miles Hacer
1:
romano <- "M" + romano;
2:
romano <- "MM" + romano;
FinSegun

Escribir "El numero en romano es; ", romano;



FinProceso