【NOIP2008】模拟 money

最新推荐文章于 2023-11-03 17:13:47 发布

原创最新推荐文章于 2023-11-03 17:13:47 发布 · 586 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#NOIP #2008

NOIP 专栏收录该内容

17 篇文章

订阅专栏

本文介绍了一个基于价格走势的股票买卖策略算法实现。该算法通过读取输入文件中的股票价格数据，利用循环判断股票价格趋势来决定买入或卖出，最终计算并输出收益。此算法适用于模拟交易环境。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

（来自本人百度空间 2009-09-24 18:41）

program money;
var
        pri:array[1..100001] of real;
        p,p1:real;
        n,i:longint;
        cho:boolean;
begin
        assign(input,'money.in');
        reset(input);
        assign(output,'money.out');
        rewrite(output);

        readln(n);
        for i:=1 to n do readln(pri[i]);
        close(input);

        while pri[n-1]>=pri[n] do dec(n);
        cho:=true;
        p:=1;
        p1:=1;
        if pri[n-1]<pri[n] then pri[n+1]:=-1
           else pri[n+1]:=maxlongint;
        i:=1;
        while i<=n do begin
            if cho then begin
                while (pri[i]>=pri[i+1]) and (i<=n) do inc(i);
                p1:=p;
                p:=p/pri[i];
                cho:=not(cho);
            end else begin
                          while (pri[i]<=pri[i+1]) and (i<=n) do inc(i);
                          p1:=p;
                          p:=p*pri[i];
                          cho:=not(cho);
                     end;
        end;
        writeln(-p:0:3);
        close(output);
end.
好不容易过了10个点