PRINT
PRINT "大きい順に順番をつけます。"
PRINT "データーの数を入力後に、"
PRINT "カンマで区切ってデーター入力して下さい。"
PRINT
INPUT PROMPT "データーの個数は？ ":m
PRINT 
DIM ten(m),jun(m)
MAT INPUT ten
PRINT 
FOR n=1 TO m
   LET jun(n)=1
   FOR k=1 TO m
      IF ten(n)<ten(k) THEN
         LET jun(n)=jun(n)+1
      END IF
   NEXT k
NEXT n
FOR n=1 TO m
   PRINT USING "###":jun(n);
   PRINT "番 :  ";ten(n)
NEXT n
PRINT
END



######################################################################



PRINT
PRINT "大きい順に順番をつけて並び替えます。"
PRINT "データーの数を入力後に、"
PRINT "カンマで区切ってデーター入力して下さい。"
PRINT
INPUT PROMPT "データーの個数は？ ":m
PRINT 
DIM ten(m),jun(m,2),JJ(m)
MAT INPUT ten
PRINT
CALL JNBN(ten,m,JJ)
CALL SORT1(JJ,m) 
FOR i=1 TO m
   LET jun(i,1)=i
   LET jun(i,2)=ten(i)
NEXT i
PRINT "並び替え前："
FOR i=1 TO m
   PRINT USING "######":jun(i,2);
   PRINT "  (";
   PRINT USING "###":jun(i,1);
   PRINT "番目に入力した数 )"
NEXT i
PRINT
PRINT "並び替え後："
CALL SORT2(jun,m)
FOR i=1 TO m
   PRINT "   ";JJ(i);"番：";
   PRINT USING "######":jun(i,2);
   PRINT "  (";
   PRINT USING "###":jun(i,1);
   PRINT " 番目に入力した数 )"
NEXT i
PRINT
END

EXTERNAL SUB JNBN(Q(),v,jun())      ! 順番づけ
FOR i=1 TO v
   LET jun(i)=1
   FOR j=1 TO v
      IF Q(i)<Q(j) THEN
         LET jun(i)=jun(i)+1
      END IF
   NEXT j
NEXT i
END SUB

EXTERNAL SUB SORT1(a(),m)
FOR i=1 TO m-1
   FOR j=i+1 TO m
      IF a(i)>a(j) THEN
         LET t=a(j) 
         LET a(j)=a(i)
         LET a(i)=t
      END IF
   NEXT j
NEXT i
END SUB

EXTERNAL SUB SORT2(a(,),m)
FOR i=1 TO m-1
   FOR j=i+1 TO m
      IF a(i,2)<a(j,2) THEN
         LET t=a(j,1) 
         LET a(j,1)=a(i,1)
         LET a(i,1)=t
         LET s=a(j,2)
         LET a(j,2)=a(i,2)
         LET a(i,2)=s
      END IF
   NEXT j
NEXT i
END SUB