ABAP 實現選擇排序

原创

mb617201b3e58e6 2021-10-25 09:25:33 ©著作权

文章标签 sap abap 随机数腾讯云 it技术 文章分类 数据结构与算法人工智能

©著作权归作者所有：来自51CTO博客作者mb617201b3e58e6的原创作品，请联系作者获取转载授权，否则将追究法律责任

*selection sort
PARAMETERS: lines    LIKE sy-index,
            no_range LIKE sy-index.
TYPES: BEGIN OF number,
         no TYPE i,
       END OF number.
DATA: s_number TYPE number.

DATA: t_number TYPE TABLE OF number WITH HEADER LINE.
DATA: t_number1 TYPE TABLE OF number WITH HEADER LINE.
DATA: cl_random TYPE REF TO cl_random_number.

DATA: m        TYPE i,
      num      TYPE i,
      l_index1 TYPE i.

CREATE OBJECT cl_random.
CALL METHOD cl_random->if_random_number~init.

START-OF-SELECTION.
  "添加隨機數賦給內表
  DO lines TIMES.
    CALL METHOD cl_random->if_random_number~get_random_int
      EXPORTING
        i_limit  = no_range "随机数范围
      RECEIVING
        r_random = m.
    t_number = VALUE #( no = m ).
    APPEND t_number.
  ENDDO.
*排序
  DO lines TIMES.
    READ TABLE t_number INDEX 1.
    num = t_number-no.
    LOOP AT t_number.
      IF t_number-no < num.
        num = t_number-no.
        CLEAR: l_index1.
      ELSEif t_number-no = num.
        clear: l_index1.
        num = t_number-no.
        l_index1 = sy-tabix.
      ENDIF.
    ENDLOOP.
    t_number1-no =  num .
    APPEND t_number1.
    IF l_index1 IS NOT INITIAL.
      DELETE t_number INDEX l_index1.
      CLEAR: l_index1.
    ELSE.
      DELETE t_number WHERE no = num .
      CLEAR: num.
    ENDIF.
  ENDDO.
cl_demo_output=>display( t_number1[] ).