제가 질문을 제대로 이해한것인지... 그러니까

1 -> 0
2 -> 1
4 -> 2
8 -> 3
16 -> 4
32 -> 5

로 만들어주는 함수를 알고 싶으시다는 건가요?
그렇다면 올리신 질문에 이미 답이 나와있는것으로 보입니다만...

math 유니트 안에 2를 밑수로 하는 로그함수인 log2() 가 있습니다.

procedure TMainForm.Button4Click(Sender: TObject);
var
  i, n: Integer;
begin
  n := 1;
  for i:= 1 to 10 do
  begin
    WriteLn(Format('%d -> %.2f', [n, log2(n)]));
    n := n shl 1;
  end;
end;

저도 산수는 워낙 잼병이라... 원하시는 답변이 되었으면 하네요.


박정모 님이 쓰신 글 :
: .
: 인자로 받는 값은 1, 2, 4, 8, 16, 32, 64 ... 와 같이 2의 x 승의 값 입니다.
: 이 값을 배열의 Index로 사용해야 하는데 배열의 Index는 0..x 입니다.
:
: 인자값 = 1 -> Index = 0
: 인자값 = 2 -> Index = 1
: 인자값 = 4 -> Index = 2
: 인자값 = 8 -> Index = 3
: 인자값 = 16 -> Index = 4
: 인자값 = 32 -> Index = 5
: .
: .
: .
: 와 같이 2의 x승인 인자값을 0..x 으로 변환해줘야할 필요가 있습니다.
:
: for loop를 돌리거나, 몇개의 if... else if...를 반복해서 써주면 되기야 하는데
: 그것 보다는 한줄(또는 두세개줄)의 수식으로 처리하는게 더 심플할 것 같습니다.
:
: 몇시간 동안 생각해보고 인터넷도 검색해봐도 답이 없군요.
: 수년전(6-7년전)에도 같은 질문을 올렸던(봤던?) 기억이 납니다만, 그 때는 if...
: else...로 처리하고 말았죠.
:
: 2를 밑으로 하는 logN = x 일때, x를 구하는 심플한 수식을 찾고있습니다.
: for loop, if... else if...를 사용하지 않는 방법이어야 합니다.
:
: 수학적 지식이 깊으시거나, 이 문제의 답을 아시면 조언 좀 부탁 드립니다.
: 감사합니다.
: .