【二进制的妙用】猫猫的小鱼

 

猫猫的小鱼

 

提交文件：catfish.pas/c/cpp

输入文件：catfish.in

输出文件：catfish.out 

　　猫猫是丛林里很多动物心中的天使，她为此十分自豪。猫猫最爱吃鱼了，她每天都要去池塘钓鱼吃。猫猫经常吃鱼脑，数学特别强，然而，小女生的性格决定了她的贪玩。

　　一天，猫猫钓到了很多条鱼。她并不想马上就把可怜的鱼儿吃掉，而是先折磨够之后再吃（有句话叫什么来着～最毒不过猫猫心）。

　　猫猫将这很多很多（数不过来）条鱼按照外观的漂亮程度排序，每个鱼的编号依次为1、2、3……N，第i条鱼的美观程度为3^(i-1)。

　　猫猫要把这些鱼放到桶里去。她每次拿的鱼的数目是任意的。选中的鱼的“总美观程度”为各条鱼美观程度之和。例如：猫猫这一次拿了第一条鱼和第三条鱼，那么美观程度为1+9=10。

　　猫猫想知道，她可以获得的第k大的“总美观程度”是多少。

　　从文件中读入k，输出猫猫能够获得的，第k大的“总美观程度”。

输入数据：

　　数据包含n+1行，第一行读入n(n≤100)。以下n行每行包含一个k。

输出数据：

　　输出包含n行，每行输出一个对应的结果。  

输入样例：

1

7 

输出样例：

13 

样例说明：

　　猫猫能够拿到的美观程度从小到大为1、3、4、9、10、12、13……所以第7大的美观程度是13。

　　对于50%的输入文件，有k≤5000。

        对于100%的输入文件，有k≤2^31-1。

====================

可采用进制转换的思想来做...

对于第k个数是由前面的数过来的..

简单的数学递推就不说了..

就说说对于某位他需要由前面的来构成..

============

var
  n,k:longint;
procedure init;
begin
  assign(input,'catfish.in');
  assign(output,'catfish.out');
  reset(input); rewrite(output);
end;

procedure terminate;
begin
  close(input); close(output);
  halt;
end;

procedure main;
var
  i,j,t,t1:longint;
begin
  readln(n);
  for i:=1 to n do
    begin
      readln(k);
      t:=1;
      t1:=0;
      while k<>0 do
        begin
          if k and 1=1 then t1:=t1+t;
          k:=k shr 1;
          t:=t*3;
        end;
      writeln(t1);
    end;
end;

begin
  init;
  main;
  terminate;
end.