用TC完成以下算法,有偿

zajanmy

2,220,2,230,4,247,5,226,7,242，逗号，235
通过比较220,230,247,226,242,235的大小从而排序(从小到大)它们前面的元素
比如226小于230  就把226前面的5和230前面的2调换
最后只保留2,2,4,5,7，逗号的排序结果

求解

jimye0526

1. 
   
2.     变量 原始字符串, 数组大小 = 0, 计次, 计次1, 排序后的字符串
   
3.     变量 原始字符组 = 数组[0], 字符组 = 数组[0], 排序字符组 = 数组[0]
   
4.    
   
5.     原始字符串= "2,220,2,230,4,247,5,226,7,242,逗号,235"
   
6.     字符串.分割(原始字符串, ",", 原始字符组)
   
7.     数组空间.大小(原始字符组, 数组大小)
   
8.    
   
9.     遍历(计次=0; 计次<数组大小; 计次++)
   
10.         如果(计次%2 == 0)
    
11.             数组空间.增加(字符组, 原始字符组[计次] & "," & 原始字符组[计次+1], 1)
    
12.         否则
    
13.             数组空间.增加(排序字符组, 原始字符组[计次], 1)
    
14.         如果结束
    
15.     遍历结束
    
16.    
    
17.     数组空间.排序(排序字符组, 2)
    
18.    
    
19.     遍历(计次=0; 计次<数组大小/2; 计次++)
    
20.         遍历(计次1=0; 计次1<数组大小/2; 计次1++)
    
21.             如果(字符串.查找字符串(字符组[计次1], "," & 排序字符组[计次]) > -1)
    
22.                 排序后的字符串 = 排序后的字符串 & 字符串.左侧(字符组[计次1], 字符串.查找字符串(字符组[计次1], ",") ) & ","
    
23.             如果结束
    
24.         遍历结束
    
25.     遍历结束
    
26.    
    
27.     字符串.移除(排序后的字符串, 1, 假)
    
28.    
    
29.     调试输出(排序后的字符串)
    

复制代码

随便给你写了个，你的例子是能可以排序的，不过如果第二个数字字符(就是220,230,247这些)是出现相等的数字，排序就会出现错误的。

如果这个对你有用的话，你的有偿就打过来吧，支付宝：291435773@qq.com

jimye0526

有偿多少，可以找我
399260802

冷月无痕

2,220,2,230,4,247,5,226,7,242
既然是分组的 最好用不同的分隔符 比如
2,220;2,230;4,247;5,226;7,242
这样比较好算
如果一定要这样的话...就麻烦很多了

zajanmy

冷月无痕 发表于 2014-5-25 19:13
2,220,2,230,4,247,5,226,7,242
既然是分组的 最好用不同的分隔符 比如
2,220;2,230;4,247;5,226;7,242

2,220;2,230;4,247;5,226;7,242这样也行    但即使这样我也没思路啊。。

rainshine

pascal程序设计 呢本书上貌似还有这个 是个学生成绩排序- -。

zajanmy

rainshine 发表于 2014-5-25 19:57
pascal程序设计 呢本书上貌似还有这个 是个学生成绩排序- -。

TC的遍历语句貌似不直接支持步长为2...而且步长在遍历（）里不好省略。。总而言之TC的遍历 我赶脚不强悍啊。。   所以  大大你说的参考  我用TC无法模仿。。

zajanmy

jimye0526 发表于 2014-5-25 19:13
有偿多少，可以找我
399260802

你要多少？太多没意思

cylhb

分割，然后按冒泡算法写一下，注意一下比较的位置和最后要保存的数字的位置就好了

zajanmy

jimye0526 发表于 2014-5-25 21:25
随便给你写了个，你的例子是能可以排序的，不过如果第二个数字字符(就是220,230,247这些)是出现相等的数字 ...

大大你回慢了。。我找群里的人（论坛里的，昵称q273814）解决了。。也打款给他了。。。。我说的是实话