100高分求一组合函数或算法,最好是JS的.DELPHI或其他语言也可.

来源：学生作业帮编辑：搜搜考试网作业帮分类：综合作业时间：2024/06/24 12:51:31

100高分求一组合函数或算法,最好是JS的.DELPHI或其他语言也可.
输入参数:全部是个位数一串数字或数组(含义,需要组合的数字,比如 1,2,3,4,5,6,7 ) 一个数字(含义:组合数字的个数,比如 2)
需要显示 (结果分行不分行也可,)
1,2|1,3|1,4|1,5|1,6|1,7|
2,3|2,4|2,5|2,6|2,7|
3,4|3,5|3,6|3,7|
4,5|4,6|4,7|
5,6|5,7|
6,7|
又比如, 数字或数组是 1,2,3,4,5 组合数字的个数是 3
那么必须显示
1,2,3|1,2,4|1,2,5|
1,3,4|1,3,5|
1,4,5|
2,3,4|2,3,5|
3,4,5| (结果分行不分行也可,)
关键是两个参数都可变的.两个参数的数字都用个位数字就可以了.
看来还是不行啊.如果我后面的参数是4或者5或者6或者7或者8呢?是不是要写1堆子函数?有没有一步到位的方法呢?

//Delphi:
function Combination(source :string; len :Integer):string;
var
rsl,sl,tsl :TStringList;
i :Integer;
s,t :string;
begin
sl := TStringList.Create;
rsl := TStringList.Create;
try
while source[1] = ',' do
source := Copy(source,2,Length(source) - 1);
while source[Length(source)] = ',' do
source := Copy(source,1,Length(source) - 1);
sl.Delimiter := ',';
sl.DelimitedText := source;
if sl.Count < len then
begin
Result := '原数据长度小于组合个数' + #13 + '原数据分隔符只能为英文输入法的逗号","';
Exit;
end;
if len = 1 then
begin
for i := 0 to sl.Count - 1 do
Result := Result + sl.Strings[i] + '|';
end
else
begin
while sl.Count >= len do
begin
tsl := TStringList.Create;
try
tsl.Assign(sl);
while tsl.Count >= len do
begin
t := '';
s := '';
for i := 0 to len - 2 do
t := t + tsl.Strings[i] + ',';
for i := len - 1 to tsl.Count - 1 do
s := s + t + tsl.Strings[i] + '|';
rsl.Add(s);
if len > 2 then
tsl.Delete(1)
else
tsl.Clear;
end;
finally
FreeAndNil(tsl);
end;
sl.Delete(0);
end;
Result := rsl.Text;
end;
finally
FreeAndNil(rsl);
FreeAndNil(sl);
end;
end;
//调用
ShowMessage(Combination('1,2,3,4,5,6,7',2));
ShowMessage(Combination('1,2,3,4,5',3));
ShowMessage(Combination('1,2,3,4,5',4));

求无向图最小环道的算法最好是matlab算法其他算法也可以求复杂的男生英文名最好是D或E开头其他的也可以求个性的英文名（女）好听的话给男生的也无所谓.开头最好是C或J 其他好听的也可.最好不是有太多人叫. 求：一篇英语小短文关于保护动物的,最好是熊猫或老虎的,其他也行求带“磊”字和“昭”字的成语或词语谐音也可最好是甜蜜温馨的取英文名字最好有菲字读音或近似的.有个性点的或意思是个性也可求高中英语材料（人教版最好,其他也行）,不是听力,是课本材料,pdf或word都可以, 高分求N首西班牙语歌或其他外语歌急求贝克汉姆的一些英文简介``或其他足球明星的也可以`是英文的` 求英文缩写或英文名我叫黄雨珊,希望求一个好听的英文缩写,英文名也可以,最好是缩写,有没有什么字母合我名字里的读音,最好读 delphi的过程或函数中什么是值参数,变量参数,常数参数,文字说明一下再举例说明一下, 求卡哇伊的英文名字最好是S、W、C或D开头的其他开头的也行其他字母开头的也可以