用TC完成以下算法,有偿

zajanmy

1. <p>namespace 冒泡排序</p><p>function start_click()
   
2.     edit.settext("edit1",冒泡排序.start(edit.gettext("edit0")))
   
3. endfunction</p><p>function start(String)//传入需处理的字符串
   
4.     var arr0,arr0_count
   
5.     str.split(String,",",arr0)//按逗号分隔返回给arr0
   
6.     arraysp.size(arr0,arr0_count)//计算arr0数组大小
   
7.     if(arr0_count%2==1)//判断元素个数是否是偶数个
   
8.         help.messagebox(statictext.gettext("StaticCountError"))
   
9.     endif
   
10.     count = arr0_count/2//元素个数除以2给count
    
11.     arr1 = array[2][count] //arr1[2][元素个数/2],元素个数等于arr0的元素个数
    
12.     for(i=0;i<arr0_count;i++)
    
13.         if(i%2==0)//i为偶数
    
14.             j = i/2   
    
15.             arr1[0][j] = arr0[i]
    
16.             else   //i为奇数
    
17.                 j = i/2-0.5
    
18.                 arr1[1][j] = arr0[i]
    
19.             endif
    
20.         endfor
    
21.         for(i=0;i<count;i++)
    
22.             for(j=0;j<count-i-1;j++)
    
23.                 if( arr1[1][j]>arr1[1][j+1])
    
24.                     冒泡排序.changevar(arr1[0][j],arr1[0][j+1])
    
25.                     冒泡排序.changevar(arr1[1][j],arr1[1][j+1])
    
26.                 endif
    
27.             endfor
    
28.         endfor
    
29.         ret
    
30.         for(i=0;i<count;i++)
    
31.             ret &= arr1[0][i]
    
32.         endfor
    
33.         return ret
    
34.     endfunction
    
35.    
    
36. function changevar(&var1,&var2)
    
37.     temp = var1
    
38.     var1 = var2
    
39.     var2 = temp
    
40. endfunction</p><p>endnamespace
    
41. //空间结束</p>

复制代码

zajanmy

zajanmy 发表于 2014-5-25 22:15

有</p>  自己处理一下