使用IBM i (OS/400)实现随机数生成与排序

本示例演示如何在IBM i (OS/400)环境下使用RPG（Report Program Generator）语言编写程序，生成随机数并进行排序。通过该示例，用户能够了解在IBM i平台上处理数据的基本方法。

** 示例代码开始
     /free
       // 定义数组存储随机数
       dcl-s RandomNumbers char(10) dim(10);
       // 定义控制变量
       dcl-s Index int(5);

       // 生成随机数并存入数组
       for Index = 1 to 10;
         RandomNumbers(Index) = %char(%rand() * 10000 + 1);
       endfor;

       // 对数组进行升序排序
       sorta RandomNumbers;

       // 打印排序后的随机数
       for Index = 1 to 10;
         dsply ('随机数 ' + %char(Index) + ': ' + RandomNumbers(Index));
       endfor;
     /end-free
** 示例代码结束

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