Question

How to round a number to the next power of 2 in Pascal

Answer 1

program RoundToNextPowerOf2;

uses
  Math;

function RoundUpToPowerOf2(n: Integer): Integer;
begin
  if n <= 0 then
    RoundUpToPowerOf2 := 1
  else
    RoundUpToPowerOf2 := Round(IntPower(2, Ceil(Log2(n))));
end;

var
  num: Integer;

begin
  num := 21;
  
  WriteLn('Next power of 2: ', RoundUpToPowerOf2(num));
end.




(*
run:

Next power of 2: 32

*)

 

70+ SQL courses for beginners and professionals