Римские цифры — цифры, использовавшиеся древними римлянами в своей непозиционной системе счисления.

Натуральные числа записываются при помощи повторения этих цифр. При этом, если большая цифра стоит перед меньшей, то они складываются (принцип сложения), если же меньшая — перед большей, то меньшая вычитается из большей (принцип вычитания). Последнее правило применяется только во избежание четырёхкратного повторения одной и той же цифры.

Римские цифры появились за 500 лет до нашей эры у этрусков.

Цифры

римские цифры

В русском языке для закрепления в памяти буквенных обозначений цифр в порядке убывания существуют мнемонические правила:

Мы Dарим Сочные Lимоны, Хватит Vсем Iх.

Mы Dаем Cоветы Lишь Xорошо Vоспитанным Iндивидуумам

Соответственно M, D, C, L, X, V, I

Примеры

Для правильной записи больших чисел римскими цифрами необходимо сначала записать число тысяч, затем сотен, затем десятков и, наконец, единиц.

При этом некоторые из цифр (I, X, C, M) могут повторяться, но не желательно более трех раз, таким образом с их помощью можно записать любое целое число не более 3999 (MMMCMXCIX). В ранние периоды существовали знаки для обозначения бо́льших цифр — 5000, 10 000, 50 000 и 100 000^{[источник не указан 595 дней]} (тогда максимальное число по упомянутому правилу равно 399 999). При записи чисел в римской системе счисления меньшая цифра может стоять справа от большей; в этом случае она прибавляется к ней. Например, число 283 по-римски записывается как CCLXXXIII, то есть 200+50+30+3=283. Здесь цифра, изображающая сотню, повторена два раза, а цифры, изображающие соответственно десяток и единицу, повторены по три раза.

Пример: число 1988. Одна тысяча M, девять сотен CM, восемь десятков LXXX, восемь единиц VIII. Запишем их вместе: MCMLXXXVIII.

Довольно часто, чтобы выделить числа в тексте, над ними рисовали черту: LXIV. Иногда черту рисовали и сверху, и снизу: XXXII — в частности, так принято выделять римские цифры в русском рукописном тексте (в типографском наборе это не используют из-за технической сложности). У других авторов черта сверху могла обозначать увеличение значения цифры в 1000 раз: VM = 6000.

Повсеместно записывать число «четыре» как «IV» стали только в XIX веке, до этого наиболее часто употреблялась запись «IIII». Однако запись «IV» можно встретить уже в документах манускрипта «Forme of Cury», датируемых 1390 годом. На циферблатах часов в большинстве случаев традиционно используется «IIII» вместо «IV», главным образом, по эстетическим соображениям: такое написание обеспечивает визуальную симметрию с цифрами «VIII» на противоположной стороне, а перевёрнутую «IV» прочесть труднее, чем «IIII».

Меньшая цифра может быть записана и слева от большей, тогда её следует вычесть из большей. В этом случае повторения меньшей цифры не допускаются. По-римски число 94 будет XCIV=100-10+5-1=94 — так называемое «правило вычитания» (появилось в эпоху поздней античности, а до этого римляне писали число 4 как IIII, а число 40 — как XXXX). Существует шесть вариантов использования «правила вычитания»:

• IV = 4
• IX = 9
• XL = 40
• XC = 90
• CD = 400
• CM = 900

Необходимо отметить, что другие способы «вычитания» не допустимы; так, число 99 должно быть записано как XCIX, но не как IC. Однако, в наши дни в некоторых случаях используется и упрощенная запись римских чисел: например, в программе Microsoft Excel при преобразовании арабских цифр в римские при помощи функции «РИМСКОЕ()» можно использовать несколько видов представления чисел, от классического до сильно упрощенного (так, число 499 может быть записано как CDXCIX, LDVLIV, XDIX, VDIV или ID). Упрощение состоит в том, что для уменьшения какой-либо цифры слева от неё может писаться любая другая цифра:

• 999. Тысяча (M), вычтем 1 (I), получим 999 (IM) вместо CMXCIX. Следствие: 1999 — MIM вместо MCMXCIX
• 95. Сто (C), вычтем 5 (V), получим 95 (VC) вместо XCV
• 1950: Тысяча (M), вычтем 50 (L), получим 950 (LM). Следствие: 1950 — MLM вместо MCML

С помощью римских цифр можно записывать и большие числа. Для этого над теми цифрами, которые обозначают тысячи, ставится черта, а над цифрами, которые обозначают миллионы, — двойная черта. Например, число 123123 будет выглядеть так:

CXXIIICXXIII

А миллион как I, но только не с одной, а с двумя чертами во главе: I

Применение

В русском языке римские цифры используются в следующих случаях:

• Номер века или тысячелетия: XIX век, II тысячелетие до н. э.
• Порядковый номер монарха: Карл V, Екатерина II.
• Номер тома в многотомной книге (иногда — номера частей книги, разделов или глав).
• В некоторых изданиях — номера листов с предисловием к книге, чтобы не исправлять ссылки внутри основного текста при изменении предисловия.
• Маркировка циферблатов часов «под старину».
• Иные важные события или пункты списка, например: V постулат Евклида, II мировая война, XX съезд КПСС, Игры XXII Олимпиады и т. п.
• Валентность химических элементов.
• Порядковый номер ступени в звукоряде.

Римские цифры широко употреблялись в СССР при указании даты для обозначения месяца года: 11/III-85 или 9.XI.89. Для указания дат жизни и смерти на надгробиях часто использовался особый формат, где месяц года также обозначался римскими цифрами. С переходом на компьютерную обработку информации форматы даты, основанные на римских цифрах, практически вышли из употребления.

В других языках сфера применения римских цифр может иметь особенности, например, в западных странах римскими цифрами иногда записывается номер года.

Если разложить цифры графически то получается следущее:

Юникод

Стандарт Юникода рекомендует использовать для представления римских цифр обычные латинские буквы.^[1] Тем не менее стандарт включает также специальные символы для римских цифр как часть Числовых форм (англ. Number Forms)^[2] в области знаков с кодами с U+2160 по U+2188. Например, MCMLXXXVIII может быть представлено в форме ⅯⅭⅯⅬⅩⅩⅩⅧ. Этот диапазон включает как строчные, так и прописные цифры от 1 (Ⅰ или I) до 12 (Ⅻ или XII), в том числе и комбинированные глифы для составных чисел, таких как 8 (Ⅷ или VIII), главным образом для обеспечения совместимости с восточноазиатскими наборами символов в таких промышленных стандартах, как JIS X 0213, где эти символы определены. Комбинированные глифы используются для представления чисел, которые ранее составлялись из отдельных символов (например, Ⅻ вместо его представления как Ⅹ и Ⅱ). В дополнение к этому, глифы существуют для архаичных^[2] форм записи чисел 1000, 5000, 10 000, большой обратной C (Ɔ), поздней формы записи 6 (ↅ, похожей на греческую стигму: Ϛ), ранней формы записи числа 50 (ↆ, похожей на стрелку, указывающую вниз ↓⫝⊥^[3]), 50 000, и 100 000. Следует отметить, что маленькая обратная c, ↄ не включена в символы римских цифр, но включена в стандарт Юникод как прописная клавдиева буква Ↄ.

Отображение всех этих символов требует наличия программного обеспечения, поддерживающего стандарт Юникод, и шрифта, содержащего соответствующие этим символам глифы.

Регулярные выражения

Регулярное выражение для проверки римских цифр — '^(?i)M{0,3}(D?C{0,3}|C[DM])(L?X{0,3}|X[LC])(V?I{0,3}|I[VX])$'. В языке Perl для поиска римских цифр в строке можно использовать регулярное выражение 'm/((?i)M{0,3}(D?C{0,3}|C[DM])(L?X{0,3}|X[LC])(I[VX]|V?I{0,3}))/g'.

Преобразование

Для преобразования чисел, записанных арабскими цифрами, в римские, используются специальные функции. Например, в русской версии Microsoft Excel для этого существует функция РИМСКОЕ(аргумент), в английской версии Microsoft Excel и в любой версии OpenOffice.org Calc эта функция называется ROMAN(аргумент).

var arab = [1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000];
var roman = ['I','IV','V','IX','X','XL','L','XC','C','CD','D','CM','M'];
 
function arabToRoman(number)
{
        if(!number) return '';
 
        var ret = '';
        var i = arab.length - 1;
        while(number > 0)
        {
                if(number >= arab[i])
                {
                        ret += roman[i];
                        number -= arab[i];
                }
                else
                {
                        i--;
                }
 
        }
        return ret;
}
 
function romanToArab(str)
{
 
        str = str.toUpperCase();
 
        var ret = 0;
        var i = arab.length - 1;
        var pos = 0;
        while(i >= 0 && pos < str.length )
        {
                if(str.substr(pos, roman[i].length) == roman[i])
                {
                        ret += arab[i];
                        pos += roman[i].length;
                }
                else
                {
                        i--;
                }
 
        }
        return ret;
}

#include <string.h>
 
 
const int   arabar[]  = {  1,   4,    5,   9,    10,  40,  50,   90,  100, 400,  500, 900,  1000};
const char *romanar[] = { "I", "IV", "V", "IX", "X", "XL", "L", "XC", "C", "CD", "D", "CM", "M"};
 
char *arab2roman(unsigned short int arab) {
        static char roman[80];
        const int m = sizeof(arabar)/sizeof(int)-1, arabmax=arabar[m];
        const char romanmax=romanar[m][0];
        int i, n;
        if(!arab) {
                *roman=0;
                return roman;
        }
        i=0;
        while(arab>arabmax) {
                roman[i++] = romanmax;
                arab      -= arabmax;
        }
        n=m;
        while(arab > 0) {
                if(arab >= arabar[n]) {
                        roman[i++] = romanar[n][0];
                        if(n&1)
                                roman[i++] = romanar[n][1];
                        arab -= arabar[n];
                } else
                        n--;
        }
        roman[i]=0;
        return roman;
}
 
unsigned short int roman2arab(char *roman) {
        const int m = sizeof(arabar)/sizeof(int)-1;
        unsigned short int arab;
        int len, n, i, pir;
        len=strlen(roman);
 
        arab=0;
        n=m;
        i=0;
        while(n >= 0 && i < len) {
                pir=n&1;
                if(roman[i] == romanar[n][0] && (!pir || roman[i+1] == romanar[n][1])) {
                        arab += arabar[n];
                        i    += 1+pir;
                } else
                        n--;
        }
        return arab;
}

type str2 = string[2]; 
const 
   Rims : array[1..14] of str2 = ('M','CM','D','CD','C','XC','L','XL','X','IX','V','IV','I',' '); 
   Arab : array[1..14] of integer = (1000, 900, 500, 400, 100, 90, 50, 40, 10, 9, 5, 4, 1, 0); 
 
var 
  N, NI, I, J : integer; 
  S    : string; 
 
  function Arab2Rim(N : integer) : string; 
  var S : string; 
      I : integer; 
  begin 
    S := ''; I:=1; 
    while N > 0 do begin 
      while Arab[I]<=N do begin 
        S := S + Rims[I]; 
        N := N - Arab[I] 
      end; 
      I:=I+1 
    end; 
    Arab2Rim := S 
  end; 
 
  function Rim2Arab (S:string) : integer; 
  var I, N : integer; 
  begin 
    I:=1; N := 0; 
    while S<>'' do begin 
      while Rims[I] = Copy(S, 1, Length(Rims[I]) ) do begin 
        S := Copy( S, 1+Length(Rims[I]), 255); 
        N := N + Arab[I] 
      end; 
      I:=I+1 
    end; 
    Rim2Arab := N 
  end; 
 
begin 
  WriteLn('Перевод из арабских цифр в римские. 1999 B_SA'); 
{  Write('Введите число для преобразования:'); ReadLn(N);} 
  for NI := 26 to 46 do 
    WriteLn(NI,' = ',Arab2Rim(NI),' обратно ', Rim2Arab( Arab2Rim(NI) )); 
end.

function Arab2Roman(arab:integer):string;
var
  i:integer;
  d:integer;
  arab_str:string;
  arab_len:integer;
begin
  Result := '';
  arab_str := IntToStr(arab);
  arab_len := Length(arab_str);
  for i := 0 to arab_len-1 do begin
    d := StrToInt(String(arab_str[arab_len-i]));
    if (d+1) mod 5 = 0 then
      Result := Copy('IXCM', 1+i, 1) + Copy('VXLCDM', i*2 + (d+1) div 5, 1) + Result
    else
      Result := Copy('VLD', 1+i, d div 5) + Copy('IIIXXXCCCMMM', 1+i*3, d mod 5) + Result;
  end;
end;

Отличительной особенностью данного алгоритма является то, что в нём не используются массивы (если, конечно, не считать строку массивом символов).

10 INPUT "АРАБСКОЕ ЧИСЛО: "; А$
20 FOR I=0 TO LEN(A$)-1
30 X=VAL(MID$(A$,LEN(A$)-I,1))
40 IF X=4 OR X=9 THEN B$=MID$("IXCM",I+1,1)+MID$("VXLCDM",I*2+(X+1)/5,1)+B$
50 IF X<4 THEN B$=MID$("IIIXXXCCCMMM",1+I*3,X)+B$
   ELSE IF X>4 AND X<9 THEN B$=MID$("VLD",I+1,1)+MID$("IIIXXXCCCMMM",1+I*3,X-5)+B$
60 NEXT I
70 PRINT "РИМСКОЕ ЧИСЛО: "; B$

string-join(
        for $num in (1999)
                return (
                        ('','M','MM','MMM')[($num idiv 1000) mod 10+1],
                        ('','C','CC','CCC','CD','D','DC','DCC','DCCC','CM')[($num idiv 100) mod 10+1],
                        ('','X','XX','XXX','XL','L','LX','LXX','LXXX','XC')[($num idiv 10) mod 10+1],
                        ('','I','II','III','IV','V','VI','VII','VIII','IX')[$num mod 10+1]
                ),
        '')

use strict;
use warnings;
 
my $n = 1999;
 
my $nums = [ 
 ['', qw(I II III IV V VI VII VIII IX) ],
 ['', qw(X XX XXX XL L LX LXX LXXX XC) ],
 ['', qw(C CC CCC CD D DC DCC DCCC CM) ],
 ['', qw(M MM MMM) ]
];
 
my $i = 0; my @res = ();
push @res, ($nums->[$i++][ ($n % 10, $n = int($n / 10))[0] ]) for 0 .. 3;
print reverse @res;

class ArabRome {
    private int[]    arabBase = {1000, 500, 100, 50, 10, 5, 1};
    private String[] romeBase = {"M", "D", "C", "L", "X", "V", "I"};
    public String ArabToRome(int arab) {
        int result     = 0;
        int remainder  = 0;
        String resultRome = "";
        for(short i = 0; i<arabBase.length; i+=2) {
            result    = arab/arabBase[i];
            remainder = arab%arabBase[i];
            if(result>0 && result<4) {
                for(short j = 0; j<result; j++) {
                    resultRome += romeBase[i];
                }
            }
            else if(result>=4 && result<9) {
                for(short j=(short)result; j<5; j++) {
                    resultRome += romeBase[i];
                }
                resultRome += romeBase[i-1];
                for(short j=5; j<result; j++) {
                    resultRome += romeBase[i];
                }                
            }
            else if(result == 9) {
                resultRome += romeBase[i] + romeBase[i-2];
            }
            if(remainder==0) break;
            arab = remainder;
        }
        return resultRome;
    }
}

Примечания