a1,a2,a3...a10：integer;
怎么比較這10個變數的大小并自動排序？
比如 a1=30;
a2=33
a3=503
.
.
.
a9=21
a10=5;
按賦值的大小自動排序
uj5u.com熱心網友回復：
TArray.Sort<integer>(SomeArray);uj5u.com熱心網友回復：
這個好像不行 是直接針對字串的 不能針對變數啊 我要求的是最后的排序是變數的順序 而且有些變數的值有可能是相同的
uj5u.com熱心網友回復：
最簡單的冒泡法，要是字串，可以使用Tstringlist：procedure TForm1.Button4Click(Sender: TObject);
var
aa: Array [0 .. 3] Of integer;
i: integer;
begin
aa[0] := 30;
aa[1] := 33;
aa[2] := 503;
aa[3] := 21;
Sort(aa);
for i := 0 to high(aa) do
Memo1.Lines.Add(inttostr(aa[i]));
end;
procedure TForm1.Sort(var x: array of integer);
var
i, j, l: integer;
begin
for i := 0 to high(x) do
begin
for j := 0 to high(x) - 1 do
begin
if x[j] > x[j + 1] then
begin
l := x[j];
x[j] := x[j + 1];
x[j + 1] := l;
end;
end;
end;
end;
結果：
21
30
33
503
uj5u.com熱心網友回復：
要輸出變數，就替代一下好了uj5u.com熱心網友回復：
得不到變數排序 是程序里面替代？uj5u.com熱心網友回復：
最簡答的方法就是：變數=值匹配一下就行，值得排序就是變數的排序，相同值的變數就無所謂前后了。
uj5u.com熱心網友回復：
程序里面也可以寫的，但也需要變數=賦值，處理值的時候同時處理變數。aa[0] := 30=a0
aa[1] := 33=a1
aa[2] := 503=a2
aa[3] := 21=a3
uj5u.com熱心網友回復：
我是這樣寫的
aa[1]:=a[1]+1=a1
這個等式沒有辦法直接賦值啊
能詳細請教下嗎 謝謝 麻煩了
uj5u.com熱心網友回復：
是這樣寫的
aa[1]:=aa[1]+1=a1
這個等式沒有辦法直接賦值啊
能詳細請教下嗎 謝謝 麻煩了
uj5u.com熱心網友回復：
你要把排序后的值順序寫回到a1~a10？最簡單的方法是使用陣列，不要用10個單獨的變數，陣列每個元素也可以作為單獨的變數使用，諸如a[1]、a[2]...
非要用獨立變數，也可以：
uses System.Generics.Collections;
procedure Sort(const A: array of PInteger);
var
N: array of integer;
i: integer;
begin
SetLength(N, Length(A));
for i := Low(A) to High(A) do
N[i] := A[i]^;
TArray.Sort<integer>(N);
for i := Low(A) to High(A) do
A[i]^ := N[i];
end;
// 使用：
var
a1, a2, a3, a4, a5: integer;
begin
a1 := 30;
a2 := 33;
a3 := 503;
a4 := 21;
a5 := 5;
Sort([@a1, @a2, @a3, @a4, @a5]);
writeln(a1, ' ', a2, ' ', a3, ' ', a4, ' ', a5);
end;
uj5u.com熱心網友回復：
我用的D7 用不了uses System.Generics.Collections; 這個。要高版本的才有好像
uj5u.com熱心網友回復：
D7的話，把TArray.Sort<integer>(N);換成自己的排序動態陣列的程序即可，比如3樓的代碼。uj5u.com熱心網友回復：
三樓代碼已經實作了排序 但是排序出來是變數的值
變數=賦值 這個等式不行 aa[1]:=aa[1]+1=a1 能麻煩指教下應該怎么把值的排序替換成變數排序嗎 麻煩了
uj5u.com熱心網友回復：
就用我的代碼加上秋天之落葉的代碼就可以了：
procedure Sort(const A: array of PInteger);
var
N: array of integer;
i: integer;
procedure __Sort(var x: array of integer);
var
i, j, l: integer;
begin
for i := 0 to high(x) do
begin
for j := 0 to high(x) - 1 do
begin
if x[j] > x[j + 1] then
begin
l := x[j];
x[j] := x[j + 1];
x[j + 1] := l;
end;
end;
end;
end;
begin
SetLength(N, Length(A));
for i := Low(A) to High(A) do
N[i] := A[i]^;
//TArray.Sort<integer>(N);
__Sort(N);
for i := Low(A) to High(A) do
A[i]^ := N[i];
end;
uj5u.com熱心網友回復：
一個是執行出值排序的 一個代碼執行不出來
uj5u.com熱心網友回復：
就用#15那個sort，原樣復制，不要改。uj5u.com熱心網友回復：
__Sort(a);
for j := 0 to high(a) do
Memo1.Lines.Add(inttostr(a[j])); 程序可以執行 這個執行不了
uj5u.com熱心網友回復：
用這個procedure Sort(const A: array of PInteger);的Sort
不要用__Sort，后者是內部嵌套程序
uj5u.com熱心網友回復：
一樣的 是變數的定義有問題嗎 ？
a: Array [0.. 9] of integer; 是這樣定義的
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
好吧，最簡單的也最好理解的辦法，如下：procedure TForm12.Button1Click(Sender: TObject);
var
aa: Array [0 .. 3] Of integer;
i: integer;
a0,a1,a2,a3:Integer;
begin
aa[0] := 30;
a0:=30;
aa[1] := 33;
a1:=33;
aa[2] := 503;
a2:=503;
aa[3] := 21;
a3:=21;
Sort(aa);
for i := 0 to high(aa) do
begin
if aa[i] = a0 then
Memo1.Lines.Add('a0='+inttostr(aa[i]));
if aa[i] = a1 then
Memo1.Lines.Add('a1='+inttostr(aa[i]));
if aa[i] = a2 then
Memo1.Lines.Add('a2='+inttostr(aa[i]));
if aa[i] = a3 then
Memo1.Lines.Add('a3='+inttostr(aa[i]));
end;
end;
procedure TForm12.Sort(var x: array of integer);
var
i, j, l: integer;
begin
for i := 0 to high(x) do
begin
for j := 0 to high(x) - 1 do
begin
if x[j] > x[j + 1] then
begin
l := x[j];
x[j] := x[j + 1];
x[j + 1] := l;
end;
end;
end;
end;
結果如下：
a3=21
a0=30
a1=33
a2=503
uj5u.com熱心網友回復：
變數的值有相同的情況 所以出現了這樣的結果
a1=18
a7=18
a1=18
a7=18
a9=20
a4=23
a2=24
a8=24
a2=24
a8=24
a6=25
a3=26
a5=26
a3=26
a5=26
a0=29
uj5u.com熱心網友回復：
var a: Array [0.. 9] of integer;i,j:integer;
begin
for i:=1 to 10-1 do
for j:=2 to 10 do
if A[j]<A[j] then
begin
k:=A[i];
A[i]:=B[j];
B[j]:=k;
end;
作一個排序即可。
end;
uj5u.com熱心網友回復：
把Sort提到前面去。
uj5u.com熱心網友回復：
陣列回圈的復原，我試了還幾個方法，都不能成功，樓上的大神們的也沒有運行成功，自己確實太笨，只好想別的辦法了，辦法很笨，用著還行，大家別笑就行，哈哈哈：procedure TForm16.Button2Click(Sender: TObject);
var
t1, t2, t0, new: string;
i: integer;
begin
t1 := '21,54,201,54,21,78,21,142';
t2 := 'AA,BB,CC,DD,EE,FF,GG,HH';
for i := 0 to 7 do
begin
t0 := GetManValue(t1, t2);
Memo1.Lines.add(t0);
new := '-' + (i + 1).ToString;
t1 := StringReplace(t1, copy(t0, 4, Length(t0) - 3), new, [rfIgnoreCase]);
end;
end;
function TForm16.GetManValue(s1, s2: string): string;
var
ss1, ss2: TStringList;
ManIndex: integer;
i: integer;
begin
ss1 := TStringList.Create;
ss2 := TStringList.Create;
ss1.Delimiter := ',';
ss1.DelimitedText := s1;
ss2.Delimiter := ',';
ss2.DelimitedText := s2;
ManIndex := 0;
for i := 1 to ss1.Count - 1 do
begin
if StrToInt(ss1[i]) > StrToInt(ss1[ManIndex]) then
ManIndex := i;
end;
result := ss2[ManIndex] + '=' + ss1[ManIndex];
ss1.Free;
ss2.Free;
end;
結果：
CC=201
HH=142
FF=78
BB=54
DD=54
AA=21
EE=21
GG=21
注意：變數必須定長。
uj5u.com熱心網友回復：
//new := '-' + (i + 1).ToString;t1 := StringReplace(t1, copy(t0, 4, Length(t0) - 3), '-1', []);
改成這樣吧，'-1'取值是比你列出的數里面最小的數還小的隨便一個數都行。
uj5u.com熱心網友回復：
如果變數不定長，就用t1 := StringReplace(t1, copy(t0, pos('=', t0) + 1, Length(t0) - 3), '-1', []);
uj5u.com熱心網友回復：
落葉想做什么？
uj5u.com熱心網友回復：
不是我想做的，是回答樓主的問題的，哈哈
uj5u.com熱心網友回復：
學習學習
uj5u.com熱心網友回復：
sort（a，a+1+10，compare）；這樣行嗎
uj5u.com熱心網友回復：
不好意思，我看成c了
uj5u.com熱心網友回復：
整數在計算機中的存放格式，最需要注意的問題是什么？給出-123在計算機中的存放格式。這是我下次在班上給同學們講的問題，網上查的東西太多太雜了，有沒有大神能給我比較專業比較易于理解的解答，謝謝了。
uj5u.com熱心網友回復：
整數在計算機中是以補碼存盤的，正整數的補碼和原碼相同，負整數的補碼是反碼（正整數原碼按位取反）加1，假設資料是位元組：123 = 01111011 原碼=反碼=補碼
-123 = 11111011 原碼
-123 = 10000100 反碼
-123 = 10000101 補碼
uj5u.com熱心網友回復：
樓主的意思不是陣列排序，是10個獨立變數排序。
uj5u.com熱心網友回復：
直接用C++中的STL中的set容器 就是應用紅黑二叉樹資料結構uj5u.com熱心網友回復：
是啊，我最后輸出的就可以做獨立變數：aa,bb,cc......
uj5u.com熱心網友回復：
直接用Map不可以嗎?map<int,string> key存變數的值,string存變數名....
uj5u.com熱心網友回復：
這么多人跟貼？？？？都以為自己進錯版塊了。。。。。。procedure TForm1.Button1Click(Sender: TObject);
var
a1,a2,a3,a4,a5:Integer;
aa:array [0..4] of Pint;
i,j:Integer;
procedure BubbleSort(b:array of Pint);
var
i,j,p:Integer;
t:Pint;
a:array of Integer;
begin
SetLength(a,Length(b));
for i:=Low(B) to High(B) do
a[i]:=b[i]^;
for i:=Low(A) to High(A)-1 do
for j:=i+1 to High(A) do
if a[i]>a[j] then
begin
p:=a[i];
a[i]:=a[j];
a[j]:=p;
end;
for i:=Low(B) to High(B) do
b[i]^:=a[i];
end;
begin
a1:=20;
a2:=40;
a3:=10;
a4:=50;
a5:=30;
Memo1.Lines.Clear;
Memo1.Lines.Add(Format('Befroe Value:A1 = %d, A2 = %d, A3 = %d, A4 = %d, A5 = %d',[a1,a2,a3,a4,a5]));
BubbleSort([@a1,@a2,@a3,@a4,@a5]);
Memo1.Lines.Add(Format('After Value:A1 = %d, A2 = %d, A3 = %d, A4 = %d, A5 = %d',[a1,a2,a3,a4,a5]));
end;
uj5u.com熱心網友回復：
樓主的需求應該就是變數地址不變，變數值排序uj5u.com熱心網友回復：
這樣宣告：procedure BubbleSort(b:array of Pint);
會產生復制陣列
改成：
procedure BubbleSort(const b:array of Pint);
就可以直接排序了
uj5u.com熱心網友回復：
冒泡排序法噢uj5u.com熱心網友回復：
可以自己寫，也可以用庫里自帶的uj5u.com熱心網友回復：
變成int型在比較？？？int a1＝a1-‘0’；
uj5u.com熱心網友回復：
用，treemap自動排序，樓主可以試一下uj5u.com熱心網友回復：
學習了，謝謝！uj5u.com熱心網友回復：
用arraylist，直接sort即可uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
資料結構中那么多實作方法，建議自行查閱書籍，
uj5u.com熱心網友回復：
這很簡單呀，如果數是唯一的就用集合TreeSet，如果不唯一就用ArrayList，傳進去，Integer，用迭代器Iterator遍歷比較，里面差不多也就是個簡單的冒泡法uj5u.com熱心網友回復：
放進treeSet里uj5u.com熱心網友回復：
陣列，for回圈uj5u.com熱心網友回復：
把這幾個數添加到treehasp然后遍歷輸出uj5u.com熱心網友回復：
進來學習一下。uj5u.com熱心網友回復：
這是涉及資料結構了吧，就那幾個演算法，學校都學過的uj5u.com熱心網友回復：
庫函式里面qsort可以解決uj5u.com熱心網友回復：
procedure TForm12.Button1Click(Sender: TObject);var
aa: Array [0 .. 3] Of integer;
i: integer;
a0,a1,a2,a3:Integer;
begin
aa[0] := 30;
a0:=30;
aa[1] := 33;
a1:=33;
aa[2] := 503;
a2:=503;
aa[3] := 21;
a3:=21;
Sort(aa);
for i := 0 to high(aa) do
begin
if aa[i] = a0 then
Memo1.Lines.Add('a0='+inttostr(aa[i]));
if aa[i] = a1 then
Memo1.Lines.Add('a1='+inttostr(aa[i]));
if aa[i] = a2 then
Memo1.Lines.Add('a2='+inttostr(aa[i]));
if aa[i] = a3 then
Memo1.Lines.Add('a3='+inttostr(aa[i]));
end;
end;
procedure TForm12.Sort(var x: array of integer);
var
i, j, l: integer;
begin
for i := 0 to high(x) do
begin
for j := 0 to high(x) - 1 do
begin
if x[j] > x[j + 1] then
begin
l := x[j];
x[j] := x[j + 1];
x[j + 1] := l;
end;
end;
end;
end;
結果如下：
a3=21
a0=30
a1=33
a2=503
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/32577.html
標籤：語言基礎/算法/系統設計
上一篇：rad studio10.3 businessskin編譯通不過（delphi）
下一篇：qt無法顯示背景圖片