• <ins id="pjuwb"></ins>
    <blockquote id="pjuwb"><pre id="pjuwb"></pre></blockquote>
    <noscript id="pjuwb"></noscript>
          <sup id="pjuwb"><pre id="pjuwb"></pre></sup>
            <dd id="pjuwb"></dd>
            <abbr id="pjuwb"></abbr>

            ArcTan

            dfs
            隨筆 - 16, 文章 - 117, 評論 - 6, 引用 - 0
            數據加載中……

            ural 1133 (fibonacci數列)

            http://acm.timus.ru/problem.aspx?space=1&num=1133

            題目大意:給定i Fi,j,Fj,n.求Fn。
            滿足:Fi+2=Fi+1+Fi;

            應該說是水題一個哇:
                  Fi+k = gk * Fi + gk-1 * Fi-1。其中g是1 1 開頭的fibonacci數。

            C/C++的long long double都過不了。pascal的extended過了。怎么回事呢??

            Pascal代碼:
            Var
                    i
            ,j,k,p,n,tmp:longint;
                    F:array[-1001..1001] of extended;
                    g:array[0..2002] of extended;
                    temp,ti,tj:extended;

            begin
                    readln(i
            ,ti,j,tj,n);
                    F[i]:=ti;F[j]:=tj;
                    if (i>j) then
                    begin
                            tmp:
            =i;i:=j;j:=tmp;
                            F[i]:=tj;F[j]:=ti;
                    end;
                    k:=j-i;
                    g[0]:=1;g[1]:=1;
                    for p:=2 to k do
                            g
            [p]:=g[p-1]+g[p-2];

                    F
            [i-1]:=trunc((F[j]-F[i]*g[k])/g[k-1]);

                    if n>i then
                    begin
                            k:
            =i+1;
                            while k<=n do
                            begin
                                    F
            [k]:=F[k-1]+F[k-2];
                                    inc(k);
                            end;
                    end;
                    if n<i-1 then
                    begin
                            k:
            =i-2;
                            while k>=n do
                            begin
                                    F
            [k]:=F[k+2]-F[k+1];
                                    dec(k);
                            end;
                    end;
                    writeln(F[n]:0:0);
                    readln;
            end.


            昨天真是被這個題目虐慘了啊!!!!!!
            尼瑪,我們真是弱爆了!

            posted on 2012-05-07 16:47 wangs 閱讀(287) 評論(0)  編輯 收藏 引用 所屬分類: ACM-數學

            久久久久国产精品麻豆AR影院 | 香蕉久久永久视频| 潮喷大喷水系列无码久久精品| 久久天天躁狠狠躁夜夜2020一| 久久久久亚洲av综合波多野结衣| 久久亚洲精品成人AV| 久久青青草原综合伊人| 精品久久久久中文字| 99久久这里只精品国产免费| 高清免费久久午夜精品| 久久99精品国产麻豆蜜芽| 亚洲精品乱码久久久久久久久久久久 | 青青草原精品99久久精品66| 成人国内精品久久久久影院| 亚洲欧美日韩精品久久亚洲区| av色综合久久天堂av色综合在 | 日产精品99久久久久久| 国产91久久精品一区二区| 久久亚洲国产成人影院| 日韩精品国产自在久久现线拍| 亚洲精品乱码久久久久久蜜桃不卡 | 国产精品女同一区二区久久| 亚洲色欲久久久综合网东京热| 久久激情亚洲精品无码?V| 久久福利青草精品资源站| 色综合久久中文字幕无码 | 久久久亚洲欧洲日产国码是AV | 久久久久人妻一区二区三区| 国产精品综合久久第一页| 久久国产精品成人片免费| 久久无码国产专区精品| 久久亚洲电影| 亚洲精品tv久久久久久久久久| 亚洲国产成人久久综合一 | 97精品伊人久久大香线蕉app| 久久亚洲精品无码aⅴ大香| 奇米影视7777久久精品人人爽| 伊人久久大香线蕉AV一区二区| 久久久久人妻精品一区三寸蜜桃| 青青草原综合久久| 国产精品久久久久久久午夜片|