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

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

对于排序问题，有两个经典的算法：选择排序法和 冒泡排序法。

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

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

1. data _null_;
   
2. array  a[7]  (95 93 92 99 98 85 94);
   
3. /* selection sort*/
   
4. do i=1 to dim(a)-1;
   
5.   min=i;
   
6.   do j=i+1  to dim(a);
   
7.       if (a[min]>a[j])  then  do;
   
8.             min=j;
   
9.             tmp=a[i]; a[i]=a[min]; a[min]=tmp;
   
10.            end;
    
11.         end;
    
12. end;
    
13. /*print sorted array*/
    
14. do i=1 to dim(a);
    
15.     put a[i];
    
16. end;
    
17. run;

复制代码

1. data _null_;
   
2. array  a[7]  (95 93 92 99 98 85 94);
   
3. /* bubble sort*/
   
4. do i=1 to dim(a);
   
5.   do j=1  to dim(a)-i;
   
6.        if a[j]>a[j+1] then do;
   
7.            tmp=a[j]; a[j]=a[j+1];a[j+1]=tmp;
   
8.            end;
   
9. end;
   
10. end;
    
11. /*print sorted array*/
    
12. do i=1 to dim(a);
    
13.   put a[i];
    
14. end;
    
15. run;

复制代码

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

1. data   _null_;
   
2.   array  a[7]  (95 93 92 99 98 85 94);
   
3.   call sortn(of a[*]);
   
4.   do i=1 to dim(a);
   
5.      put a[i];
   
6. end;
   
7. run;

复制代码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏3 回帖

关键词：冒泡排序法 选择排序法 Selection Election sorted 选择排序法 冒泡排序法 SAS 实现