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


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

   

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


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

主题:[求助]冒泡法升序无值,谢谢

帅哥哟,离线,有人找我吗?
ENK
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:新手上路 帖子:86 积分:529 威望:0 精华:0 注册:2012/2/22 21:57:38
[求助]冒泡法升序无值,谢谢  发帖心情 Post By:2012/4/6 15:38:05 [只看该作者]


variable:B[6]=0;
variable: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 I=6 DO B[I]:=IF(A[I]>C,A[I],1);   //这里就没有值了
FOR K=1 TO K=6 DO
 BEGIN
  IF B[K]>B[K+1] THEN
  BEGIN
  T:=B[K];
  B[K]:=B[K+1];
  B[K+1]:=T;
 END
END
最小值:B[1],LINETHICK0;  //这里也没有值
[此贴子已经被作者于2012-4-6 15:41:43编辑过]

 回到顶部