Buscador En nuestro sitio Enlaces Documentación Foros Código Secciones Noticias Blogs Cursos Artículos Foros Código fuente Direcciones Formación Tienda Cursos bbdd Otras zonas ASP en castellano HTML en castellano Java en castellano PHP en castellano Foros Bases de datos y SQL MySQL Oracle Visual FoxPro Ganamos Registro Nombre de usuario: Contraseña:

Inicio > Código fuente > Visual FoxPro > Numero Decimal a Romano Código fuente Numero Decimal a Romano Autor: Jesús Martínez Función que acepta un numero decimal y retorna el correspondiente numero romano. PARAMETERS XNUM * CONVIERTE NUMERO DECIMAL A ROMANOS DIMENSION NUMEROS(13),ROMANOS(13) NUMEROS(1) = 1 NUMEROS(2) = 4 NUMEROS(3) = 5 NUMEROS(4) = 9 NUMEROS(5) = 10 NUMEROS(6) = 40 NUMEROS(7) = 50 NUMEROS(8) = 90 NUMEROS(9) = 100 NUMEROS(10) = 400 NUMEROS(11) = 500 NUMEROS(12) = 900 NUMEROS(13) = 1000 ROMANOS(1) = \"I\" ROMANOS(2) = \"IV\" ROMANOS(3) = \"V\" ROMANOS(4) = \"IX\" ROMANOS(5) = \"X\" ROMANOS(6) = \"XL\" ROMANOS(7) = \"L\" ROMANOS(8) = \"XC\" ROMANOS(9) = \"C\" ROMANOS(10) = \"CD\" ROMANOS(11) = \"D\" ROMANOS(12) = \"CM\" ROMANOS(13) = \"M\" XROM = \"\" FOR I = 13 TO 1 STEP -1 DO WHILE XNUM >= NUMEROS(I) XNUM = XNUM - NUMEROS(I) XROM = XROM + ROMANOS(I) ENDDO NEXT I RETURN XROM Utilidades Leer comentarios (2) Escribir comentario   Puntuación: (1 voto) Votar Recomendar este código Estadísticas   Patrocinados

Copyright © 1999-2007 Programación en castellano. Todos los derechos reservados.
Formulario de Contacto - Datos legales - Publicidad
Mantenida por: Claudio y Dani.

Hospedaje web y servidores dedicados linux por Ferca Network

red internet: musica mp3 | amor | hospedaje web linux | registro de dominios | servidores dedicados
más internet: comprar | gratis | posicionamiento en buscadores | decoración libre | gifs animados