Случайное число из заданного массива

@Madam_Cruel · Регистрация: 20.05.2014

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

Здравствуйте!
У меня такая задача: есть массивы целых чисел

Delphi

  good: array[-10..10] of integer;
  good_heat: array [35..55] of integer;
  good_back: array [53..56] of integer;
  good_HW: array [53..57] of integer;

Мне надо выводить случайное число из этих массивов

Delphi

  i:= Random(20);
  DBEdit4.Text:= IntToStr(good[i]);
  DBEdit5.Text:= IntToStr(good_heat[i]);
  DBEdit6.Text:= IntToStr(good_back[i]);
  DBEdit7.Text:= IntToStr(good_HW[i]);

То есть, по идее, должно показываться, например, в DBEdit4 любое целое число от 35 до 55. Но данный код не работает! Выводятся постоянно 0, либо шестизначные цифры.
Что я делаю не так?

@Puporev · 04.06.2015, 06:56

Чтобы получить случайный индекс массива good нужно так

Delphi

1	i:=-10+random(21);

Добавлено через 2 минуты
А для массива good_HW

Delphi

1	i:=53+random(5);

Добавлено через 1 минуту
И так для каждого массива, поскольку диапазоны индексов разные.

@Madam_Cruel · 04.06.2015, 07:54 **[ТС]**

На такой код выдает одни 0 =(

Delphi

  i:= -10+random(21);
  i_heat:= 35+random(21);
  i_back:= 53+random(5);
  i_HW:= 53+random(5);
  DBEdit4.Text:= IntToStr(good[i]);
  DBEdit5.Text:= IntToStr(good_heat[i_heat]);
  DBEdit6.Text:= IntToStr(good_back[i_back]);
  DBEdit7.Text:= IntToStr(good_HW[i_HW]);

@Immo · 04.06.2015, 08:35

зачем тебе DBEDIT? он не для этого нужен, еще добавь
randomize;

@Madam_Cruel · 04.06.2015, 08:41 **[ТС]**

Есть Randomize в самом начале процедуры. DBEdit для работы с БД нужен, в том и смысл - случайные числа в окна вставить и в БД закинуть

@Immo · 04.06.2015, 08:57

Покажи где массив заполняешь?

@Madam_Cruel · 04.06.2015, 15:40 **[ТС]**

Delphi

var
  Form1: TForm1;
  step: integer;
  sum_heat, sum_HW: Double;
  tp, Xp, td, ti, imp_heat, D_heat, imp_HW, D_HW: Double;
  good: array[-10..10] of integer;
  good_heat: array [35..55] of integer;
  good_back: array [52..58] of integer;
  good_HW: array [52..58] of integer;
begin
  Randomize;
  i:= -10+random(21);
  i_heat:= 35+random(21);
  i_back:= 53+random(5);
  i_HW:= 53+random(5);
  DBEdit4.Text:= IntToStr(good[i]);
  DBEdit5.Text:= IntToStr(good_heat[i_heat]);
  DBEdit6.Text:= IntToStr(good_back[i_back]);
  DBEdit7.Text:= IntToStr(good_HW[i_HW]);

Вот, и в итоге выводятся одни нули

@Immo · 04.06.2015, 15:42

ЗАПОЛНЯЕШЬ МАССИВ где

@Madam_Cruel · 04.06.2015, 15:44 **[ТС]**

Эм, так я его и не заполняю... Надо, да? =)
Что-то совсем туплю, разве я в var не описала содержимое массивов?

@Puporev · 04.06.2015, 15:46

Сообщение от Madam_Cruel

На такой код выдает одни 0

Значит или не заполнены массивы или заполнены нолями.

Сообщение от Madam_Cruel

разве я в var не описала содержимое массивов?

Так нужно присвоить значения массивов, например

Delphi

1 2	for i:=-10 to 10 do good[i]:=random(100);

@Madam_Cruel · 04.06.2015, 15:50 **[ТС]**

Кажется начинает доходить, спасибо!
А чтобы в массиве были значения от 35 до 55 так надо написать?

Delphi

1 2	for i:=-0 to 20 do good[i]:=random(35,55)

@Immo · 04.06.2015, 15:54

Delphi

1	good[i]:=RandomRange(35, 55)

Добавлено через 1 минуту

Delphi

1 2	uses ....,Math;

@Madam_Cruel · 04.06.2015, 16:01 **[ТС]**

Вот так?

Delphi

var
  good: array[-10..10] of integer;
begin
  Randomize;
  for i:=-0 to 20 do
  good[i]:=random(56)+36;
  i:=-10+random(21);
  DBEdit4.Text:= IntToStr(good[i]);

Что то опять ерунда выходит

@Rasomaha · 04.06.2015, 16:04

Сообщение от Madam_Cruel

Эм, так я его и не заполняю... Надо, да? =)
Что-то совсем туплю, разве я в var не описала содержимое массивов?

Ты в варе тогда создавай статические массивы

Сообщение от Madam_Cruel

Delphi

good: array[-10..10] of integer = (-10,-9,-8,-7,-6,-5,4,-3,-2,-1,0,1,2,3,4,5,6,7,8,9,10);
good_heat: array [35..55] of integer = (35,36,37,38,39,40,41,42,43,44,45,46,47,48,49,50,51,52,53,54,55);
good_back: array [53..56] of integer = (53,54,55,56);
good_HW: array [53..57] of integer = (53,54,55,56,57);

@Immo · 04.06.2015, 16:07

Delphi

var
  good: array[-10..10] of integer;
begin
  Randomize;
  for i:=-10 to 10 do
     good[i]:=RandomRange(35, 55);
  i:=RandomRange(-10, 10);
  DBEdit4.Text:= IntToStr(good[i]);

@Madam_Cruel · 04.06.2015, 19:49 **[ТС]**

Вот, совсем забыла, что есть статические массивы. С ними мой изначальный код работает.
Спасибо за помощь!

@Immo 692 / 509 / 238 Регистрация: 02.10.2012 Сообщений: 1,741
	04.06.2015, 08:35	4
	зачем тебе DBEDIT? он не для этого нужен, еще добавь randomize; 0

@Madam_Cruel 0 / 0 / 0 Регистрация: 20.05.2014 Сообщений: 10
	04.06.2015, 08:41 [ТС]	5
	Есть Randomize в самом начале процедуры. DBEdit для работы с БД нужен, в том и смысл - случайные числа в окна вставить и в БД закинуть 0

@Immo 692 / 509 / 238 Регистрация: 02.10.2012 Сообщений: 1,741
	04.06.2015, 08:57	6
	Покажи где массив заполняешь? 1

@Immo 692 / 509 / 238 Регистрация: 02.10.2012 Сообщений: 1,741
	04.06.2015, 15:42	8
	ЗАПОЛНЯЕШЬ МАССИВ где 1

@Madam_Cruel 0 / 0 / 0 Регистрация: 20.05.2014 Сообщений: 10
	04.06.2015, 15:44 [ТС]	9
	Эм, так я его и не заполняю... Надо, да? =) Что-то совсем туплю, разве я в var не описала содержимое массивов? 0

@Madam_Cruel 0 / 0 / 0 Регистрация: 20.05.2014 Сообщений: 10
	04.06.2015, 19:49 [ТС]	16
	Вот, совсем забыла, что есть статические массивы. С ними мой изначальный код работает. Спасибо за помощь! 0

Случайное число из заданного массива

Решение