21.02.2019, 07:49 [+3 UTC]
в нашей команде: 3 398 чел. | участники онлайн: 1 (рекорд: 21)

:: РЕГИСТРАЦИЯ

задать вопрос

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.69 (10.02.2019)
JS-v.1.33 | CSS-v.3.35

Общие новости:
10.02.2019, 21:59

Форум:
16.02.2019, 15:03

Последний вопрос:
20.02.2019, 20:01
Всего: 148787

Последний ответ:
21.02.2019, 01:04
Всего: 257812

Последняя рассылка:
20.02.2019, 21:15

Писем в очереди:
0

Мы в соцсетях:

Наша кнопка:

RFpro.ru - здесь вам помогут!

Отзывы о нас:
07.11.2018, 17:29 »
Кириллова Анна Витальевна
спасибо большое, Вы не просто решили, а объяснили и подтолкнули на правильное решение [вопрос № 193829, ответ № 276861]
07.10.2012, 15:51 »
Алексеев Владимир Николаевич
Большое спасибо! Странно, я ведь задавал "G43T" в поиске на www.ecsusa.com/ , но мне возвратилось "Не найдено", а по Вашей ссылке нужная инфа открылось в том же браузере! И после этого повторный поиск тоже сработал успешно! Предложенная Вами сис-плата по 2й ссылке неполноценна для наших условий отсутствием в ней IDE-слота (односельчане регулярно приносят мне IDE-диски на проверку). [вопрос № 186671, ответ
21.10.2016, 17:11 »
GDragon
Спасибо огромное, за бысрый ответ! Вы мне очень помогли! [вопрос № 189908, ответ № 274173]

РАЗДЕЛ • Pascal / Delphi / Lazarus

Создание программ на языках Pascal, Delphi и Lazarus.

[администратор рассылки: Зенченко Константин Николаевич (Старший модератор)]

Лучшие эксперты в этом разделе

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 397
zdwork
Статус: 1-й класс
Рейтинг: 111
puporev
Статус: Профессионал
Рейтинг: 105

Перейти к консультации №:
 

Консультация онлайн # 171991
Раздел: • Pascal / Delphi / Lazarus
Автор вопроса: Николай // Programmator
Отправлена: 08.09.2009, 02:17
Поступило ответов: 1

Здравствуйте уважаемые эксперты! Подскажите пожалуйста, можно ли random'ом реализовать генерацию случайных чисел, только не целых, а дробных? Если нет, есть ли другой способ? Нужно получить n - чисел (псевдослучайных) от 1 до 999 с тремя знаками после комы (тоже случайными). Например 892.762 или 3.612 smile

Состояние: Консультация закрыта

Ответ # 253971 от Ковалев Никита Викторович

Здравствуйте, Николай // Programmator .
Попробуйте такое выражение

l=random(1000)+random(1000)*0.001;


Консультировал: Ковалев Никита Викторович
Дата отправки: 08.09.2009, 02:34

5
Огромное Вам спасибо!!!
-----
Дата оценки: 08.09.2009, 10:05

Рейтинг ответа:

0

[подробно]

Сообщение
модераторам

Отправлять сообщения
модераторам могут
только участники портала.
ВОЙТИ НА ПОРТАЛ »
регистрация »

Мини-форум консультации № 171991

Вадим Исаев ака sir Henry
Мастер-Эксперт

ID: 425

# 1

= общий = | 08.09.2009, 05:03 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер

Николай // Programmator :

© Цитата:
...тремя знаками после комы...

А кома с кем случилась? И долго ли программиста после комы откачивали? smile
Вы по русски писать категорически не хотите?

=====
Я только в одном глубоко убеждён - не надо иметь убеждений! :)

Тимошенко Дмитрий

# 2

= общий = | 08.09.2009, 07:41

sir Henry:
В принципе Ковалев Никита Викторович ответил правильно, только вот диапазон получается от 0 до 999, может стоит исправить на:
l=1+random(999)+random(1000)*0.001;

=====
Я только в одном глубоко убеждён - не надо иметь убеждений! :)

Вадим Исаев ака sir Henry
Мастер-Эксперт

ID: 425

# 3

= общий = | 08.09.2009, 08:35 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер

А если попроще? Например так:

Function RandomNumber: Currency;
Begin
  Randomize;
  Result:=Random(1000)+Random;
End;
Тип Currency автоматически ограничивает количество знаков после запятой четырьмя штуками. Если количество знаков критично, тогда надо округлять.

=====
Я только в одном глубоко убеждён - не надо иметь убеждений! :)

Николай Николаевич//

# 4

= общий = | 08.09.2009, 10:02

sir Henry:
Извиняюсь...

=====
Я только в одном глубоко убеждён - не надо иметь убеждений! :)

Николай Николаевич//

# 5

= общий = | 08.09.2009, 10:03

Спасибо всем за помощь! smile

=====
Я только в одном глубоко убеждён - не надо иметь убеждений! :)

Сергей Бендер
Профессионал

ID: 304622

# 6

= общий = | 15.09.2009, 17:09 | цитировать цитировать  | профиль профиль  |  отправить письмо в личную почту пейджер

© Цитата: Вадим Исаев ака sir Henry

Result:=Random(1000)+Random;


Можно ещё проще:

Result:=random*1000;

Тимошенко Дмитрий

# 7

= общий = | 15.09.2009, 21:18

Сергей Бендер:
Ай, молодцА. smile

 

Возможность оставлять сообщения в мини-форумах консультаций доступна только после входа в систему.
Воспользуйтесь кнопкой входа вверху страницы, если Вы зарегистрированы или пройдите простую процедуру регистрации на Портале.

Яндекс Rambler's Top100

главная страница | поддержка | задать вопрос

Время генерирования страницы: 0.14513 сек.

© 2001-2019, Портал RFPRO.RU, Россия
Калашников О.А.  |  Гладенюк А.Г.
Версия системы: 7.69 от 10.02.2019
Версия JS: 1.33 | Версия CSS: 3.35