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: 4626 |
Se accedi con utente e password, puoi aggiungere dei commenti.