delphi\lazarus:检查一个整数是否2的n次幂

最新推荐文章于 2021-11-12 19:00:30 发布

老狼8848

最新推荐文章于 2021-11-12 19:00:30 发布

阅读量315

点赞数

分类专栏： delphi Lazarus

本文链接：https://blog.csdn.net/bq_cui/article/details/89814821

版权

Lazarus 同时被 2 个专栏收录

168 篇文章 21 订阅

订阅专栏

delphi

23 篇文章 0 订阅

订阅专栏

想检查一个数是否2的n次幂，网上没找到现成的delphi函数，自己写一个，这里记录一下。

顺便庆祝一下五四节，各位，节日快乐！

// 判断一个数字是否2的n次方幂
function is2nPower(num: integer):boolean;
begin
  Result := false;

  if (num mod 2 <> 0) then
    Result := false
  else
  begin
    while (num > 0) do
    begin
      if (num = 2) then
      begin
        Result := true;
        break;
      end
      else if (num = 1) then
      begin
        Result := false;
        break;
      end
      else
      begin
        num := num div 2;
        if (num mod 2 = 1) then
        begin
          Result := false;
          break;
        end;
      end;
    end;
  end;
end;