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

Sviluppatori 4D

Utility 4D

Risorse 4D



4d logo
Naviga: Prev Next

Titolo: Conversione da numero arabo a numero romano

Categoria: Codice Ultimo Aggiornamento: 28/10/05


Per completare l'argomento iniziato con la faq precedente ecco il metodo di conversione di un numero in notazione araba in notazione romana.


C_STRING(255;$0;$risultatoRomano_S)
C_INTEGER($1;$numeroArabo_I)
C_BOOLEAN($finito_B)
C_STRING(2;$decina_S;$cinquina_S;$unità_S)
C_STRING(4;$prefissi_S)

    `inizializzazione
$finito_B:=False
$numeroArabo_I:=$1
$risultatoRomano_S:=""
MATHERROR:=0
    `calcolo
Repeat
      $num:=$numeroArabo_I
      Case of
           : ($num>999)
           $prefissi_S:="M"*Num(Substring(String($numeroArabo_I);1;1))
           : ($num>99)
           $unità_S:="C"
           $cinquina_S:="D"
           $decina_S:="M"
           : ($num>9)
           $unità_S:="X"
           $cinquina_S:="L"
           $decina_S:="C"
           Else
           $unità_S:="I"
           $cinquina_S:="V"
           $decina_S:="X"
      End case
      If ($num<1000)
           $num:=Num(Substring(String($numeroArabo_I);1;1))
           $prefissi_S:=""
           Case of
           : ($num<4)
           $prefissi_S:=$unità_S*$num
           : ($num=4)
           $prefissi_S:=$unità_S+$cinquina_S
           : ($num=5)
           $prefissi_S:=$cinquina_S
           : ($num<9)
           $prefissi_S:=$cinquina_S+($unità_S*($num-5))
           : ($num=9)
           $prefissi_S:=$unità_S+$decina_S
           End case
      End if
      $risultatoRomano_S:=$risultatoRomano_S+$prefissi_S
      $numeroArabo_I:=Num(Substring(String($numeroArabo_I);2))
      $finito_B:=($numeroArabo_I<=0)
Until ($finito_B=True)

$0:=$risultatoRomano_S


Inviato da: PierPaolo Sichera Visite: 12650

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
318 utenti registrati

Pagina servita il 09/10/24 alle 19:09:37 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