急！急！急！！如何将一个阿拉伯数字转换成英语，如：输入1125.71显示为：ONE THOUSAND ONE HUNDRED AND TWENTY FIVE CENTS SEVENTY ONE ONLY

Question

个，十（Twenty,Thirty……)，百(……），千（……），万（……）,……
a[0],a[1],a[2],a[3],a[4],……
分别对应；
分解成小数和整数两部分
转换成字符串，分别从最后一位读起（循环)；
1125，先读5，依次2，1，1
当然，按照习惯，在程序中判断一下
  

Answer 1

sorry,不加思索就贴上来了 *_*,前面数组定义时应该仔细考虑一下……

Answer 2

cai1208(cai1208):
能不能说的具体点？

Answer 3

呵呵，偷偷问一声，大于million的英语单词是什么

Answer 4

1,000,000,000 翻译为：a milliard(or a billion)即 十亿

Answer 5

我有源程序，要的话，留个Email

Answer 6

我有源程序，要的话，留个Email

Answer 7

我有源程序，要的话，留个Email

Answer 8

to qianhb(钱)　
我已经发给你了

Answer 9

to 随风逝去:
给我一份源码好吗
[email protected]
  

Answer 10

对了，小数点后面的应该一位一位的读，1125.71显示为：ONE THOUSAND ONE HUNDRED TWENTY FIVE POINT SEVEN ONE ，而不是ONE THOUSAND ONE HUNDRED AND TWENTY FIVE CENTS SEVENTY ONE ONLY ，其中当百位空缺时AND是必须的，如果百位存在则AND可有可无

Answer 11

如果你想要and的话，直接在我的代码里改改就行了啊，改动也不会很大的

Answer 12

to 随风逝去:
也给我一份源码好吗?谢谢!
[email protected]

Answer 13

to 随风逝去:
不好意思，我没有收到！麻烦你再发一次！
[email protected]

Answer 14

不难吗！
把它转换为字符串，然后每读一个字符，就判定它是不是"."，若是，则Result := Result + 'Point'; 如果不是，用CASE语句，是1，则Result := Result + 'First',依此类推，轻松搞定

Answer 15

SORRY
你要判定小数点前有几位数字，分析一下，不难得