Автор Иван задал вопрос в разделе Другие языки и технологии
Программа создания случайных чисел и получил лучший ответ
Ответ от Александр Иловайский[активный]
сории.. . ты модуль переменуй!! ! c randomiz в любое другоее имя и x сделай real, или double (любой float) program reee; {$APPTYPE CONSOLE} uses SysUtils; Var i,kolvo:integer; x:real; begin Assign (output, \'output.txt\'); Rewrite (output) ; read(kolvo); for i := 1 to kolvo do begin x:=-1000+random(1999); randomize; x:=0.000001*x*random(100); write(x,\' \'); end; end. неет, вот мой вывод: -9.30000000000000E-0002 -5.73240000000000E-0002 8.82000000000000E-0003 2.92560000000000E-0002 -1.95300000000000E-0002 кстати вынеси randomize из тела цикла, смысла не имеет мыло проверь...
вообще-то randomiz достаточно прописать перед началом цикла. всм, какая ошибка? номер, сообщ, я так понял под дос??
строка randomize; это лишь инициализация генератора случайных чисел random(); функция.. . если у вас ошибка, проверьте ест ли сама библиотека рендомайза в вашей установленной версии, если да то верно ли она подключена
у меня нормально компилируется. Случайные числа могут входить только в поле ЦЕЛЫХ чисел. Вещественные числа, генератор не генерирует.