模板类，框架排序器举例，自定义数据的快速排序

明天自然醒

@1185384801 大佬造的排序模板模块，很实用。
底层算法都已经写好了，基本数据类型的排序器也有了，缺少一个自定义数据类型，
由于我没有骚操作，教大家如何老老实实对【自定义数据】进行排序。

构造一个模板类，改几个参数即可

  

窗口程序集名	保 留	保 留	备 注
排序器_自定义数据, 抽象排序器, , 一定得填上基类
变量名	类 型	数组	备 注
m_data	自定义数据	0
m_save	自定义数据

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

子程序名	返回值类型	公开	备 注
排序
参数名	类 型	参考	可空	数组	备 注
p_排序算法实现	抽象排序算法				本参数要求提供"抽象排序算法"的实现类
p_欲排序的数组	自定义数据
p_升序排列	逻辑型

变量名	类 型	静态	数组	备 注
l_p2int_this	整数型
l_this	抽象排序器

l_p2int_this ＝ 指针到整数 (类自身 ())
Exchange (l_p2int_this, l_this, p_欲排序的数组, m_data)
如果 (p_升序排列)
p_排序算法实现.p_升序排列 (取数组成员数 (m_data), l_this)
p_排序算法实现.p_降序排列 (取数组成员数 (m_data), l_this)
Exchange (l_p2int_this, l_this, p_欲排序的数组, m_data)

子程序名	返回值类型	公开	备 注
去重复
参数名	类 型	参考	可空	数组	备 注
p_排序算法实现	抽象排序算法				本参数要求提供"抽象排序算法"的实现类
p_欲排序的数组	自定义数据

变量名	类 型	静态	数组	备 注
l_p2int_this	整数型
l_this	抽象排序器

l_p2int_this ＝ 指针到整数 (类自身 ())
Exchange (l_p2int_this, l_this, p_欲排序的数组, m_data)
p_排序算法实现.p_去重复 (取数组成员数 (m_data), l_this)
Exchange (l_p2int_this, l_this, p_欲排序的数组, m_data)

子程序名	返回值类型	公开	备 注
比较	整数型
参数名	类 型	参考	可空	数组	备 注
p_data1	自定义数据
p_data2	自定义数据

判断 (p_data1.参数二 ＞ p_data2.参数二 或 p_data1.参数二 ＝ p_data2.参数二 且 p_data1.参数三 ＞ p_data2.参数三)
返回 (1)
判断 (p_data1.参数二 ＝ p_data2.参数二 且 p_data1.参数三 ＝ p_data2.参数三)
返回 (0)
返回 (-1)

子程序名	返回值类型	公开	备 注
p_比较成员	整数型		已经重写此方法，本方法仅供排序算法自动调用。返回说明：比较值1>比较值2，返回1；比较值1=比较值2，返回0；比较值1<比较值2，返回-1
参数名	类 型	参考	可空	数组	备 注
被比较的成员下标	整数型				即前一比较值
作用比较的成员下标	整数型				即后一比较值

返回 (比较 (m_data [被比较的成员下标], m_data [作用比较的成员下标]))

子程序名	返回值类型	公开	备 注
p_交换成员			已经重写此方法，并且子类必须重写此方法，本方法仅供排序算法自动调用。使用说明：本命令用于强制交换对象
参数名	类 型	参考	可空	数组	备 注
欲交换的成员下标	整数型
作交换的成员下标	整数型

ASM_交换_变量交变量 (m_data [欲交换的成员下标], m_data [作交换的成员下标])

子程序名	返回值类型	公开	备 注
p_覆写成员			本命令用于覆写成员
参数名	类 型	参考	可空	数组	备 注
被覆写的成员	整数型

m_data [被覆写的成员] ＝ m_save

子程序名	返回值类型	公开	备 注
p_临时保存成员			本命令用于保存临时成员
参数名	类 型	参考	可空	数组	备 注
被保存的成员	整数型

m_save ＝ m_data [被保存的成员]

子程序名	返回值类型	公开	备 注
p_比较临时成员	整数型		本命令用于比较临时成员和其他成员的大小
参数名	类 型	参考	可空	数组	备 注
欲比较的成员下标	整数型

返回 (比较 (m_data [欲比较的成员下标], m_save))

子程序名	返回值类型	公开	备 注
p_删除成员			本命令用于去重复中删除成员
参数名	类 型	参考	可空	数组	备 注
欲删除的成员下标	整数型

删除成员 (m_data, 欲删除的成员下标, )

.版本 2<br /> <br /> .程序集 排序器_自定义数据, 抽象排序器, , 一定得填上基类<br /> .程序集变量 m_data, 自定义数据, , "0"<br /> .程序集变量 m_save, 自定义数据<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 排序, , 公开<br /> .参数 p_排序算法实现, 抽象排序算法, 参考, 本参数要求提供"抽象排序算法"的实现类<br /> .参数 p_欲排序的数组, 自定义数据, 参考 数组<br /> .参数 p_升序排列, 逻辑型<br /> .局部变量 l_p2int_this, 整数型<br /> .局部变量 l_this, 抽象排序器<br /> <br /> l_p2int_this ＝ 指针到整数 (类自身 ())<br /> Exchange (l_p2int_this, l_this, p_欲排序的数组, m_data)<br /> .如果 (p_升序排列)<br />     p_排序算法实现.p_升序排列 (取数组成员数 (m_data), l_this)<br /> .否则<br />     p_排序算法实现.p_降序排列 (取数组成员数 (m_data), l_this)<br /> .如果结束<br /> Exchange (l_p2int_this, l_this, p_欲排序的数组, m_data)<br /> <br /> .子程序 去重复, , 公开<br /> .参数 p_排序算法实现, 抽象排序算法, 参考, 本参数要求提供"抽象排序算法"的实现类<br /> .参数 p_欲排序的数组, 自定义数据, 参考 数组<br /> .局部变量 l_p2int_this, 整数型<br /> .局部变量 l_this, 抽象排序器<br /> <br /> l_p2int_this ＝ 指针到整数 (类自身 ())<br /> Exchange (l_p2int_this, l_this, p_欲排序的数组, m_data)<br /> p_排序算法实现.p_去重复 (取数组成员数 (m_data), l_this)<br /> Exchange (l_p2int_this, l_this, p_欲排序的数组, m_data)<br /> <br /> .子程序 比较, 整数型, 公开<br /> .参数 p_data1, 自定义数据<br /> .参数 p_data2, 自定义数据<br /> <br /> .判断开始 (p_data1.参数二 ＞ p_data2.参数二 或 p_data1.参数二 ＝ p_data2.参数二 且 p_data1.参数三 ＞ p_data2.参数三)<br />     返回 (1)<br /> .判断 (p_data1.参数二 ＝ p_data2.参数二 且 p_data1.参数三 ＝ p_data2.参数三)<br />     返回 (0)<br /> .默认<br />     返回 (-1)<br /> .判断结束<br /> <br /> <br /> .子程序 p_比较成员, 整数型, 公开, 已经重写此方法，本方法仅供排序算法自动调用。返回说明：比较值1>比较值2，返回1；比较值1=比较值2，返回0；比较值1<比较值2，返回-1<br /> .参数 被比较的成员下标, 整数型, , 即前一比较值<br /> .参数 作用比较的成员下标, 整数型, , 即后一比较值<br /> <br /> 返回 (比较 (m_data [被比较的成员下标], m_data [作用比较的成员下标]))<br /> <br /> .子程序 p_交换成员, , 公开, 已经重写此方法，并且子类必须重写此方法，本方法仅供排序算法自动调用。使用说明：本命令用于强制交换对象<br /> .参数 欲交换的成员下标, 整数型<br /> .参数 作交换的成员下标, 整数型<br /> <br /> ASM_交换_变量交变量 (m_data [欲交换的成员下标], m_data [作交换的成员下标])<br /> <br /> .子程序 p_覆写成员, , 公开, 本命令用于覆写成员<br /> .参数 被覆写的成员, 整数型<br /> <br /> m_data [被覆写的成员] ＝ m_save<br /> <br /> .子程序 p_临时保存成员, , 公开, 本命令用于保存临时成员<br /> .参数 被保存的成员, 整数型<br /> <br /> m_save ＝ m_data [被保存的成员]<br /> <br /> .子程序 p_比较临时成员, 整数型, 公开, 本命令用于比较临时成员和其他成员的大小<br /> .参数 欲比较的成员下标, 整数型<br /> <br /> 返回 (比较 (m_data [欲比较的成员下标], m_save))<br /> <br /> .子程序 p_删除成员, , 公开, 本命令用于去重复中删除成员<br /> .参数 欲删除的成员下标, 整数型<br /> <br /> 删除成员 (m_data, 欲删除的成员下标, )

需要改的：
1、私有成员的类型
2、重构你的【比较】函数，我这里举了个例子，是先对参数二排序，再对参数三排序。

  

变量名	类 型	静态	数组	备 注
局_排序器	排序器_自定义数据
局_数据	自定义数据		0
i	整数型
n	整数型

置随机数种子 ()
n ＝ 100
重定义数组 (局_数据, 假, n)
计次循环首 (n, i)
局_数据 [i].参数一 ＝ “数据” ＋ 到文本 (i)
局_数据 [i].参数二 ＝ 取随机数 (, ) ÷ 32767
局_数据 [i].参数三 ＝ 取随机数 (, )
计次循环尾 ()
局_排序器.排序 (快速排序_ASM, 局_数据, 真)  ' 先按参数二排序，再按参数三
调试输出 (“排序后”)
计次循环首 (n, i)
调试输出 (局_数据 [i].参数一, 局_数据 [i].参数二, 局_数据 [i].参数三)
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 局_排序器, 排序器_自定义数据<br /> .局部变量 局_数据, 自定义数据, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 n, 整数型<br /> <br /> 置随机数种子 ()<br /> n ＝ 100<br /> 重定义数组 (局_数据, 假, n)<br /> .计次循环首 (n, i)<br />     局_数据 <i>.参数一 ＝ “数据” ＋ 到文本 (i)<br />     局_数据 <i>.参数二 ＝ 取随机数 (, ) ÷ 32767<br />     局_数据 <i>.参数三 ＝ 取随机数 (, )<br /> .计次循环尾 ()<br /> <br /> 局_排序器.排序 (快速排序_ASM, 局_数据, 真)  ' 先按参数二排序，再按参数三<br /> <br /> 调试输出 (“排序后”)<br /> .计次循环首 (n, i)<br />     调试输出 (局_数据 <i>.参数一, 局_数据 <i>.参数二, 局_数据 <i>.参数三)<br /> .计次循环尾 ()

自定义数据的排序.zip (27.78 KB, 下载次数: 75)

2023-12-25 15:17 上传

点击文件名下载附件

明天自然醒

  

子程序名	返回值类型	公开	备 注
比较	整数型
参数名	类 型	参考	可空	数组	备 注
p_data1	自定义数据
p_data2	自定义数据

判断 (p_data1.参数二 ＞ p_data2.参数二)
返回 (1)
判断 (p_data1.参数二 ＝ p_data2.参数二)
判断 (p_data1.参数三 ＞ p_data2.参数三)
返回 (1)
判断 (p_data1.参数三 ＝ p_data2.参数三)
返回 (0)
返回 (-1)

返回 (-1)

.版本 2<br /> <br /> .子程序 比较, 整数型, 公开<br /> .参数 p_data1, 自定义数据<br /> .参数 p_data2, 自定义数据<br /> <br /> .判断开始 (p_data1.参数二 ＞ p_data2.参数二)<br />     返回 (1)<br /> .判断 (p_data1.参数二 ＝ p_data2.参数二)<br />     .判断开始 (p_data1.参数三 ＞ p_data2.参数三)<br />         返回 (1)<br />     .判断 (p_data1.参数三 ＝ p_data2.参数三)<br />         返回 (0)<br />     .默认<br />         返回 (-1)<br />     .判断结束<br /> <br /> .默认<br />     返回 (-1)

先比较参数二，再比较参数三

year1970

感谢分享

自由哥

好东西，很好的东西，好好的东西

year1970

感谢分享

网络注册络员

支持楼主

xzc1215

感谢分享

515667395

        开源精神必须支持~

晨光暖心

66666666666666666666666666666

阴影

感谢分享，必须支持下！！！！！