23.07.2019, 09:02 [+3 UTC]
в нашей команде: 3 754 чел. | участники онлайн: 4 (рекорд: 21)

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

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

все разделы

правила

новости

участники

доска почёта

форум

блоги

поиск

статистика

наш журнал

наши встречи

наша галерея

отзывы о нас

поддержка

руководство

Версия системы:
7.77 (31.05.2019)
JS-v.1.34 | CSS-v.3.35

Общие новости:
28.04.2019, 09:13

Форум:
18.07.2019, 12:26

Последний вопрос:
23.07.2019, 02:24
Всего: 149957

Последний ответ:
23.07.2019, 07:35
Всего: 258720

Последняя рассылка:
22.07.2019, 20:45

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

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

Наша кнопка:

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

Отзывы о нас:
31.07.2011, 17:07 »
Lion
Браво! Вы единственный, кто сумел правильно оценить какие взаимоотношения в данном случае возникают между банком и взыскателем. Первое, второе и последнее предложение Вашего ответа исчерпывающе отвечают на поставленный вопрос. Подробнее в мини-форуме. [вопрос № 183822, ответ № 267984]
13.09.2009, 11:54 »
Попов Андрей Александрович
Спасибо, всё очень хорошо и понятно расписано!

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

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

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

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

Зенченко Константин Николаевич
Статус: Старший модератор
Рейтинг: 209
puporev
Статус: Профессионал
Рейтинг: 26
Асмик Гаряка
Статус: Советник
Рейтинг: 0

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

Консультация онлайн # 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.14189 сек.

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