Matemáticas, pregunta formulada por socop2412p6kvqn, hace 1 año

Necesito crear un programa en pseint que convierta numeros decimales a romanos ingresado por el usuario menor a 3000
Pero sin usar "DIMENSION" gracias

Respuestas a la pregunta

Contestado por CarlosMath
2
Proceso Romanos        // leer el número    Definir Numero como Numerico;    Escribir "Ingrese un número entre 1 y 3000";    Leer Numero;        // controlar que sea válido para convertir    Definir SePuedeConvertir Como Logico;    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>3000 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             Definir millares,centenas,decenas,unidades como numeros; millares<-trunc(Numero/1000) % 10; centenas<-trunc(Numero/100) % 10; decenas<-trunc(Numero/10) % 10; unidades<-Numero % 10; Definir digitoM, digitoC, digitoD, digitoU Como Caracter; Segun millares Hacer 0: digitoM<-''; 1: digitoM<-'M'; 2: digitoM<-'MM'; 3: digitoM<-'MMM'; FinSegun Segun centenas Hacer 0: digitoC<-''; 1: digitoC<-'C'; 2: digitoC<-'CC'; 3: digitoC<-'CCC'; 4: digitoC<-'CD'; 5: digitoC<-'D'; 6: digitoC<-'DC'; 7: digitoC<-'DCC'; 8: digitoC<-'DCCC'; 9: digitoC<-'CM'; Finsegun Segun decenas Hacer 0: digitoD<-''; 1: digitoD<-'X'; 2: digitoD<-'XX'; 3: digitoD<-'XXX'; 4: digitoD<-'XL'; 5: digitoD<-'L'; 6: digitoD<-'LX'; 7: digitoD<-'LXX'; 8: digitoD<-'LXXX'; 9: digitoD<-'XC'; Finsegun Segun unidades Hacer 0: digitoU<-''; 1: digitoU<-'I'; 2: digitoU<-'II'; 3: digitoU<-'III'; 4: digitoU<-'IV'; 5: digitoU<-'V'; 6: digitoU<-'VI'; 7: digitoU<-'VII'; 8: digitoU<-'VIII'; 9: digitoU<-'IX'; Finsegun Escribir digitoM,digitoC,digitoD,digitoU; FinSi FinProceso


==========================
O sino descargar el archivo txt


Adjuntos:
Otras preguntas