生成罗马数字的Delphi函数

云烟，不再年轻

于 2008-10-24 09:24:00 发布

阅读量1.5k

点赞数

分类专栏： delphi 文章标签： delphi c

delphi 专栏收录该内容

152 篇文章

订阅专栏

本文介绍了一个用于将十进制数字转换为罗马数字的函数实现。通过定义数值与对应的罗马字符数组，该函数采用减法原则进行转换，确保了结果的准确性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

function DecToRom(Dec: LongInt): String;
const
  Nums : Array[1..13] of Integer =
    (1, 4, 5, 9, 10, 40, 50, 90, 100,
      400, 500, 900, 1000);
  RomanNums:  Array[1..13] of string =
    ('I', 'IV', 'V', 'IX', 'X', 'XL',
      'L', 'XC', 'C', 'CD', 'D', 'CM', 'M');
var
  i: Integer;
begin
  Result := '';
  for i := 13 downto 1 do
    while (Dec >= Nums[i]) do
    begin
      Dec := Dec - Nums[i];
      Result  := Result + RomanNums[i];
    end;
end;