Форум программистов  
Контакты: о проблемах с регистрацией, почтой и по другим вопросам пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail.

Вернуться   Форум программистов > Delphi > Lazarus, Free Pascal, CodeTyphon
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы
Старый 30.08.2016, 15:46   #11
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 22,382
Репутация: 5033
По умолчанию

Цитата:
Сообщение от Danilkoo832832 Посмотреть сообщение
Нет не хватит.
ну, тогда можно использовать метод, предложенный выше.

или искать другой способ.


Цитата:
Сообщение от Danilkoo832832 Посмотреть сообщение
Вроде в pascal abc.net есть все возможности FP(могу ошибаться).
ошибаетесь. Это разные диалекты Паскаля.
Впрочем, я спорить и что-то доказывать не собираюсь.
Я своё мнение высказал, Вы его услышали,
а дальше только Вам решать, что Вам нужно, на чём программировать и чем заниматься.
Serge_Bliznykov вне форума   Ответить с цитированием
Старый 30.08.2016, 16:21   #12
Аватар
Модератор
Заслуженный модератор
 
Аватар для Аватар
 
Регистрация: 17.11.2010
Адрес: Северодонецк.ua
Сообщений: 16,509
Репутация: 5838
По умолчанию

184467440 737095516 153486284 737665671 28239
1.Random(184467440+1)
2.Если меньше 184467440, то в строковом виде + Random(1000000000) + Random(1000000000) + Random(1000000000) + Random(100000)
(естесно с левыми нулями)
Иначе + Random(737095516+1) и -> 2
__________________
Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

Последний раз редактировалось Аватар; 30.08.2016 в 16:26.
Аватар вне форума   Ответить с цитированием
Старый 30.08.2016, 16:55   #13
Serge_Bliznykov
МегаМодератор
СуперМодератор
 
Регистрация: 09.01.2008
Сообщений: 22,382
Репутация: 5033
По умолчанию

через методы .NET предложенный мною выше код на Pascal ABC.NET
можно записать так:

Код:

{$reference System.Core.dll}
var bytes : array of byte;
begin
   var rng := new System.Security.Cryptography.RNGCryptoServiceProvider();
   SetLength(bytes, 10); { генерим случайные  10 байт }
   rng.GetBytes(bytes);

   var p := new BigInteger(bytes);
   WriteLn(p)
end.

Так устроит?
Serge_Bliznykov вне форума   Ответить с цитированием
Ответ



Опции темы

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

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

Быстрый переход

Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
BigInteger в Math.Biginteger; Artorios Общие вопросы по Java, Java SE, Kotlin 1 19.11.2013 02:21
Random (Pascal) spinogryz_ua Помощь студентам 3 23.01.2013 00:13
Random (pascal) spinogryz_ua Помощь студентам 6 09.01.2013 13:50
в Pascal ABC.Net ошибка:"невозможно явно преобразовать тип integer к System.random" ameks94 Паскаль 3 23.12.2012 02:04
pascal random S0ap Помощь студентам 2 10.07.2011 17:49




23:01.


Powered by vBulletin® Version 3.8.8 Beta 2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.

купить трафик


как улучшить посещаемость, а также решения по монетизации сайтов, видео и приложений

RusProfile.ru


Справочник российских юридических лиц и организаций.
Проекты отопления, пеллетные котлы, бойлеры, радиаторы
интернет магазин respective.ru