рандомное заполнение массивов.

[Repac123456]

в проге, текст которой ниже, при её выполнении выполняется не совсем то, что я хотел: вместо заполнения массива увеличивается лишь число колонок.

var
  Form1: TForm1;
  x: array[1..10] of real;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
n,i: integer;
begin
n:=0;
i:=1;
for i:=1 to 10 do
Randomize;
x[i]:= random(1000);
n:=n+1;
StringGrid1.ColCount:=n;
StringGrid1.Cells[i,0]:=FloatToStr(x[i]);
end;
end.

как переправить правильно код?

[Prisioner]

StringGrid1.Cells[i-1,0]:=FloatToStr(x[i]);

[Repac123456]

не непомогает

[Prisioner]

Нашёл ещё ошибку

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
begin
for i:=1 to 10 do begin
Randomize;
x[i]:= random(1000);
StringGrid1.ColCount:=i;
StringGrid1.Cells[i-1,0]:=FloatToStr(x[i]);
end;
end;

так же в строке i:=1; нет смысла.
так же в переменной n в рамках данного кода нет смысла.

[Serge_Bliznykov]

ну, как всё запутано.. имхо, всё неправильно....
// Prisioner - к Вам это не относится!! только randomize за цикл вынесите.
// да и i-1 не факт, что правильно. непонятно, куда TC хочет записать числа...
// хотя, может быть, Вы и правы в этом...


Repac123456
или вот, попробуйте такой код

var
  n, i: integer;
begin
  Randomize;
  n := 10;
  StringGrid1.ColCount := n;
  for i := 1 to n do begin
     x[i] := random(1000);
     StringGrid1.Cells[i-1, 0] := FloatToStr(x[i]);
  end;
end;

[Prisioner]

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

// да и i-1 не факт, что правильно. непонятно, куда TC хочет записать числа...
// хотя, может быть, Вы и правы в этом...

Даже в изначальном варианте кода количество столбиков совпадало с переменной i. Так как они индексируются с нуля до ColCount-1, то с довольно большой долей вероятности можно предположить, что ТС просто это не учёл и пытался писать в несуществующий столбец.

Про randomize; да, я что-то не подумал .


P.S. Оффтоп, почему в моем сообщении в тэгах CODE код не подсвечивается никак? нет выделений ключевых слов и прочего, как у Вас?

[DeKot]

Приведу пример функции рандомного заполнения массива неповторяющимися числами.

 ....
public
    { Public declarations }
  end;

TMass = array[0..14] of byte;

var
  Form1: TForm1;
  mass,mass_rez: TMass;

implementation

{$R *.dfm}

function RandomToMass : TMass;
var i: byte;
    N: byte; // случайное число
    cnt: byte; //счетчик количества случайных чисел
    flag: boolean; // флаг, что данное число уже было
begin
  cnt:= 0;
  flag:= false;
  while cnt < 15 do
  begin
    N:= Random(15) + 1; //  Выбираем рандомно число от 0 до 14
    for i:= 0 to 14 do
    begin
      if N = mass[i] then begin flag:= true; Break; end; // проверяем есть ли такое число в массиве
                                        // и если есть устанавливаем флаг и прерываем цикл проверки
    end;
    if flag = false then  // признак, что такого числа в массиве еще нет
    begin
      mass[cnt]:= N; //  заносим число в массив
      Inc(cnt);  // отмечаем в счетчике кол-во занесенных чисел в массив
    end;
    flag:= false;  // сбрасываем флаг для последующей проверки
    // отсюда возвращаемся на очередную иттерацию цикла while
  end;
  Result:= mass;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   Randomize;
end;


procedure TForm1.Button1Click(Sender: TObject);
var i: byte;
begin
  mass_rez:= RandomToMass; //  использование функции
  // выводим значения массива на экран
  for i:= 0 to 14 do
  begin
    Form1.Canvas.TextOut(50 + 20*i ,180,IntToStr(mass_rez[i]));
  end;
end;

end.

[Serge_Bliznykov]

DeKot, код, конечно, хороший.
Только где Вы увидели требование "заполнить массив неповторяющимися числами" ?!
Кроме того, у TC не работает вывод массива в StringGrid, чем Ваш код ему поможет?...

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

Так как они индексируются с нуля до ColCount-1, то с довольно большой долей вероятности можно предположить, что ТС просто это не учёл и пытался писать в несуществующий столбец.

угу. согласен с Вами. никаких или. Нужно обязательно отнимать единичку от i. сейчас исправлю свой пример кода.
Кстати, меня смутило идиотское поведение StringGrid... Вот уж точно его писали "альтернативно одарённые" программисты.
вот этот код выполняется абсолютно без проблем:

   StringGrid1.ColCount := 3;
 StringGrid1.Cells[99,1] := 'xxxx';

ну, разумеется, 'xxxx' не отображается, но и ошибок никаких нет! Всё отлично. Программируйте дальше!

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

Оффтоп, почему в моем сообщении в тэгах CODE код не подсвечивается никак?

я сам удивлён.. Попытаюсь разобраться и отпишусь. Большая просьба - Вы своё сообщение #4 не редактируйте пока!
С помощью администрации форума разобрались.
Форматирование не работало, потому что Вы ручками выделили (подчеркнули слова begin и end).
Это, по всей видимости, и ввело серверный плагин, который оформляет код, в заблуждение!

[Repac123456]

альтернативно одарённые" программисты.
это исчё мягко сказана, как бы из универа из-за неё не вылететь нафиг!!!