
Convertir un número arábigo a romano. Entre 1 y 1000.
Pascal/Turbo Pascal





3.122 visualizaciones desde el 3 de Noviembre del 2020
El usuario puede introducir un número arábigo entre 1 y 1000, luego el programa lo convertirá en un número romano.
cadena="Hxli Mundx"
obj={"x":"o", "i":"a"}
reemplazar(cadena, obj); // Hola Mundo
cadena="La casa azul mas bonita de la montaña";
obj={"azul":"verde", "montaña":"pradera", " mas bonita":""}
reemplazar(cadena, obj); // La casa verde de la pradera
trianguloPascal(2); // [[1], [1, 1]]
trianguloPascal(3); // [[1], [1, 1], [1, 2, 1]]
trianguloPascal(4); // [[1], [1, 1], [1, 2, 1], [1, 3, 3, 1]]
trianguloPascal(5); // [[1], [1, 1], [1, 2, 1], [1, 3, 3, 1], [1, 4, 6, 4, 1]]
trianguloPascal(6); // [[1], [1, 1], [1, 2, 1], [1, 3, 3, 1], [1, 4, 6, 4, 1], [1, 5, 10, 10, 5, 1]]
menorRecursivo([5,3,8,6,1,4]); // 1
menorRecursivo([5,3,8,6,9,1]); // 1
menorRecursivo([1,5,3,8,6,4]); // 1
menorRecursivo([5,3,8,6,1,4]) # 1
menorRecursivo([5,3,8,6,9,1]) # 1
menorRecursivo([1,5,3,8,6,4]) # 1
eliminarAcentos("lá chòcölatìna MÓRDÌDÁ") # la chocolatina MORDIDA