如何在 delphi中十进制数的每一位变成二进制然后进行异或

Posted 2023-05-11

delphi 中，可以用  xor 操作符完成 异或 计算。

以下是示例代码：

function IntToBin(const value, digits: longword): string;
var
  counter: integer;
  pow:     integer;
begin
  Result := \'\';
  pow := 1 shl (digits - 1);
  if value <> 0 then
  for counter := 0 to digits - 1 do
  begin
    if (value and (pow shr counter)) <> 0 then
      Result := Result + \'1\'
    else
      Result := Result + \'0\';
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i1,i2,i3: Integer;
begin
  i1 := 15; //1111
  i2 := 14; //1110
  i3 := i1 xor i2;
  ShowMessage(IntToStr(i1) + \' 异或 \' + IntToStr(i2)  + #13#10
    + \'= \'+IntToBin(i1,8) + \' 异或 \' +IntToBin(i2,8)  + #13#10
    + \'= \'+IntToBin(i3,8));
end;

运行截图：

参考技术A var s:string; i,r=1900;s=0;for i1 to length(s) do r:=strtoint(s ) xor r;// r (integer type) is the result! 查看更多答案>>本回答被提问者采纳

数的每一位平方和

1. 引言
   在数学问题中对一个数的每一位进行平方再相加可能是一个比较简单事情，可当把这个问题变成一个编程问题之后呢？如这个数的有很多位呢？再如果这个数不仅是把每一位进行平方呢，而是进行10次方或者20次方，再或者更高次方又该怎么去解决这个问题呢？

2. 问题
   有一个函数f(n)，请计算方f(n)=n的每一位的平方和。例如
   f (13) = 1^2+3^2, f (207) = 2^2+0^2+7^2

3. 方法

   先设定出一个函数，从键盘上给出n的数值，因为要每一位的平方相加，所以可以使用循环，是sum=0再用sum加上每一位的平方和，再返回sum就得到了f(n)的值。 或者可以使用列表的方式，使用循环，一步一步加上平方得出f(n)的值。

4. 实验结果与讨论
   通过实验、实践等证明提出的方法是有效的，是能够解决开头提出的问题。
   代码清单 1

   （1） def f(n): n=input(‘请输入一个正整数:’)    sum=0    for x in n:        x=int(n)**2        sum=sum + x    return sum print(f(n)) （2） def f(n):    n=input(‘请输入一个正整数:’)    sum=0    while n>0:        s= len(str(n))        z=int(str(n)[s-1]) ** 2        s=s-1        sum=sum + z        if s<0:            break    return sum print(f(n))

5. 结语

有些时候使用数学思维只能解决一小部分的问题，当数据变大是再用数学思维就会变得很复杂，使用数学思维时我会把数值在程序中表达出它的个位，十位，百位。若是数值上万，上亿又如何计算，这是就需要将它在程序中表达出来，将数值看成一个列表是比较简单的，可以轻松解决比较大的数值问题。