Section courante

A propos

Section administrative du site

Les chiffres romain bien que peut efficace sont très utilisés encore aujourd'hui pour numéroter des annexes, suite de films et des pages de prélude. Voici leur représentation classique :

Nombre Romain Nombre décimal Nombre octal Nombre hexadécimal
I 1 1 1
II 2 2 2
III 3 3 3
IV 4 4 4
V 5 5 5
VI 6 6 6
VII 7 7 7
VIII 8 10 8
IX 9 11 9
X 10 12 A
XI 11 13 B
XII 12 14 C
XIII 13 15 D
XIV 14 16 E
XV 15 17 F
... ... ... ...

Toutefois, il est a noter que les chiffres romain ne dépasse que de très peu les milliers en terme de numérotation. Pour pouvoir générer automatiquent les nombres à partir de l'équivalence numérique, vous trouvez la réponse que vous souhaitez, à l'aide du code source LotusScript suivant :

  1. Function NumberToRomain(X As Integer) As String
  2.      Dim S As String
  3.      S = ""
  4.      Select Case Int((X Mod 1000) / 100)
  5.      Case 9: S=S & "CM"
  6.      Case 8: S=S & "DCCC"
  7.      Case 7: S=S & "DCC"
  8.      Case 6: S=S & "DC"
  9.      Case 5: S=S & "D"
  10.      Case 4: S=S & "CD"
  11.      Case 3: S=S & "CCC"
  12.      Case 2: S=S & "CC"
  13.      Case 1: S=S & "C"
  14.      End Select
  15.      Select Case Int((X Mod 100) / 10)
  16.      Case 9: S=S & "XC"
  17.      Case 8: S=S & "LXXX"
  18.      Case 7: S=S & "LXX"
  19.      Case 6: S=S & "LX"
  20.      Case 5: S=S & "L"
  21.      Case 4: S=S & "XL"
  22.      Case 3: S=S & "XXX"
  23.      Case 2: S=S & "XX"
  24.      Case 1: S=S & "X"
  25.      End Select
  26.      Select Case X Mod 10
  27.      Case 9: S=S & "IX"
  28.      Case 8: S=S & "VIII"
  29.      Case 7: S=S & "VII"
  30.      Case 6: S=S & "VI"
  31.      Case 5: S=S & "V"
  32.      Case 4: S=S & "IV"
  33.      Case 3: S=S & "III"
  34.      Case 2: S=S & "II"
  35.      Case 1: S=S & "I"
  36.      End Select
  37.      NumberToRomain = S
  38. End Function
  39.  
  40. Sub Main()
  41.      Dim I As Integer
  42.      For I=1 To 100
  43.           Print Str$(I) & " = " & NumberToRomain(I)
  44.      Next 
  45. End Sub

on obtiendra le résultat suivant :

1 = I
2 = II
3 = III
4 = IV
5 = V
6 = VI
7 = VII
8 = VIII
9 = IX
10 = X
11 = XI
12 = XII
13 = XIII
14 = XIV
15 = XV
16 = XVI
17 = XVII
18 = XVIII
19 = XIX
20 = XX
21 = XXI
22 = XXII
23 = XXIII
24 = XXIV
25 = XXV
26 = XXVI
27 = XXVII
28 = XXVIII
29 = XXIX
30 = XXX
31 = XXXI
32 = XXXII
33 = XXXIII
34 = XXXIV
35 = XXXV
36 = XXXVI
37 = XXXVII
38 = XXXVIII
39 = XXXIX
40 = XL
41 = XLI
42 = XLII
43 = XLIII
44 = XLIV
45 = XLV
46 = XLVI
47 = XLVII
48 = XLVIII
49 = XLIX
50 = L
51 = LI
52 = LII
53 = LIII
54 = LIV
55 = LV
56 = LVI
57 = LVII
58 = LVIII
59 = LIX
60 = LX
61 = LXI
62 = LXII
63 = LXIII
64 = LXIV
65 = LXV
66 = LXVI
67 = LXVII
68 = LXVIII
69 = LXIX
70 = LXX
71 = LXXI
72 = LXXII
73 = LXXIII
74 = LXXIV
75 = LXXV
76 = LXXVI
77 = LXXVII
78 = LXXVIII
79 = LXXIX
80 = LXXX
81 = LXXXI
82 = LXXXII
83 = LXXXIII
84 = LXXXIV
85 = LXXXV
86 = LXXXVI
87 = LXXXVII
88 = LXXXVIII
89 = LXXXIX
90 = XC
91 = XCI
92 = XCII
93 = XCIII
94 = XCIV
95 = XCV
96 = XCVI
97 = XCVII
98 = XCVIII
99 = XCIX
100 = C

Dernière mise à jour : Dimanche, le 18 janvier 2015