数组 – 如何在结尾处用零对整数数组进行排序？

概述我需要按整数字段对数组进行排序,其中1-n在开头排序,最后为0： 0,0,3,1,2 – > 1,2,3,0,0 我不知道如何一次性排序,所以我尝试了两种,但它没有产生正确的结果： 它确实在最后添加了零,但它弄乱了1-n个有序物品： 0,0,3,1,2 – > (第一类)0,0,1,2,3 – > (第二类)2,3,1,0,0 procedure TForm2.Button1Click(Sende 我需要按整数字段对数组进行排序,其中1-n在开头排序,最后为0：
0,3,1,2 – > 1,2,0

我不知道如何一次性排序,所以我尝试了两种,但它没有产生正确的结果：

它确实在最后添加了零,但它弄乱了1-n个有序物品：

0,2 – > (第一类)0,3 – > (第二类)2,0

procedure TForm2.button1Click(Sender: TObject);var  Arr: TArray<integer>;begin  SetLength(Arr,5);  Arr[0] := 0;  Arr[1] := 0;  Arr[2] := 3;  Arr[3] := 1;  Arr[4] := 2;  // First sort: Sort 1-n  TArray.sort<integer>(Arr,TComparer<integer>.Construct(function(const left,Right: integer): Integer    begin      if left < Right then        Result := -1      else if left > Right then        Result := 1      else        Result := 0;    end    ));  // Second sort: Put zeros at the end  TArray.sort<integer>(Arr,Right: integer): Integer    begin      if (left = 0) and (right>0) then        Result := 1      else        Result := 0;    end    ));end;

有没有办法在一个单一的排序 *** 作中进行这种排序？

解决方法 试试这个,重点是在普通情况之前先处理if-then-else梯形图中的特殊0个案例.

TArray.sort<integer>(Arr,Right: integer): Integer    begin    if (left = 0) and (Right = 0) then      Result := 0    else if (left = 0) then      Result := 1    else if (Right = 0) then      Result := -1    else if (left < Right) then      Result := -1    else if (left > Right) then      Result := 1    else      Result := 0;    end    ));

一个简短的测试显示它工作正常.

总结

以上是内存溢出为你收集整理的数组 – 如何在结尾处用零对整数数组进行排序？全部内容，希望文章能够帮你解决数组 – 如何在结尾处用零对整数数组进行排序？所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。