Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];

Вниз

Как из нескольких чисел найти самое большое ;-)   Найти похожие ветки 

← →
delpher_gray   (2002-10-29 19:07) [0]

Господа Делферы !
Перейду сразу к вопросу.
Например есть 6 цыфр:
1) 658
2) 325
3) 135
4) 632
5) 889
6) 128
Как найти из них самое большое ?
Заранее благодарен.

---

← →
TTCustomDelphiMaster   (2002-10-29 19:20) [1]

F1 - max
или в цикле

---

← →
wer1   (2002-10-30 10:48) [2]

Подключи модуль Math в нем есть функция MaxIntValue-для целых чисел или MaxValue-для набора чисел. Как с ними работать смотри справку. Функции измодуля Math работают быстро и их есть смысл применять при большом колличестве цифр. А если цифр немного то как подсказал TTCustomDelphiMaster в цикле,используя знаки сравнения < или >.

---

← →
RV   (2002-10-30 11:52) [3]

самое большое - под номером 5.

1. Проверял в маткаде
2. Писал программищу (на сях(++) + асм)
3. Показавал профессору в области ядерной физики

точно, самое большое - под номером 5.

---

← →
cutter-pro   (2002-10-30 11:56) [4]

2RV Пять баллов! Круто прикололся!
:)))))))))))))))))))))))))))))))))...

---

← →
Separator   (2002-10-30 12:09) [5]

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;

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.11.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.007 c