以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  [原创]PEL版冒泡排序  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=7273)
--  作者：z7c9
--  发布时间：2011/7/20 16:35:28
--  [原创]PEL版冒泡排序

input:vector(50,1,100,1);

variable:a[vector]=0;

msgout(1,\'排序前\');

for i=1 to vector do begin
 a[i]:=rand(vector); 
 msgout(1,numtostr(a[i],0));
end

for j=2 to vector do begin
 for i=vector downto j do begin
  if a[i]<a[i-1] then begin
   t:=a[i];
   a[i]:=a[i-1];
   a[i-1]:=t;
  end
 end
end

msgout(1,\'排序后\');

for i=1 to vector do begin
 msgout(1,numtostr(a[i],0));
end

[此贴子已经被作者于2011-7-20 16:38:55编辑过]