|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Нахождения максимума в массиве
День добрый, помогите пожалуйста, приходят некоторые числа, их необходимо занести в массив и найти из этого массива максимальное число, как это сделать?
|
#2
|
||||
|
||||
Цитата:
|
#3
|
|||
|
|||
Вообще-то есть в модуле Math специальная функция:
function MaxValue(const Data: array of Double): Double; Description MaxValue returns the largest signed value in the Data array. In C++, the Data_Size parameter gives the index of the last element of the array (one less than the number of elements). и проще всего воспользоваться ей. Но можно отловить максимум на лету- по мере ввода данных в массив Примерно так Код:
var MaxIndex, //указывает на максимальный элемент массива i:integer; A:array[0..100] of double; //массив {--------------кнопка ввода данных из окна Edit1 в массив----------} procedure TForm1.Button1Click(Sender: TObject); begin if i <=High(A) then begin A[i]:=StrToFloat(Edit1.Text); if A[i] > A[MaxIndex] then MaxIndex:=i; inc(i); end else ShowMessage('массив заполнен'); end; initialization MaxIndex:=0; i:=0; |
#4
|
|||
|
|||
Может будет интересно...
Код:
var a:array [1..100] of single; max: single; //Эта цикл для нахождение максимального члена массива for i:=1 to 100 do begin if max>a[i] then max:=max else if k<=a[i] then k:=a[i]; end; |
#5
|
|||
|
|||
не k а maх. ошибся
|