以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  [求助]如何实现用循环语句取数值？  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=158218)
--  作者：lizhi
--  发布时间：2017/9/25 13:33:40
--  [求助]如何实现用循环语句取数值？

RUNMODE:0;
VARIABLE:ARR[]=13，ARR1[]=0;
ARR[1]:=10;
ARR[2]:=9;
ARR[3]:=8;
ARR[4]:=9;
ARR[5]:=10;

ARR[6]:=11;
ARR[7]:=10;
ARR[8]:=9;
ARR[9]:=10;
ARR[10]:=11;

ARR[11]:=12;
ARR[12]:=11;
ARR[13]:=15;

//如何用循环语句实现如下功能：

如果ARR[2]<=ARR[1],那么ARR1:=ARR[1]; //ARR1[1]:=10
如果ARR[3]<=ARR[1],那么ARR1:=ARR[1]; //ARR1[2]:=10
如果ARR[4]<=ARR[1],那么ARR1:=ARR[1]; //ARR1[3]:=10
如果ARR[5]<=ARR[1],那么ARR1:=ARR[1]; //ARR1[4]:=10

如果ARR[6]>ARR[1],那么ARR1:=ARR[6]; //ARR1[5]:=11

如果ARR[7]<=ARR[6],那么ARR1:=ARR[6]; //ARR1[6]:=11
如果ARR[8]<=ARR[6],那么ARR1:=ARR[6]; //ARR1[7]:=11
如果ARR[9]<=ARR[6],那么ARR1:=ARR[6]; //ARR1[8]:=11
如果ARR[10]<=ARR[6],那么ARR1:=ARR[6]; //ARR1[9]:=11

如果ARR[11]>ARR[6],那么ARR1:=ARR[11]; //ARR1[10]:=12

如果ARR[12]<=ARR[11],那么ARR1:=ARR[11]; //ARR1[11]:=12

如果ARR[13]>ARR[11],那么ARR1:=ARR[13]; //ARR1[12]:=15

谢谢各位老师！
--  作者：qq代人发帖
--  发布时间：2017/9/25 13:40:20
--  
这个没办法用一个循环写。
--  作者：lizhi
--  发布时间：2017/9/25 13:40:40
--  
求答案
--  作者：wenarm
--  发布时间：2017/9/25 14:24:00
--  

你这个不就求最大值。直接LARGE函数取值

用for，也是一样的，

temp:=0;
for i=1 to 13 do begin
 if ARR[i]>temp then BEGIN
  temp:=ARR[i];
 end
end

--  作者：lizhi
--  发布时间：2017/9/25 14:24:09
--  
以下是引用qq代人发帖在2017/9/25 13:40:20的发言：
这个没办法用一个循环写。

--  作者：wenarm
--  发布时间：2017/9/25 14:25:49
--  

看4楼