Форум программистов, компьютерный форум, киберфорум
Lazarus
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.63/8: Рейтинг темы: голосов - 8, средняя оценка - 4.63
0 / 0 / 1
Регистрация: 10.02.2013
Сообщений: 63
1

Генерация случайных целых чисел в заданном интервале

03.04.2016, 12:54. Просмотров 1532. Ответов 2
Метки нет (Все метки)

Здравствуйте! Правильно ли я прописал код случайных чисел от -1 до 2 ??? Спасибо.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
procedure TForm1.FormCreate(Sender: TObject);
var Col, Row, N, M: integer;
begin
  randomize;
  N:=6;
  M:=6;
  StringGrid1.ColCount:=N;
  StringGrid1.RowCount:=M;
  for Col:=0 to StringGrid1.ColCount-1 do
  for Row:=0 to StringGrid1.RowCount-1 do
  StringGrid1.Cells[Col,Row]:=FloatToStr(random*3-1);
  StringGrid1.Width := StringGrid1.DefaultColWidth * StringGrid1.ColCount;
  StringGrid1.Height := StringGrid1.DefaultRowHeight * StringGrid1.RowCount;
end;
 
end.
Добавлено через 2 часа 28 минут
Delphi
1
StringGrid1.Cells[Col,Row]:=IntToStr(random(4)-1)
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
03.04.2016, 12:54
Ответы с готовыми решениями:

Вычисление суммы квадратов простых чисел, лежащих в заданном интервале (процедуры и функции)
Требуется помощь в написании программы по поставленной задаче. Суть такова: "Напишите программу...

Найти минимум из n целых случайных чисел
Помагите пожалуйста решить задачу через Lazarus ( если можно пожалуйста то срисунком ). Найти...

Вычислить сумму целых случайных чисел, распределенных в диапазоне от 5 до 10
Помагите пожалуйста решить задачку в Lazarus и если можно нарисовать все это в Form1. Вычислить...

Генерация массива случайных чисел равномерно распределенных в заданном интервале и упорядочение массива
Помогите создать ПО (на любом языке программирования) позволяющее, генерирующее массив заданной...

2
Модератор
60137 / 45291 / 31256
Регистрация: 18.05.2008
Сообщений: 108,774
03.04.2016, 13:42 2
Если нужны только целые числа, то
Pascal
1
StringGrid1.Cells[Col,Row]:=IntToStr(-1+random(4));
Если вещественные, то
Pascal
1
StringGrid1.Cells[Col,Row]:=format('%.2f',[-1+3*random]);
0
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
29256 / 19337 / 7585
Регистрация: 22.10.2011
Сообщений: 33,712
Записей в блоге: 6
03.04.2016, 19:09 3
Для того, чтобы сгенерировать случайные целые значения в заданном интервале, придумана функция RandomRange :
Pascal
1
StringGrid1.Cells[Col,Row] := IntToStr(RandomRange(-1, 3));
, или (если диапазон маленький, как здесь: всего 4 возможных значения), то RandomFrom
Pascal
1
StringGrid1.Cells[Col,Row] := IntToStr(RandomFrom([Integer(-1), 0, 1, 2]));
, или даже так, когда нужно получить значение в виде строки:
Pascal
1
StringGrid1.Cells[Col,Row] := RandomFrom(['-1', '0', '1', '2']);
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.04.2016, 19:09

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь.

Создать список случайных чисел в заданном интервале не содержащийся в заданном списке
Задан упорядоченный по возрастанию целочисленный массив. Сформировать второй массив из случайных...

Генерация случайных чисел в интервале от 1 до 50
Написать программу которая генерирует 10 случайных чисел в интервале от 1 до 50. Вывести их на...

Генерация случайных чисел в определенном интервале
подскажите пожалуйста как можно сгенерировать случайные числа, в C++ srand(time(0)), rand()%10....

Генерация дробных случайных чисел на определенным интервале
Не могу придумать, как сделать так, чтоб пользователь вводил интервал и происходила генерация...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2020, vBulletin Solutions, Inc.