回 帖 发 新 帖 刷新版面

主题:忘各位帅哥能帮偶写下这题的程序详细的~~~~~~~~~

忘各位帅哥能帮偶写下这题的程序详细的~~~~~~~~~

猫猫的小鱼

提交文件: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。

回复列表 (共2个回复)

沙发

这是此论坛信息学奥赛区的人给的一个思路,我编了出来,你看看吧.
{$n+}
program fish;
var a:array[1..32]of 0..1;
    n,i,j,l:integer;
    k:longint;
    s:extended;
begin
  readln(n);
  for i:=1 to n do
  begin
    readln(k);
    fillchar(a,sizeof(a),0);
    j:=33;
    while k>0 do
    begin
      j:=j-1;
      a[j]:=k mod 2;
      k:=k div 2;
    end;
    s:=0;
    for l:=j to 32 do
      s:=s+a[l]*exp(ln(3)*(32-l));
  writeln(s:0:0);
  end;
end.

板凳

好难啊

我来回复

您尚未登录,请登录后再回复。点此登录或注册