Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Random, не целых чисел 
:(
    Опции темы
SoWa
Дата 5.1.2005, 06:47 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Харекришна
****


Профиль
Группа: Комодератор
Сообщений: 2422
Регистрация: 18.10.2004

Репутация: 2
Всего: 74
САБЖ
Как это в Дельфи?


--------------------
Всем добра smile
PM MAIL ICQ   Вверх
Fedor
Дата 5.1.2005, 08:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Днепрянин
****


Профиль
Группа: Участник
Сообщений: 2090
Регистрация: 8.2.2003
Где: Великий

Репутация: нет
Всего: 32
пишеш random без параметров и он тебе выдает число от 0 до 1


--------------------
Мы - Днепряне. Мы всех сильней.
PM ICQ   Вверх
December
Дата 5.1.2005, 08:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57
x:real
...
x:=random;
генерит случ. число в диапазоне 0..1
Добавлено @ 08:35
Fedor
Одновременно писали smile


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
<Spawn>
Дата 5.1.2005, 08:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Око кары:)
****


Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

Репутация: 44
Всего: 64
Хелп:

Цитата
If Range is not specified, the result is a real-type random number within the range

0 <= X < 1.


Код

procedure TForm1.Button1Click(Sender: TObject);
begin
 Randomize;
 ShowMessage(FloatToStr(Random));
end;


Если нужны числа большеи чем 0 <= X < 1, то отмасштабируй полученое значение, к примеру, домножив на 100.
Добавлено @ 08:41
Мдаsmile Однозначно я опоздалsmile


--------------------
"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.
PM MAIL ICQ   Вверх
Fedor
Дата 5.1.2005, 08:44 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Днепрянин
****


Профиль
Группа: Участник
Сообщений: 2090
Регистрация: 8.2.2003
Где: Великий

Репутация: нет
Всего: 32
Зато чем дальше тем подробнее ответ smile


--------------------
Мы - Днепряне. Мы всех сильней.
PM ICQ   Вверх
Akella
Дата 5.1.2005, 10:27 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329
один раз в приложении, например при запуске выполняешь
Код

 Randomize;


а уже в теле программы

Код

Var
i:integer;


i:=Random(2500);

ShowMessage(IntToStr(i));//число будет от 0 до 2500
PM MAIL   Вверх
Snowy
Дата 5.1.2005, 11:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
В вопросе написано: не целых чисел.
Код

var
 r: real;
begin
 //например нужно нецелое число от 0 до 100
 r:=Random*100;
 //или нужно нецелое от 0 до 100 с 4 знаками после запятой
 r:=Random(100*10000) / 10000; // (умножение для наглядности)
end;
PM MAIL   Вверх
Akella
Дата 5.1.2005, 11:33 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329
если не целых то нужно использоватьдве переменные Integer, одну String и одну Float

i,r:Integer//i-целые, r-дробная часть
s:String
f:float

...
randomize;

i:=Random(100);
r:=Random(99);
s:=IntToString(i)+DecimalSeparator+IntToString®;
try
f:=StrToFloat(s);
except
//сообщение об ошибке
end;
PM MAIL   Вверх
December
Дата 5.1.2005, 23:45 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57
dsergey
ээээ... а к чему такие сложности? Или это из разряда юмора?


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
Fedor
Дата 6.1.2005, 08:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Днепрянин
****


Профиль
Группа: Участник
Сообщений: 2090
Регистрация: 8.2.2003
Где: Великий

Репутация: нет
Всего: 32
December Клиентов ищешь? smile


--------------------
Мы - Днепряне. Мы всех сильней.
PM ICQ   Вверх
Akella
Дата 6.1.2005, 12:28 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Творец
****


Профиль
Группа: Модератор
Сообщений: 18485
Регистрация: 14.5.2003
Где: Корусант

Репутация: 36
Всего: 329
December, а почему же ты не привел примера smile
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1261 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.