如何在IBM i (OS/400)上使用RPG程序选择排序

该示例代码演示了如何在IBM i (OS/400)上使用RPG程序实现选择排序算法。选择排序是一种简单而直观的排序算法，它的原理是找到数据中最小值，并将其放在第一位，然后再找到次小值，以此类推。该示例通过使用RPG程序实现排序算法，并打印已排序的数组。

/free
      dcl-pr arraySortChar ExtPgm('LIBRARY/QSORTARR')  
        charArrayLike(*PassVal) Char(30) 
        numOfElements Int(10) 
        elementSize Int(3) 
        sortOrder Char(1) 
        sortAlg Char(5) 
      end-pr 

      dcl-ds toSort likeds(arraySortChar); 
      toSort = 'CBAFED'; 
      arraySortChar(toSort:%elem(toSort):%size(toSort):'A':'S'); //S:选择排序算法，A：升序
      *INLR = *ON; 
     /end-free

免责申明：文章和图片全部来源于公开网络，如有侵权，请通知删除 server@dude6.com