Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для компьютеров > Blitz3D > Полезные функции

Полезные функции Выкладываем полезные функции, чтоб не изобретать велосипед заново...

Ответ
 
Опции темы
Старый 20.10.2013, 22:25   #1
polopok
ПроЭктировщик
 
Регистрация: 17.07.2009
Сообщений: 182
Написано 51 полезных сообщений
(для 71 пользователей)
Сообщение Поиск 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
__________________
Мой проект здесь
(Offline)
 
Ответить с цитированием
Старый 20.10.2013, 23:22   #2
Черный крыс
 
Сообщений: n/a
Ответ: Поиск Min & Max значений в переборе

шлак какой-то.
 
Ответить с цитированием
Эти 2 пользователя(ей) сказали Спасибо за это полезное сообщение:
Andvrok (20.10.2013), impersonalis (21.10.2013)
Старый 21.10.2013, 00:27   #3
impersonalis
Зануда с интернетом
 
Аватар для impersonalis
 
Регистрация: 04.09.2005
Сообщений: 14,014
Написано 6,798 полезных сообщений
(для 20,935 пользователей)
Ответ: Поиск Min & Max значений в переборе

Сообщение от polopok Посмотреть сообщение
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 Посмотреть сообщение
.start

If KeyDown(1) Then End Else Goto start
Нажмите на изображение для увеличения
Название: xkcdru_292.png
Просмотров: 1163
Размер:	25.4 Кб
ID:	19820
__________________
http://nabatchikov.com
Мир нужно делать лучше и чище. Иначе, зачем мы живем? tormoz
А я растила сына на преданьях
о принцах, троллях, потайных свиданьях,
погонях, похищениях невест.
Да кто же знал, что сказка душу съест?
(Offline)
 
Ответить с цитированием
Сообщение было полезно следующим пользователям:
SBJoker (21.10.2013)
Старый 21.10.2013, 02:25   #4
Кирпи4
Социал-сычевист
 
Аватар для Кирпи4
 
Регистрация: 24.06.2011
Сообщений: 611
Написано 342 полезных сообщений
(для 1,359 пользователей)
Ответ: Поиск Min & Max значений в переборе

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


(Offline)
 
Ответить с цитированием
Старый 21.10.2013, 08:09   #5
polopok
ПроЭктировщик
 
Регистрация: 17.07.2009
Сообщений: 182
Написано 51 полезных сообщений
(для 71 пользователей)
Ответ: Поиск Min & Max значений в переборе

Да ладно вам стебаться ,я конечно не открыл Америку .
impersonalis , естественно твой вариант лучше .
Думаю ,всё же лучше для некоторых видеть готовое решение ,чем самому ломать голову.
__________________
Мой проект здесь
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


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


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com