PersonalCorpus 版 (精华区)

寄信人: sino (蚱蜢舟)
标  题: 1047
发信站: 哈工大紫丁香 (2002年03月25日21:18:20 星期一)
来  源: mtlab4.hit.edu.cn 

172022 13:21:18 25 Mar 2002
Bozhang,HIT,P.R.China 1047 Pascal Accepted 0.02 sec 53K

var
    a0,an1,d1,d2,e1,e2,f1,f2,ci,temp:extended;
    n:integer;
begin
    readln(n); d1:=1; d2:=0; e1:=0; e2:=1; f1:=0; f2:=0;
    readln(a0); readln(an1);
    while n>0 do begin
        dec(n);
        readln(ci);
        temp:=d2+d2-d1;
        d1:=d2;
        d2:=temp;
        temp:=e2+e2-e1;
        e1:=e2;
        e2:=temp;
        temp:=f2+f2-f1+ci+ci;
        f1:=f2;
        f2:=temp;
    end;
    writeln((an1-f2-a0*d2)/e2:0:2);
    readln;
end.

--
撷取生活中每一朵清新的浪花,智慧的浪花 ..汇成音乐的海洋.

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: mtlab4.hit.edu.cn]