PureBasic

Code : Tout sélectionner

;- Conversion d'un entier en chiffres romains

Procedure.s RomVal(n.l)
  
  roms.s = "1000,M;900,CM;500,D;400,CD;100,C;90,XC;50,L;40,XL;10,X;9,IX;5,V;4,IV;1,I"
  
  For i = 1 To 13
    
    a.s = StringField(roms,i,";")
    b.l = Val(StringField(a,1,","))
    
    While n >= b
      res.s + StringField(a,2,",")
      n - b
    Wend
    
  Next
  
  ProcedureReturn res
  
EndProcedure

;- Exemples d'utilisation

Debug RomVal(1998)
Debug RomVal(2005)

For i = 1 To 1200
  Debug RomVal(i)
Next

Code : Tout sélectionner

Debug RomVal(490)

Code : Tout sélectionner

;-
;- Objet :        Conversion d'un nombre entier en chiffres romains
;- Utilisation :  String.s = IntToRom(Integer.l)
;- Pré-Requis :   Integer doit être compris entre 1 et 10000
;-

Procedure.s IntToRom(n.l)
  
  If (n<1) Or (n>10000)
    ProcedureReturn "n/a"
  EndIf
  
  num.s = "1000,900,500,400,100,90,50,40,10,9,5,4,1"
  rom.s = "M,CM,D,CD,C,XC,L,XL,X,IX,V,IV,I"
  
  For i = 1 To 13
    a = Val(StringField(num,i,","))
    While n >= a
      res.s + StringField(rom,i,",")
      n - a
    Wend
  Next
  
  ProcedureReturn res
  
EndProcedure

;- Exemples d'utilisation

Debug IntToRom(-45)
Debug IntToRom(1998)
Debug IntToRom(2005)
Debug IntToRom(10004)
Debug "----"
For i = 1900 To 2005
  Debug Str(i) + " = " + IntToRom(i)
Next