Rss & SiteMap

金字塔客服中心 - 专业程序化交易软件提供商 http://www.weistock.com/bbs/

专业程序化软件提供商
共4 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:一个逻辑判断问题,高手进

1楼
PierreHuang 发表于:2015/6/20 16:06:44
有个逻辑问题需要请教,总共8个价格,P1,P2,P3,P4,P5,P6,P7,P8。
需要判断这个8个价格中的最低价格,P1-P8的价格是随机的,其中有可能7个价格为0。
现在的难点就是,我需要判断这个8个价格中,非0价格的最低价格。

此程序如何实现,谢谢。
2楼
PierreHuang 发表于:2015/6/20 19:55:21
自己给自己解答吧,答案如下:(如果有运行效率更高的代码,请高手指教,多谢)
if myBuyShortP>0 and myBuyShortP1>0 then myBuyShortP:=Max(myBuyShortP,myBuyShortP1);
else if myBuyShortP=0 then myBuyShortP:=myBuyShortP1;
if myBuyShortP>0 and myBuyShortP2>0 then myBuyShortP:=Max(myBuyShortP,myBuyShortP2);
else if myBuyShortP=0 then myBuyShortP:=myBuyShortP2;
if myBuyShortP>0 and myBuyShortP3>0 then myBuyShortP:=Max(myBuyShortP,myBuyShortP3);
else if myBuyShortP=0 then myBuyShortP:=myBuyShortP3;
if myBuyShortP>0 and myBuyShortP4>0 then myBuyShortP:=Max(myBuyShortP,myBuyShortP4);
else if myBuyShortP=0 then myBuyShortP:=myBuyShortP4;
if myBuyShortP>0 and myBuyShortP5>0 then myBuyShortP:=Max(myBuyShortP,myBuyShortP5);
else if myBuyShortP=0 then myBuyShortP:=myBuyShortP5;
if myBuyShortP>0 and myBuyShortP6>0 then myBuyShortP:=Max(myBuyShortP,myBuyShortP6);
else if myBuyShortP=0 then myBuyShortP:=myBuyShortP6;
if myBuyShortP>0 and myBuyShortP7>0 then myBuyShortP:=Max(myBuyShortP,myBuyShortP7);
else if myBuyShortP=0 then myBuyShortP:=myBuyShortP7;

if myBuyShortP>0 and myBuyShortP8>0 then myBuyShortP:=Max(myBuyShortP,myBuyShortP8);
else if myBuyShortP=0 then myBuyShortP:=myBuyShortP8;
3楼
fantasynew 发表于:2015/6/20 21:59:33
SMALL:=MIN(MIN(MIN(MAX(P1,0),MAX(P2,0)),MIN(MAX(P3,0),MAX(P4,0))),MIN(MIN(MAX(P5,0),MAX(P6,0)),MIN(MAX(P7,0),MAX(P8,0))));
4楼
fantasynew 发表于:2015/6/20 22:06:43

你不是要最低吗,一行足矣。

你自己给的怎么是求最高价

共4 条记录, 每页显示 10 条, 页签: [1]


Powered By Dvbbs Version 8.3.0
Processed in 0.26367 s, 3 queries.