如何在 delphi中十进制数的每一位变成二进制然后进行异或
Posted
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了如何在 delphi中十进制数的每一位变成二进制然后进行异或相关的知识,希望对你有一定的参考价值。
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! 查看更多答案>>本回答被提问者采纳数的每一位平方和
引言
在数学问题中对一个数的每一位进行平方再相加可能是一个比较简单事情,可当把这个问题变成一个编程问题之后呢?如这个数的有很多位呢?再如果这个数不仅是把每一位进行平方呢,而是进行10次方或者20次方,再或者更高次方又该怎么去解决这个问题呢?问题
有一个函数f(n),请计算方f(n)=n的每一位的平方和。例如
f (13) = 1^2+3^2, f (207) = 2^2+0^2+7^2方法
先设定出一个函数,从键盘上给出n的数值,因为要每一位的平方相加,所以可以使用循环,是sum=0再用sum加上每一位的平方和,再返回sum就得到了f(n)的值。 或者可以使用列表的方式,使用循环,一步一步加上平方得出f(n)的值。
实验结果与讨论
通过实验、实践等证明提出的方法是有效的,是能够解决开头提出的问题。
代码清单 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))结语
有些时候使用数学思维只能解决一小部分的问题,当数据变大是再用数学思维就会变得很复杂,使用数学思维时我会把数值在程序中表达出它的个位,十位,百位。若是数值上万,上亿又如何计算,这是就需要将它在程序中表达出来,将数值看成一个列表是比较简单的,可以轻松解决比较大的数值问题。
以上是关于如何在 delphi中十进制数的每一位变成二进制然后进行异或的主要内容,如果未能解决你的问题,请参考以下文章