iglu.cz

leon · 发表于 2003 年 4 月 18 日 00:00:00

我有一个，不去申请了。

kokorado · 发表于 2003 年 4 月 18 日 00:00:00

好了，现在大家都高兴了吧，iglu可以死了~

kokorado · 发表于 2003 年 4 月 18 日 00:00:00

要说就给你们说切地一点，每次问题是不一样的！

puncture · 发表于 2003 年 4 月 18 日 00:00:00

十进制数转换成罗马数字：
function DecToRoman ( iDecimal: longint ): string;
const
  aRomans: array [ 1..13 ] of string = ( 'I', 'IV', 'V', 'IX', 'X', 'XL', 'L', 'XC', 'C', 'CD', 'D', 'CM', 'M' );
  aArabics: array [ 1..13 ] of integer = ( 1, 4, 5, 9, 10, 40, 50, 90, 100, 400, 500, 900, 1000 );
var
  i: integer;
begin
  result := '';
  for i := 13 downto 1 do
      while ( iDecimal > = aArabics [ i ] ) do begin
          iDecimal := iDecimal - aArabics [ i ];
          result := result + aRomans [ i ];
      end;
end;

复制代码

显示全部楼层 · 发表于 2003 年 4 月 18 日 00:00:00

提示: 作者被禁止或删除内容自动屏蔽

tyhy · 发表于 2003 年 4 月 18 日 00:00:00

是编程吧

puncture · 发表于 2003 年 4 月 18 日 00:00:00

delphi 的

leon · 发表于 2003 年 4 月 18 日 00:00:00

厉害。

konc · 发表于 2003 年 4 月 18 日 00:00:00

delphi的吧

显示全部楼层 · 发表于 2003 年 4 月 18 日 00:00:00

提示: 作者被禁止或删除内容自动屏蔽

账号		自动登录	找回密码
密码			注册

tly 该用户已被删除	发表于 2003 年 4 月 18 日 00:00:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
tly 该用户已被删除	Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
	回复顶踩使用道具举报显身卡

tly 该用户已被删除	发表于 2003 年 4 月 18 日 00:00:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
tly 该用户已被删除	Jgwy.Com - Free Web Hosting Guide & Directory In China since 2001! Jgwy.Net-Jglt.Net
	回复顶踩使用道具举报显身卡

[国外空间] iglu.cz