ABAP实现的冒泡排序算法
ABAP实现的冒泡排序算法
REPORT ztest.
TYPES:BEGIN OF ty_line,
number TYPE i,
END OF ty_line.
DATA: lt_array TYPE STANDARD TABLE OF ty_line,
ls_array TYPE ty_line,
ls_array_temp type ty_line,
lv_length TYPE i.
DATA: i TYPE i,
j TYPE i,
k TYPE i.
DO 10 TIMES.
CLEAR ls_array.
CALL FUNCTION ‘QF05_RANDOM_INTEGER’
EXPORTING
ran_int_max = 100
ran_int_min = 1
IMPORTING
ran_int = ls_array-number
EXCEPTIONS
invalid_input = 1
OTHERS = 2.
IF sy-subrc <> 0.
WRITE:/ ‘Error occured.’.
EXIT.
ENDIF.
APPEND ls_array TO lt_array.
ENDDO.
LOOP AT lt_array INTO ls_array.
WRITE: ls_array-number.
ENDLOOP.
lv_length = lines( lt_array ).
i = 1.
DO lv_length - 1 TIMES.
j = lv_length - i.
k = 1.
DO j TIMES.
CLEAR: ls_array, ls_array_temp.
READ TABLE lt_array INTO ls_array INDEX k.
READ TABLE lt_array INTO ls_array_temp INDEX k + 1.
IF ls_array-number > ls_array_temp-number .
MODIFY lt_array FROM ls_array_temp INDEX k.
MODIFY lt_array FROM ls_array INDEX k + 1 .
ENDIF.
k = k + 1.
ENDDO.
i = i + 1.
ENDDO.
WRITE:/ 'result: '.
LOOP AT lt_array INTO ls_array.
WRITE: ls_array-number.
ENDLOOP.
