通过M语言，实现数据排序输出索引的小程序

题目：数据排序与查找
题目描述：运行程序，程序界面以文本输出以下功能选择：
1、输入数据，数据多少无限、数据以逗号,作为分隔符，以回车作为结束符
2、打印输入的数据、
3、打印排序后的数据，以升序排序、
4、查找数据：提示该数据数组中有无该数据，并提示存储在排序后的第几位，若无该数据，反馈无数据提示、
5、查找最近数据：输入一个数据，通过查找数组中所有数据，查询出与该数据值最接近的一个数值，若存在多个，请输出多个，并输出位置，并输出你一共进行了几次查询，分别是如何进行的！
6、退出
请考虑每次执行功能完后会继续其他功能选择；请考虑异常输入。,1
如：
运行程序，显示以下文本界面：
1、Input Data
2、Print Data
3、Print Sort Data
4、…
在此时，进入界面提示，输入选择1，则进入输入数据功能，如输出 2,1,3。后回车，继续回到
1、Input Data
2、Print Data
3、Print Sort Data
4、…
界面。
再进行各种功能选择，如输入2，回车，则将2,1,3输出到界面。
输出完成，再将功能选择界面打印出来。
继续进行其他功能选择与实现。

需要创建class的文件，依次点击FILE-NEW-General-Cache Class definition，
1 为包名 2为类的名字，点击下一步，之后出现的界面是选择继承对象类，你可以先默认，在Finish即可。

代码：

Class HEREN.HIS.DEMO.demo01 Extends %Persistent
{

ClassMethod Test()
{
//do {} while 实现退出、循环
s boolean = 1
do{
w “1、Input Data”,!
w “2、Print Data”,!
w “3、Print Sort Data”,!
w “4、Select Data”,!
w “5、Select Rencently Data”,!
w “6、Quit”,!
r “请输入数字选项：” ,num,!
if num = 1{
r “请输入数据：”,data,!
}elseif num = 2{
w “数据为：”_data,!
}elseif num = 3{
Set mylist = data
//冒泡排序
for i = 1:1:KaTeX parse error: Expected '}', got 'EOF' at end of input: … for j = 1:1:length(mylist,",")-i{
if $piece(mylist,",",j) > $piece(mylist,",",j+1){
s temp = $piece(mylist,",",j)
s $piece(mylist,",",j) = $piece(mylist,",",j+1)
s KaTeX parse error: Expected 'EOF', got '}' at position 39: … temp }̲ } …length(mylist1,","){
if $piece(mylist1,",",i) = list {
w “找到了，在第”,count,“个位置上” ,!
}else{
s count = count+1
}
if count > $length(mylist1,","){
w “抱歉，没有查询到该数据”,!
}

					    }
			    }elseif num = 5{
				    Set mylists = data
		    		for i = 1:1:$length(mylists,","){
			    	for j = 1:1:$length(mylists,",")-i{
				   		if $piece(mylists,",",j) > $piece(mylists,",",j+1){
					  	 	s temp = $piece(mylists,",",j)
					  	 	s $piece(mylists,",",j) = $piece(mylists,",",j+1)
					   		s $piece(mylists,",",j+1) = temp
					   	} 
				    }
			   		}
				    
				    r "请输入要查询的数据：",list
			    	set mylist2 = mylists
			    	set count = 1
			    	for i=1:1:$length(mylist2,","){
				    if $piece(mylist2,",",i) = list {
					    if count=1{
						    w "最近的数是",$piece(mylist2,",",count+1),!
						    }elseif count = $length(mylist2,","){
							    w "最近的数是",$piece(mylist2,",",count-1),!
							    }
					    elseif ($piece(mylist2,",",count+1) - $piece(mylist2,",",count)) > ($piece(mylist2,",",count) - $piece(mylist2,",",count-1)){
						    w "最近的数是",$piece(mylist2,",",count-1),!
						    }elseif ($piece(mylist2,",",count+1) - $piece(mylist2,",",count)) < ($piece(mylist2,",",count) - $piece(mylist2,",",count-1)){
								w "最近的数是",$piece(mylist2,",",count+1),!
							    }else{
								  w "最近的数是",$piece(mylist2,",",count+1),"和" ,$piece(mylist2,",",count-1),!
								    }
					    }else{
						    s count = count+1
						    } 
				  	if count > $length(mylist2,","){
					    w "抱歉，没有查询到该数据",!
				    }
				   
					    }
				    }elseif num = 6{
					    s boolean = 0
					    }else{
						    w "输入数据错误，请重新输入",!
						}
}
while boolean = 1
    w "退出成功"

}

Storage Default
{


%%CLASSNAME


^HEREN.HIS.DEMO.demo01D
demo01DefaultData
^HEREN.HIS.DEMO.demo01D
^HEREN.HIS.DEMO.demo01I
^HEREN.HIS.DEMO.demo01S
%Library.CacheStorage
}

}