十六进制数的取模运算(50)

张利中

Unregistered / Unconfirmed
GUEST, post messages is not allowed!
#1
一个十六进制字符序列:7318efc576d8c24b47540d5acfd58e5a求:7318efc576d8c24b47540d5acfd58e5a 除以 1600(十进制数) 的余数?怎样用delphi实现?
 
C

creation-zy

Unregistered / Unconfirmed
GUEST, post messages is not allowed!
#3
这个序列太长,难以直接转换为整数进行计算,可以这样——从高位开始,一个一个的截取十六进制字符,转换为整数后对1600进行取余,得到的结果乘以16后叠加进后一个字符的计算过程,如下所示:function HexStrMod(const HexStr: String;
ModNum: Integer):Integer;var i,n:Integer;
begin
Result:=0;
//初始余数为0 //从左到右依次遍历字符串,进行转换并取余 for i:=1 to Length(HexStr)do
Result:=(Result*16+StrToInt('$'+HexStr)) mod ModNum;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(IntToStr(HexStrMod('7318efc576d8c24b47540d5acfd58e5a',1600)));
end;
 
A

ArJianzeng

Unregistered / Unconfirmed
GUEST, post messages is not allowed!
#4
先轉為相同進制再計算,比如都是十進制數,最後再轉為十六進制