Sviluppo4d.it
Sito indipendente di informazioni tecniche per sviluppatori 4th Dimension italiani  

Sviluppatori 4D

Utility 4D

Risorse 4D



4d logo
Naviga: Prev Next

Titolo: Convertire numeri arabi in numeri romani

Categoria: Codice Ultimo Aggiornamento: 30/12/20


Di seguito lo sviluppo di un algoritmo per la conversione di un numero arabo in numero romano. Il testo romano viene generato da destra a sinistra


//u_DaAraboARomano
//--------------------------

If (Count parameters=0)
      $romano:=u_DaAraboARomano (87) //per test
Else
      $number:=$1
      $udigits:="IVXLCDM"
      $romano:=""
      $posizione:=1
      Repeat
           $modulo:=$number%10
           If (($modulo%5)<4)
           For ($i;($modulo%5);1;-1)
           $romano:=$udigits[[$posizione]]+$romano
           End for
           End if
           If (($modulo>=4) & ($modulo<=8))
           $romano:=$udigits[[$posizione+1]]+$romano
           End if
           If ($modulo=9)
           $romano:=$udigits[[$posizione+2]]+$romano
           End if
           If ($modulo%5=4)
           $romano:=$udigits[[$posizione]]+$romano
           End if
           $number:=Trunc($number/10;0)
           $posizione:=$posizione+2
      Until ($number<=0)
      $0:=$romano
End if



Inviato da: PierPaolo Sichera Visite: 4771

Se accedi con utente e password, puoi aggiungere dei commenti.

Accesso

User:
Pass: Accedi

Cerca

Se non trovi le informazioni che cerchi scrivi a aiuto@sviluppo4d.it

4D Principali

4D Discussioni

Faq random


Crediti

Dominio registrato da ZetaNet
Sito realizzato da Nexus srl
4D SQL 11.9.0 offerto da 4D & Italsoftware
Icone di FAMFAMFAM
Moderato da Umberto Migliore
333 utenti registrati

Pagina servita il 21/12/24 alle 19:29:05 Valid HTML 4.01! Valid CSS!

Mutuo Facile, iDigitalScout, iDigitalTags e altre app di Nexid srl per iPhone e iPad

Cidroid, distributore italiano lettori barcode per IOS Apple iPhone, iPod, iPad