Fobonacci en numeros romanos

Hola,
este día les traigo un programa que presente en la universidad en la materia de programación espero les sea de ayuda.
Este programa esta hecho en power builder.

---------codigo-----------------


double a,b,f,c1
Integer N
INt M, C, D, U
String S

if (Integer(Sle_numero.text) >0) then

MessageBox(" ","I")

a=0
b=1
for c1=1 to Integer(Sle_numero.text)-1
f=a+b

N=f

M=N / 1000
N=N - M * 1000
C=N / 100
N=N - C * 100
D= N / 10
U=N - D * 10

Choose case M
Case 1
S="M"
Case 2
S="MM"
case 3
S="MMM"
Case 4
S="MMMM"
Case 5
S="MMMMM"
case 6
S="MMMMMM"
Case 7
S="MMMMMMM"
Case 8
S="MMMMMMMM"
case 9
S="MMMMMMMMM"
End Choose


Choose case C
Case 1
S=S+"C"
Case 2
S=S+"CC"
case 3
S=S+"CCC"
Case 4
S=S+"CD"
Case 5
S=S+"D"
case 6
S=S+"DC"
Case 7
S=S+"DCC"
Case 8
S=S+"DCCC"
case 9
S=S+"CD"
End Choose


Choose case D
Case 1
Choose Case U
case 0
S=S+"X"
case 1
S=S+"XI"
case 2
S=S+"XII"
case 3
S=S+"XIII"
case 4
S=S+"XIV"
case 5
S=S+"XV"
case 6
S=S+"XVI"
case 7
S=S+"XVII"
case 8
S=S+"XVIII"
case 9
S=S+"XIX"
end choose
Case 2
S=S+"XX"
case 3
S=S+"XXX"
Case 4
S=S+"XL"
Case 5
S=S+"L"
case 6
S=S+"LX"
Case 7
S=S+"LXX"
Case 8
S=S+"LXXX"
case 9
S=S+"XC"
End Choose


If (D <> 1 )then

Choose case U
Case 1
S=S+"I"
Case 2
S=S+"II"
case 3
S=S+"III"
Case 4
S=S+"IV"
Case 5
S=S+"V"
case 6
S=S+"VI"
Case 7
S=S+"VII"
Case 8
S=S+"VIII"
case 9
S=S+"IX"
End Choose
end if

MessageBox(" ",string(s))

s=" "
a=b
b=f
next

else
MessageBox("Error","Introdusca un numero mayor a 0")
end if

//SergioOR

Gracias por visitar mi blog...

Nos vemos en la próxima aplicación xD....

Comentarios

Publicar un comentario

Entradas populares de este blog

Funciones principales de un Datawindows en Power Builder

Hola amigos este dia traigo las funciones mas comunes de los Datawindows de Power Builder que encontre en una pagina de internet... espero les sean de ayuda: SetTransObject Hace que un control DataWindow use un objeto de transacción especificado por el programador. El objeto de transacción proporciona la información nesecesaria para comunicarse con la Base de Datos. Retorna -1 si ha ocurrido un error. Sintaxis Dwn. Settransobject(Transacción) Argument Description Dwn El nombre del Control data window, con el cual se desea usar un objeto de transacción. Transacción Nombre del Objeto de transacción, por defecto es SQLCA. Generalmente se establece el objeto de transacción en el evento Open de la ventana que contiene el control DataWindow. En resumen el SettransObject(SQLCA) asocia el objeto transación con el control DataWindow. Ejemplo: DwnSoftware.settransobject(SQLCA) Inse
Leer más

Las políticas y Prácticas en Recursos Humanos

Imagen
Por Jaime Ortiz Cátedra: Comportamiento y Desarrollo Organizacional Maestría en gestión de RRHH. En la lectura de esta semana, sobre políticas y prácticas en RRHH hemos podido ver como la cultura organizacional y las políticas afectan el comportamiento, cumplimiento de metas, eficiencia y eficacia de los colaboradores en sus puestos de trabajo. Cultura Organizacional: La cultura organizacional está definida por algunos autores como el conjunto de creencias, hábitos, valores, actitudes, tradiciones entre los grupos existentes en todas las organizaciones, y se fundamenta en seis pilares: La cultura organizacional ayuda a definir las fronteras entre una organización y las demás, es decir es el elemento diferenciador que permite a las empresas generar sentimientos de pertenencia a los colaboradores, reduciendo así los índices de rotación y logrando en cierto grado responsabilizarlos a lograr los objetivos de la organización, siguiendo las costumbres y el sentir de
Leer más

Cargar informacion de base de datos en Combobox C# y VB

Hola amigos lectores ya estoy de regreso y esta ves con algo que un amigo utilizo en uno de sus proyectos de la universidad y que me llamo mucho la atencion ya que como todos sabemos cargar un datagrid con la informacion de una tabla pero ¿cargar un combobox con una columna de una tabla de la base de datos?, ademas el ingeniero que nos impartia la materia de programacion no nos permitia usar asistentes ya que el decia que eso no es programar asi que teniamos que hacer todo con puro codigo. pues como decia les mostrare una forma facil de llenar un combobox. cuando mi amigo me pregunto como llenar el combobox yo pense en un "for" o un "foreach" pero teniamos poco tiempo asi que decidi investigar un poco y el resultado fue este: en C#: SqlConnection SRconnection = new SqlConnection("Data Source =; Initial Catalog = BASE_DE_DATOS; Integrated Security = SSPI"); DataSet ds = new DataSet(); SqlDataAdapter da = new SqlDataAdapter("Select COLUMNA Fr
Leer más