| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2003/12/16 20:07:05 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | implementation Const w_table: Array[1..18] of word = (7,9,10,5,8,4,2,1,6,3,7,9,10,5,8,4,2,1); m_table: Array[0..10] of word = (1,0,0,9,8,7,6,5,4,3,2); TYPE buffer = ARRAY[1..256] OF BYTE; Function CalcMy_x(aStr:string):String; var i,len:integer; aMod,Sum,Wi:integer; myx:string; begin sum := 0; len := length(astr); If len = 0 then Exit; //len := len - 1; For I:=1 to len do begin Wi := Round(Exp((len-i+1)*ln(2))) mod 11; //X^y=Exp(y*ln(X))； Sum := sum + Wi*Strtoint(astr[i]); //Sum := sum + W_table[i]*Strtoint(astr[i]); end; aMod := sum mod 11; If amod = 2 then myx := 'X' else begin aMod := m_table[amod]; myx := inttostr(aMod); end; Result := myx; end; 当astr=0000481968时， 能告诉我当i=5,6,7,8,9,10时的sum的值分别是多少吗。 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/16 20:31:21 | ||||
| 1楼： | 36 116 121 193 217 233 ----------------------------------------------  
|
|||||
| 作者： |
|
2003/12/16 20:34:20 | ||||
| 2楼： | 这个结果不对，最后一个sum=136（这是最后的结果），是什么原因。 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/16 20:36:32 | ||||
| 3楼： | 什么意思啊？ ----------------------------------------------
|
|||||
| 作者： |
|
2003/12/16 20:38:55 | ||||
| 4楼： | 程序测试的结果是for语句执行完后，sum=136, 你的结果和我的一样，但是不对。 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/16 20:41:17 | ||||
| 5楼： | 偶的最后一个怎么是233啊？ ----------------------------------------------
|
|||||
| 作者： |
|
2003/12/16 20:43:02 | ||||
| 6楼： | 请你在看看 ---------------------------------------------- - |
|||||
| 作者： |
|
2003/12/16 20:46:04 | ||||
| 7楼： | 搞不定了 偶让程序 自己去运行！
|
|||||
| 信息 |
| 登陆以后才能回复 |
