Entradas

Mostrando entradas de febrero 4, 2008

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