冒泡排序法

# 順序 1 3 5 2 4 

#值按最大到小排序

#求原值所在位置

DATABASE ds

 MAIN

    DEFINE d      ARRAY[5]  OF LIKE type_file.chr1

   DEFINE k      ARRAY[5]  OF LIKE type_file.chr1

   DEFINE m      ARRAY[5]  OF LIKE type_file.chr1

   DEFINE i,j     LIKE type_file.num5

   DEFINE l_base  LIKE type_file.num5

   DEFINE l_old  LIKE type_file.num5

   

   LET m[1] = 1

   LET m[2] = 3

   LET m[3] = 5

   LET m[4] = 2

   LET m[5] = 4

   FOR j = 1 TO 5

      LET d[j] = j

   END FOR

   FOR j = 1 TO 5

      FOR i=5 TO j STEP -1

         IF m[j] < m[i] THEN

           LET l_base = m[i]

           LET m[i] = m[j]

           LET m[j] = l_base

           LET l_old = d[i]

           LET d[i] = d[j]

           LET d[j] = l_old

         END IF

      END FOR

   END FOR

 

   DISPLAY m[1],m[2],m[3],m[4],m[5]

   DISPLAY d[1],d[2],d[3],d[4],d[5]

 

END MAIN