|
Основной форум Сюда все проблемы связанные с программированием. |
13.07.2010, 11:07
|
#1
|
Знающий
Регистрация: 20.03.2010
Сообщений: 271
Написано 16 полезных сообщений (для 32 пользователей)
|
Random
Вот пишу примитивную гонку подобную как vkontakte.ru
столкнулся с такой проблемой как сделать что рандом зависил от велечены переменной???
Program NewRacing; var i,q,u:integer; begin if random(2) = 1 then i:= 10; else q := 12; if(i>q) then u:=1 else u:=2; DrawText('Выграл:'+u, 5, 5); Repaint; Delay(5000); End.
__________________
¯¯¯¯\——-/¯¯¯¯ респект любителям BMX
|
(Offline)
|
|
13.07.2010, 14:07
|
#2
|
Модератор
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений (для 817 пользователей)
|
Ответ: Random
Сообщение от psih1
как сделать что рандом зависил от велечены переменной???
|
А конкретнее? Каким образом должен зависеть?
Имеется в виду аналог RandSeed?
|
(Offline)
|
|
13.07.2010, 15:25
|
#3
|
Знающий
Регистрация: 20.03.2010
Сообщений: 271
Написано 16 полезных сообщений (для 32 пользователей)
|
Ответ: Random
ну чтоб шанс больше был у той переменной которая больше по значению I:=10<Q:=15
__________________
¯¯¯¯\——-/¯¯¯¯ респект любителям BMX
|
(Offline)
|
|
13.07.2010, 19:20
|
#4
|
Оператор ЭВМ
Регистрация: 19.09.2009
Сообщений: 43
Написано 8 полезных сообщений (для 10 пользователей)
|
Ответ: Random
Взято из хелпа
Следующая функция возвращает случайное значение типа boolean; возможность того, что возвращаемое значение будет равно 'true' равна 75%:
function randomBoolean: boolean;
begin
if random(4) = 3 then
randomBoolean := false;
else
randomBoolean := true;
end;
|
(Offline)
|
|
15.07.2010, 10:18
|
#5
|
Знающий
Регистрация: 20.03.2010
Сообщений: 271
Написано 16 полезных сообщений (для 32 пользователей)
|
Ответ: Random
Тогда можно немного коминтариев я ток начал работать с цыклами
__________________
¯¯¯¯\——-/¯¯¯¯ респект любителям BMX
|
(Offline)
|
|
15.07.2010, 18:16
|
#6
|
Оператор ЭВМ
Регистрация: 19.09.2009
Сообщений: 43
Написано 8 полезных сообщений (для 10 пользователей)
|
Ответ: Random
Чесно говоря сам понятия не имею,не сталкивался с процедурой random
|
(Offline)
|
|
15.07.2010, 18:43
|
#7
|
ПроЭктировщик
Регистрация: 18.12.2007
Сообщений: 157
Написано 24 полезных сообщений (для 27 пользователей)
|
Ответ: Random
psih1, циклы тут (в функции
function randomBoolean: boolean;
begin
if random(4) = 3 then
randomBoolean := false;
else
randomBoolean := true;
end;
|
) не причём вообще, их тут нет.
|
(Offline)
|
|
15.07.2010, 20:30
|
#8
|
AnyKey`щик
Регистрация: 28.11.2008
Сообщений: 6
Написано 0 полезных сообщений (для 0 пользователей)
|
Ответ: Random
function randomBoolean(first,second:integer): boolean;
begin
randomBoolean:=random(first+second) <first;
end;
|
(Offline)
|
|
16.07.2010, 21:22
|
#9
|
Знающий
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений (для 13 пользователей)
|
Ответ: Random
Рендом рулит. Мне кажется неплохо было бы иметь библиотеку для рендома. С множеством функций!
__________________
G502, GT S5230w user!
|
(Offline)
|
|
18.07.2010, 01:58
|
#10
|
Мастер
Регистрация: 06.09.2007
Адрес: Донецк, ДНР
Сообщений: 1,023
Написано 298 полезных сообщений (для 713 пользователей)
|
Ответ: Random
Да, у рандома много возможностей. А в MP реализовали только 2.
К примеру, у меня была такая задача: дано 100 координат звезд расположенных в случайном порядке, нужно их выводить на экран и при этом каждую итерацию цикла сдвигать координату X на 1 пиксель. Так вот. В данном случае даже не нужно заводить массивы X и Y на 100 чисел каждый. Просто нужно перед каждым циклом вывода звезд инициализировать генератор чисел с помощью одного и того же числа. Жаль, что в MP такой функции нет. А в Java - пожалуйста.
|
(Offline)
|
|
18.07.2010, 13:35
|
#11
|
Знающий
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений (для 13 пользователей)
|
Ответ: Random
Так может всётаки стоит задуматься над либой. Если я умел бы то неприменно взялся бы))
__________________
G502, GT S5230w user!
|
(Offline)
|
|
18.07.2010, 13:39
|
#12
|
Мастер
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,218
Написано 438 полезных сообщений (для 790 пользователей)
|
Ответ: Random
Достать где-нибудь алгоритм и числа нетрудно. (вроде бы как а*б, и если надо, -с).
Можно даже модуль на самом паскале
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
|
(Offline)
|
|
18.07.2010, 14:02
|
#13
|
Знающий
Регистрация: 14.05.2010
Сообщений: 297
Написано 13 полезных сообщений (для 13 пользователей)
|
Ответ: Random
Умел бы я ещё модули делать...
__________________
G502, GT S5230w user!
|
(Offline)
|
|
18.07.2010, 14:27
|
#14
|
Мастер
Регистрация: 03.05.2010
Адрес: Подмосковье
Сообщений: 1,218
Написано 438 полезных сообщений (для 790 пользователей)
|
Ответ: Random
__________________
О¯О ¡¡¡ʁɔvʎнdǝʚǝdǝu dиW
|
(Offline)
|
|
18.07.2010, 17:38
|
#15
|
Мастер
Регистрация: 06.09.2007
Адрес: Донецк, ДНР
Сообщений: 1,023
Написано 298 полезных сообщений (для 713 пользователей)
|
Ответ: Random
Уже написал библиотеку. Заходите в раздел библиотек. Смотрите Lib_rnd.
|
(Offline)
|
|
Эти 2 пользователя(ей) сказали Спасибо odd за это полезное сообщение:
|
|
Ваши права в разделе
|
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения
HTML код Выкл.
|
|
|
Часовой пояс GMT +4, время: 06:31.
|