编程论坛 » Delphi论坛 » 水能写出下面的算法？

受苦 发表于 2007-11-20 22:48

水能写出下面的算法？

算法是这样的：取用户名ASCII码累积和为S1（十六进制）<br>
                              S2=（S1+1）*17496（十六）<br>
                              S3=S2的十进制<br>
  希望哪位大大写出来~主要是这些进制的转换弄不明白~

sky_yang_sky 发表于 2007-11-21 11:01

<P>轉換用函數就行了，分別要用到ord(), inttohex()十六進制轉化為十進制加$符號就行，自己試吧<br></P>
[align=right][color=#000066][此贴子已经被作者于2007-11-21 11:01:49编辑过][/color][/align]

受苦 发表于 2007-11-21 12:41

不行啊~我写一点我的~但是是错的~希望哪位帮忙写出正确的 <br>var name:string;<br>    i,s1:integer;<br>     s2:longint;<br>begin<br>  name:=edit1.Text ;<br>  s1:=1;<br>for i:=1 to length(name) do<br>s1:=s1+Ord(name[i]);<br>s1:=inttohex($s1);<br>s2:=s1*$17496;<br><br>edit2.Text:=inttostr(s2);<br>end;

xiexinxing 发表于 2007-11-21 16:55

s1:=inttohex(s1);<BR>s2:=s1*$17496;<BR>看看

查看完整版本: 水能写出下面的算法？