我有一個一維矩陣 X[i] 如何從中擷取矩陣中的最大最小值 謝謝！！

引言: 我有一個一維矩陣 X[i] 如何從中擷取矩陣中的最大最小值 謝謝！！

有好幾種方法啦...介紹一種比較簡單的... 就是把一維矩陣內的值...把他塞進LISTBOX裡...然後再下SORT... 第一個位置就是最小值...最後一個位置就是最大值...

引言:

引言: 我有一個一維矩陣 X[i] 如何從中擷取矩陣中的最大最小值 謝謝！！

有好幾種方法啦...介紹一種比較簡單的... 就是把一維矩陣內的值...把他塞進LISTBOX裡...然後再下SORT... 第一個位置就是最小值...最後一個位置就是最大值...

ㄟ這方法我瞭解 不過需要LIST物件 我希望可以用語法或計算的方式 擷取出來

引言:

引言:

引言: 我有一個一維矩陣 X[i] 如何從中擷取矩陣中的最大最小值 謝謝！！

有好幾種方法啦...介紹一種比較簡單的... 就是把一維矩陣內的值...把他塞進LISTBOX裡...然後再下SORT... 第一個位置就是最小值...最後一個位置就是最大值...

ㄟ這方法我瞭解 不過需要LIST物件 我希望可以用語法或計算的方式 擷取出來

自己先排序,再取第一個(最小值)及最後一個(最大值) @@~~飛翔在天際的精靈~~@@

這是我後來處理的方法：   showmessage(inttostr(SelNum));   DataModule1.TablePattern.Open;   DataModule1.TablePattern.Filtered:=True;   with DataModule1.Query1 do   for i:=1 to SelNum do     begin         showmessage(_MyAns[i]);         close;         SQL.clear;         SQL.Add('select * from HOLE1 ');         SQL.Add('where H_X+H_Y='+#39+_MyAns[i]+#39);//找出座標點         SQL.Add('Order By H_X');         //showmessage('where H_X+H_Y='+#39+_MyAns[i]+#39);         Open;         X[i]:=strtoint(FieldValues['H_X']);//記錄X座標         //showmessage(inttostr(X[i]));         Y[i]:=strtoint(FieldValues['H_Y']);//記錄Y座標         //showmessage(inttostr(Y[i]));         if i=1 then             begin                 max_x:=X[i];                 min_x:=X[i];                 max_y:=Y[i];                 min_y:=Y[i];             end         else             begin                 if max_xX[i] then min_x:=X[i]; if max_yY[i] then min_y:=Y[i]; end; end; Sum_X:=max_x-min_x; Sum_Y:=max_y-min_y; Sum_Dis:=Sqrt((Sum_X*Sum_X) (Sum_Y*Sum_Y)); 發表人 - tomi 於 2002/07/18 18:07:37 發表人 - tomi 於 2002/07/18 18:08:29 發表人 - tomi 於 2002/07/18 18:09:44

function ChkTheMax(wk : array):integer; var chk,i :integer; begin chk := wk[0]; for i := 1 to xx//(wk陣列的最大值,這邊我不知道如何取) chk := Max(chk,wk[i]); Result := chk; end; //應該是這樣吧，上一篇錯了，要怎麼刪掉啊

引言: function ChkTheMax(wk : array):integer; var chk,i :integer; begin chk := wk[0]; for i := 1 to xx//(wk陣列的最大值,這邊我不知道如何取) chk := Max(chk,wk[i]); Result := chk; end; //應該是這樣吧，上一篇錯了，要怎麼刪掉啊

按垃圾桶圖示就可以 @@~~飛翔在天際的精靈~~@@

試試看這個函數吧～

function GetMax(var x:array of integer):integer;
var i:integer;
begin
  Result:=x[Low(x)];
  for i:=Low(x) 1 to High(x) do
    if x[i]>Result then Result:=x[i];
end;

你自己修改成GetMin函數吧...

奇怪咧 我貼的程式碼為何會被蓋掉呀，奇怪？ 不過謝謝這幾位熱心的人士 幫小弟解決問題！ 謝謝！！

如果你是要同時要取出最大值和最小值的話 可以設兩個變數max,min 一次從x[i]裡取兩個值出來比大小， 較大和max再比一次 較小和min再比一次 若最後剩一個的話就和max,min各比一次 而最後在max,min裡面的值就是最大值和最小值 若你是要抓最大值和最小值的index的話 就再加設兩個變數maxindex,minindex 做法和上面差不多，就是改變max,和min的時候記得順便改一下 maxindex,minindex