| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как из нескольких чисел найти самое большое ;-) [D6]
delpher_gray © (2002-10-29 19:07:00)Господа Делферы !
Перейду сразу к вопросу.
Например есть 6 цыфр:
1) 658
2) 325
3) 135
4) 632
5) 889
6) 128
Как найти из них самое большое ?
Заранее благодарен.
Separator (2002-10-30 12:09:00) [1]
function FindMax(const Ar: array of integer): integer;
var
i, max: integer;
begin
max:= Low(Ar);
if Low(Ar) < High(Ar) then
for i:= Low(Ar) + 1 to High(Ar) do
if Ar[max] < Ar[i] then
max:= i;
Result:= Ar[max]
end;
cutter-pro (2002-10-30 11:56:00) [2]2RV Пять баллов! Круто прикололся!
:)))))))))))))))))))))))))))))))))...
RV (2002-10-30 11:52:00) [3]самое большое - под номером 5.
1. Проверял в маткаде
2. Писал программищу (на сях(++) + асм)
3. Показавал профессору в области ядерной физики
точно, самое большое - под номером 5.
wer1 (2002-10-30 10:48:00) [4]Подключи модуль Math в нем есть функция MaxIntValue-для целых чисел или MaxValue-для набора чисел. Как с ними работать смотри справку. Функции измодуля Math работают быстро и их есть смысл применять при большом колличестве цифр. А если цифр немного то как подсказал TTCustomDelphiMaster в цикле,используя знаки сравнения < или >.
TTCustomDelphiMaster (2002-10-29 19:20:00) [5]F1 - max
или в цикле
| |
