欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。


金字塔客服中心 - 专业程序化交易软件提供商 → 金字塔软件 → 金字塔软件问题提交 → [求助]冒泡法升序无值，谢谢

   

欢迎使用金字塔普通技术服务论坛，您可以在相关区域发表技术支持贴。
我司技术服务人员将优先处理 VIP客服论坛 服务贴，普通区问题处理速度慢，请耐心等待。谢谢您对我们的支持与理解。    

  共有5002人关注过本帖平板打印复制链接

主题：[求助]冒泡法升序无值，谢谢
帅哥哟，离线，有人找我吗？
Leon
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：金字塔养老院 帖子：509 积分：2425 威望：0 精华：0 注册：2012/3/2 12:50:05 		  发帖心情 Post By：2012/4/6 16:58:53 [只看该作者]

上面那个是以三个收盘价进行排序，这个是6个收盘价求升序

仅供参考

 

B[1]:=0;
B[2]:=0;
B[3]:=0;
B[4]:=0;
B[5]:=0;
B[6]:=0;

A[1]:=0;
A[2]:=0;
A[3]:=0;
A[4]:=0;
A[5]:=0;
A[6]:=0;

A[1]:=REF(C,1);
A[2]:=REF(C,2);
A[3]:=REF(C,3);
A[4]:=REF(C,4);
A[5]:=REF(C,5);
A[6]:=REF(C,6);

FOR I=1 TO (6-1) DO
BEGIN
FOR J=1 TO (6-1-I) DO
BEGIN
IF B[J]>B[J+1] THEN
  BEGIN
  T:=B[J];
  B[J]:=B[J+1];
  B[J+1]:=T;
  END
END
END

 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版    Powered By weistock 2012
页面执行时间 0.03125 秒, 5 次数据查询