Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.11.07;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
1-21483
Leny
2002-10-28 13:50
2002.11.07
в SysTray


1-21478
BJValentine
2002-10-28 14:05
2002.11.07
Формы


14-21808
Romych
2002-10-17 23:08
2002.11.07
Поиск на этом сайте


4-21882
Nikolas ShmuS
2002-09-27 00:26
2002.11.07
Принудительно минимизировать!


4-21853
d-coder
2002-09-24 19:58
2002.11.07
Проблема 2002