数组排序返回数组下标

凹凸◆小怪兽

列子:
数组={3,56,24,68,2,98,155,21,24,38}
其中   数组最小排序{2,3,21,24,24,38,56,68,98,155}
          数组最小下标  5,1, 8,  3,  9, 10, 2, 4,   6,   7
          数组最大排序{155,98,68,56,38,24,24,21,3,2}
          数组最小下标     7, , 6 ,4 , 2  ,10, 9, 3,  8 ,1 ,5
然后返回数组的下标
如:
     数组最小排序{2,3,21,24,24,38,56,68,98,155}返回(5)
     数组最大排序{155,98,68,56,38,24,24,21,3,2}返回(7)

大神们有什么好的办法实现吗?我头发都快掉完了也没有想出来该怎么去写.

zainex

如果你不需要其它信息，那么确实不用排序：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
数组	整数型		0
数	整数型
最大值	整数型
最大值下标	整数型
最小值	整数型
最小值下标	整数型

数组 ＝ { 3, 56, 24, 68, 2, 98, 155, 21, 24, 38 }
最大值 ＝ 数组 [1]
最大值下标 ＝ 1
最小值 ＝ 数组 [1]
最小值下标 ＝ 1
计次循环首 (取数组成员数 (数组), 数)
如果真 (最大值 ＜ 数组 [数])
最大值 ＝ 数组 [数]
最大值下标 ＝ 数
如果真 (最小值 ＞ 数组 [数])
最小值 ＝ 数组 [数]
最小值下标 ＝ 数

计次循环尾 ()
调试输出 (最小值, 最小值下标)
调试输出 (最大值, 最大值下标)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 数组, 整数型, , "0"<br /> .局部变量 数, 整数型<br /> .局部变量 最大值, 整数型<br /> .局部变量 最大值下标, 整数型<br /> .局部变量 最小值, 整数型<br /> .局部变量 最小值下标, 整数型<br /> <br /> 数组 ＝ { 3, 56, 24, 68, 2, 98, 155, 21, 24, 38 }<br /> 最大值 ＝ 数组 [1]<br /> 最大值下标 ＝ 1<br /> 最小值 ＝ 数组 [1]<br /> 最小值下标 ＝ 1<br /> .计次循环首 (取数组成员数 (数组), 数)<br />     .如果真 (最大值 ＜ 数组 [数])<br />         最大值 ＝ 数组 [数]<br />         最大值下标 ＝ 数<br />     .如果真结束<br />     .如果真 (最小值 ＞ 数组 [数])<br />         最小值 ＝ 数组 [数]<br />         最小值下标 ＝ 数<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 调试输出 (最小值, 最小值下标)<br /> 调试输出 (最大值, 最大值下标)

zainex

排序时，同时对索引进行排序就行了：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
数组	整数型		0
索引	整数型		0
数	整数型
值	整数型

数组 ＝ { 3, 56, 24, 68, 2, 98, 155, 21, 24, 38 }
重定义数组 (索引, 假, 取数组成员数 (数组))
计次循环首 (取数组成员数 (数组), 数)
索引 [数] ＝ 数
计次循环尾 ()
计次循环首 (取数组成员数 (数组), 数)
计次循环首 (取数组成员数 (数组) － 数, 值)
如果真 (数组 [值] ＞ 数组 [值 ＋ 1])
交换变量 (数组 [值], 数组 [值 ＋ 1])
交换变量 (索引 [值], 索引 [值 ＋ 1])

计次循环尾 ()
计次循环尾 ()
调试输出 (数组)
调试输出 (索引, 索引 [1])

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 数组, 整数型, , "0"<br /> .局部变量 索引, 整数型, , "0"<br /> .局部变量 数, 整数型<br /> .局部变量 值, 整数型<br /> <br /> 数组 ＝ { 3, 56, 24, 68, 2, 98, 155, 21, 24, 38 }<br /> 重定义数组 (索引, 假, 取数组成员数 (数组))<br /> .计次循环首 (取数组成员数 (数组), 数)<br />     索引 [数] ＝ 数<br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (数组), 数)<br />     .计次循环首 (取数组成员数 (数组) － 数, 值)<br />         .如果真 (数组 [值] ＞ 数组 [值 ＋ 1])<br />             交换变量 (数组 [值], 数组 [值 ＋ 1])<br />             交换变量 (索引 [值], 索引 [值 ＋ 1])<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 调试输出 (数组)<br /> 调试输出 (索引, 索引 [1])

上面采用了冒泡排序，所以改成 数组 [值] ＜ 数组 [值 ＋ 1] 就是从大到小。

aipca

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
数组	整数型		10
i	整数型
最小排序	整数型		10
最大排序	整数型		10
ii	整数型
最小下标	整数型		0
s	整数型
t	整数型
最大下标	整数型		0

数组 ＝ { 3, 56, 24, 68, 2, 98, 155, 21, 24, 38 }
最小排序 ＝ 数组
最大排序 ＝ 数组
数组排序 (最小排序, 真)
数组排序 (最大排序, 假)
变量循环首 (取数组成员数 (最小排序), 1, -1, i)
变量循环首 (取数组成员数 (数组), 1, -1, ii)
如果真 (最小排序 [i] ＝ 数组 [ii])
加入成员 (最小下标, ii)

变量循环尾 ()
变量循环尾 ()
数组_去重复 (, 最小下标)
变量循环首 (取数组成员数 (最大排序), 1, -1, s)
变量循环首 (取数组成员数 (数组), 1, -1, t)
如果真 (最大排序 [s] ＝ 数组 [t])
加入成员 (最大下标, t)

变量循环尾 ()
变量循环尾 ()
数组_去重复 (, 最大下标)
调试输出 (最小排序)
调试输出 (最大排序)
调试输出 (最大下标)
调试输出 (最小下标)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数组, 整数型, , "10"<br /> .局部变量 i, 整数型<br /> .局部变量 最小排序, 整数型, , "10"<br /> .局部变量 最大排序, 整数型, , "10"<br /> .局部变量 ii, 整数型<br /> .局部变量 最小下标, 整数型, , "0"<br /> .局部变量 s, 整数型<br /> .局部变量 t, 整数型<br /> .局部变量 最大下标, 整数型, , "0"<br /> <br /> 数组 ＝ { 3, 56, 24, 68, 2, 98, 155, 21, 24, 38 }<br /> 最小排序 ＝ 数组<br /> 最大排序 ＝ 数组<br /> 数组排序 (最小排序, 真)<br /> 数组排序 (最大排序, 假)<br /> .变量循环首 (取数组成员数 (最小排序), 1, -1, i)<br />     .变量循环首 (取数组成员数 (数组), 1, -1, ii)<br />         .如果真 (最小排序 <i> ＝ 数组 [ii])<br />             加入成员 (最小下标, ii)<br />         .如果真结束<br /> <br />     .变量循环尾 ()<br /> .变量循环尾 ()<br /> 数组_去重复 (, 最小下标)<br /> .变量循环首 (取数组成员数 (最大排序), 1, -1, s)<br />     .变量循环首 (取数组成员数 (数组), 1, -1, t)<br />         .如果真 (最大排序 <strike> ＝ 数组 [t])<br />             加入成员 (最大下标, t)<br /> <br />         .如果真结束<br /> <br />     .变量循环尾 ()<br /> .变量循环尾 ()<br /> 数组_去重复 (, 最大下标)<br /> <br /> 调试输出 (最小排序)<br /> 调试输出 (最大排序)<br /> 调试输出 (最大下标)<br /> 调试输出 (最小下标)

笨来无一悟

只是为了找到最大最小 在什么位置 那根本不需要排序

凹凸◆小怪兽

笨来无一悟 发表于 2025-4-28 16:25
只是为了找到最大最小 在什么位置 那根本不需要排序

可以不用排序,只要找到就可以了,请问有什么思路吗