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...
Comentarios