加载中…
个人资料
谷子歌的2018
谷子歌的2018
  • 博客等级:
  • 博客积分:0
  • 博客访问:122,736
  • 关注人气:199
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
相关博文
推荐博文
谁看过这篇博文
加载中…
正文 字体大小:

选择排序法和冒泡排序法的SAS实现

(2013-06-25 11:00:31)
分类: Data_Coding
对于排序问题,有两个经典的算法:选择排序法 和 冒泡排序法。

这两种算法的各种主流编程语言(C,C++,C#,JAVA)的实现版本都有。

下面以SAS语言为例,实现这两种算法。

data _null_;

array  a[7 (95 93 92 99 98 85 94);

 

do i=1 to dim(a)-1;

  min=i;

  do j=i+1  to dim(a);

      if (a[min]>a[j])  then  do;

          min=j;

          tmp=a[i]; a[i]=a[min]; a[min]=tmp;

         end;

      end;

 end;

 

 do i=1 to dim(a);

    put a[i];

end;

run;



data _null_;

array  a[7 (95 93 92 99 98 85 94);

 

do i=1 to dim(a);

  do j=1  to dim(a)-i;

       ifa[j]>a[j+1] then do;

         tmp=a[j]; a[j]=a[j+1];a[j+1]=tmp;

         end;

end;

end;

 

do i=1 to dim(a);

  put a[i];

end;

run;


其实如果不是为了好玩,SAS有简单的例程可以实现。

data   _null_;

  array  a[7 (95 93 92 99 98 85 94);

  call sortn(of a[*]);

  do i=1 to dim(a);

     put a[i];

 end;

run;

怎么样,SAS例程运用得当的话是不是很方便?

0

阅读 评论 收藏 转载 喜欢 打印举报/Report
  • 评论加载中,请稍候...
发评论

    发评论

    以上网友发言只代表其个人观点,不代表新浪网的观点或立场。

      

    新浪BLOG意见反馈留言板 欢迎批评指正

    新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 会员注册 | 产品答疑

    新浪公司 版权所有