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

@sergios89 · Регистрация: 10.02.2013

Студворк — интернет-сервис помощи студентам

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

Delphi

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)

@Puporev · 03.04.2016, 13:42

Если нужны только целые числа, то

Pascal

1	StringGrid1.Cells[Col,Row]:=IntToStr(-1+random(4));

Если вещественные, то

Pascal

1	StringGrid1.Cells[Col,Row]:=format('%.2f',[-1+3*random]);

@volvo · 03.04.2016, 19:09

Для того, чтобы сгенерировать случайные целые значения в заданном интервале, придумана функция 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']);

Опции темы