forum.boolean.name - Поиск Min & Max значений в переборе

forum.boolean.name (http://forum.boolean.name/index.php)

- Полезные функции (http://forum.boolean.name/forumdisplay.php?f=17)

- - Поиск Min & Max значений в переборе (http://forum.boolean.name/showthread.php?t=18646)

polopok

20.10.2013 22:25

Поиск Min & Max значений в переборе

Демонстрация поиска максимального и минимального значений из данных( массива , типов , случайных значений).
Для тех кто столкнулся с данной задачей (например поиск пути).

Код:

SeedRnd MilliSecs()

.start

Locate 0,0

Cls 

max=0

min=1000000

For y=0 To 20 



c=Rnd(0,1999)



        If c >= max Then max=c

        If c < min Then min=c

        Print "C = "+c+"  |    Min = "+min+"    |    Max = "+max

Next



WaitKey()

If KeyDown(1) Then End Else Goto start

Черный крыс

20.10.2013 23:22

Ответ: Поиск Min & Max значений в переборе

шлак какой-то.

impersonalis

21.10.2013 00:27

Ответ: Поиск Min & Max значений в переборе

Вложений: 1

Цитата:

Сообщение от polopok (Сообщение 269130)

Код:

max=0

min=1000000

не делай так! Такой подход имеет место только при априорном диапазоне значений элементов массива. Более общее и удобное решение:

Код:

min=v(1)

max=v(1)

for i=2 to N

if v(i)>max then max=v(i)

if v(i)<min then min=v(i)

next

Цитата:

Сообщение от polopok (Сообщение 269130)

Код:

.start



If KeyDown(1) Then End Else Goto start

Вложение 19820

Кирпи4

21.10.2013 02:25

Ответ: Поиск Min & Max значений в переборе

О боги, как раз искал как сделать поиск минимального и максимального значений. Полопок, огромное спасибо, выручил

polopok

21.10.2013 08:09

Ответ: Поиск Min & Max значений в переборе

Да ладно вам стебаться :-) ,я конечно не открыл Америку .
impersonalis , естественно твой вариант лучше .
Думаю ,всё же лучше для некоторых видеть готовое решение ,чем самому ломать голову.

Часовой пояс GMT +4, время: 12:00.