Hola comunidad les dejo este sencillo programita en prolog, ingresas un número del 1 al 10 y te lo imprime en romano.
Espero les sirva de ayuda.
menu:- nl,nl,display('MENU DE OPCIONES:'),nl,
display('1.-Imprimir numero ingresado en romano'),nl,
display('2.-Salir'),nl,
display('Elije un numero (1,2):'),read(S),seleccion(S).
seleccion(Op):-
(Op=1->call(romano);
Op=2->break),
display('Error, la opcion seleccionada no es valida'),
menu.
romano:-display('Escribe un numero'),read(Num),(Num=1->display('I'),Num=2->display('II'),Num=3->display('III'),Num=4->display('IV'),Num=5->display('V'),Num=6->display('VI'),Num=7->display('VII'),Num=8->display('VIII'),Num=9->display('IX'),Num=10->display('X'),Num>10->break),display('Ingreso un valor mayor de 10'),menu.
Espero les sirva de ayuda.
menu:- nl,nl,display('MENU DE OPCIONES:'),nl,
display('1.-Imprimir numero ingresado en romano'),nl,
display('2.-Salir'),nl,
display('Elije un numero (1,2):'),read(S),seleccion(S).
seleccion(Op):-
(Op=1->call(romano);
Op=2->break),
display('Error, la opcion seleccionada no es valida'),
menu.
romano:-display('Escribe un numero'),read(Num),(Num=1->display('I'),Num=2->display('II'),Num=3->display('III'),Num=4->display('IV'),Num=5->display('V'),Num=6->display('VI'),Num=7->display('VII'),Num=8->display('VIII'),Num=9->display('IX'),Num=10->display('X'),Num>10->break),display('Ingreso un valor mayor de 10'),menu.