引言: 各位大大好: 我是程式新手，請問如何在一維陣列中 抓取最大值跟最小值。請各位大大告訴小弟 程式該要怎麼寫or有程式可以參考。 謝謝各位大大

yf90002 你好:
(1)可以利用 quick sort 的原理達到目的
(2)請參考以下的範例程式碼
>*>>>> >
    < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --
        

引言: 各位大大好: 我是程式新手，請問如何在一維陣列中 抓取最大值跟最小值。請各位大大告訴小弟 程式該要怎麼寫or有程式可以參考。 謝謝各位大大

int array[SIZE];
int Max = array[0],Min = array[0];
for(int ia=0;ia < SIZE;ia  )
    {
    if(array[ia] > Max)
        Max = array[ia];
    if(array[ia] < Min)
        Min = array[ia];
    }
 

     for(int y=0;ymax)
        {
         max=jy[y];
         j=y;
   //      Image2->Canvas->MoveTo(0,j);
   //      Image2->Canvas->LineTo(S.Width,j);
         }          if(jy[y]Canvas->MoveTo(0,y);
       //  Image2->Canvas->LineTo(S.Width,y);
        }
   }
   ShowMessage(j); ShowMessage(m);
   Image2->Canvas->Pen->Color=clYellow;
   Image2->Canvas->Pen->Width=1;
       Image2->Canvas->MoveTo(0,j);
         Image2->Canvas->LineTo(S.Width,j);
        Image2->Canvas->MoveTo(0,m);
         Image2->Canvas->LineTo(S.Width,m);
     

引言:

 Image2->Canvas->MoveTo(0,j);
  Image2->Canvas->LineTo(S.Width,j);
  Image2->Canvas->MoveTo(0,m);
  Image2->Canvas->LineTo(S.Width,m);

 Image2->Canvas->MoveTo(0,j);
Image2->Canvas->LineTo(max,j);
Image2->Canvas->MoveTo(0,m);
Image2->Canvas->LineTo(min,m);