[Kaktuz]

Код:

var
  Form1: TForm1;
  R: Integer;
  New : array [1..15] of Integer;

implementation

{$R *.dfm}

procedure TForm1.RList;
begin
Randomize;
r := Random(15);
if New[r] = 0 then
  RList // ошибка
else
  begin
  ListBox1.Items.Add(IntToStr(r));
  New[r] := 0;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var i: integer;
begin
for i:=1 to 15 do
New[i]:=1;

Edit1.Clear;
for i:=1 to 15 do
RList;
end;

Код вялый и выдает ошибку, но после нажатия "ОК" в целом получается то что нужно. Вообще задача состоит в том что есть несколько переменных в которых записаны данные и необходимо что бы эти данные считывались, но в случайном порядке и не повторялись. Возможно кто-то может посоветовать что-то более стабильное.

[angvelem]

Сразу что бросилось в глаза:

Код:

  New : array [1..15] of Integer;
...
r := Random(15);
if New[r] = 0 then
...

откровенная лажа, дальше и смотреть не стал.

[m1sclick]

Каково применение сего чуда?

Будь добр, весь код выложи. Или если это весь код, то я могу предложить более простой способ присвоения 15-ти элементам массива значения 0.

Ну а если быть серьезным то дописывай:
В var

Код:

fuck: integer;

а так-же в RList:

Код:

if fuck = 14 then exit;

и

Код:

if New[r] = 0 then
  begin
    inc(fuck);
...

Все что я смог сообразить на ночь глядя.
Да и вобще, какого лешего нужно было писать целую процедуру да и еще потом её саму с себя вызывать для того что бы выполнить одну строчку кода: r := Random(14); ах, да и поправь массивы - это же не серьезно совсем.

[Kaktuz]

Сори. Забыл пояснить одну деталь.

Код:

if New[r] = 0 then

Используется что бы вычесть из random "0" который не нужен и не будет использоваться, таким образом оставив только 1-15.
Если смотреть на код поочередно то можно заметить что в начале было записано в 15 переменных 1

Код:

for i:=1 to 15 do
New[i]:=1;

Последующим образом должна была происходить подобная схема.
Если генерированное число (тоисть номер переменной) равняется 1 значит такого числа еще не было и мы его добавим в список и запишем в переменную 0 что это чило уже используется. Ну и так далее.
Друго-го я как-то не смог придумать...

[angvelem]

Тогда так:

Код:

r := Random(15) + 1;

и 0 не будет.

[m1sclick]

Я вобще-то понял это все, и сути это не меняет совсем. У тебя 15 элементов заполняются нолями и ты тупо продолжаешь открывать процедуры RList пока не заполниш ими всю память. Делай как говорил я или придумывай другой способ как контролировать количество открытых RList.
Во, единственное что я забыл так это обнулять переменную fuck если New[r] <> 0, то есть:

else
begin
ListBox1.Items.Add(IntToStr(r));
New[r] := 0;
fuck:=0;
end;

Извиняюсь за такой прокол, не думает уже головушка.

И я до сих пор не понял как строка:

if New[r] = 0 then

помогает

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

вычесть из random "0" который не нужен и не будет использоваться, таким образом оставив только 1-15.

Как вариант можно вызывать random на 15 и приплюсовывать 1.

[Kaktuz]

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

Тогда так:

Код:

r := Random(15) + 1;

и 0 не будет.

Добавил в свой код только данное действиие, тоесть + 1 и все стало нормально

[m1sclick]

Уже наверно не актуально но,вот так наверно будет красивее:

Код:

procedure RList;
begin
Randomize;
repeat
  r := Random(15)+1;
  if Form1.ListBox1.Items.Count = 15 then exit;
until New[r] <> 0 ;
Form1.ListBox1.Items.Add(IntToStr(r));
New[r] := 0;
end;

[Kaktuz]

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

Уже наверно не актуально но,вот так наверно будет красивее:

Код:

procedure RList;
begin
Randomize;
repeat
  r := Random(15)+1;
  if Form1.ListBox1.Items.Count = 15 then exit;
until New[r] <> 0 ;
Form1.ListBox1.Items.Add(IntToStr(r));
New[r] := 0;
end;

Почему-то у меня программа зависла с 100% загрузкой процессора.
Вот еще так подкорректировал.

Код:

procedure TForm1.Button2Click(Sender: TObject);
var i: integer;
begin
ListBox1.Clear;
for i:=1 to 15 do
  New[i]:=0;
for i:=1 to 15 do
  ABC;
end;

procedure TForm1.ABC;
var r: integer;
begin
Randomize;
r := random(15)+1;
If New[r] = 0 then
  begin
  New[r] := r;
  ListBox1.Items.Add(IntToStr(r));
  end
else
  ABC;
end;

Что конечно ни как не могу понять суть строки r := random(15)+1; если же нам генерируют число 0 мы добавляем 1 и получаем 1. Это ясно. Ну, а вот если генерируем число 15 и добавляется 1 должно получится 16 но оно как-то неполучается

[angvelem]

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

Что конечно ни как не могу понять суть строки r := random(15)+1; если же нам генерируют число 0 мы добавляем 1 и получаем 1. Это ясно. Ну, а вот если генерируем число 15 и добавляется 1 должно получится 16 но оно как-то неполучается

Random генерит от нуля до числа-1, получится не 16, а 15.

[Pyro]

PHP код:

type Tmyarray = array[1..15] of integer;
procedure shuffle(var a: Tmyarray);
  procedure swap(x, y: integer);
  var k: integer;
  begin
    k := a[x]; a[x] := a[y]; a[y] := k;
  end;
var i: integer;
begin
  for i := low(a) to high(a) do
    swap(i, low(a) + random(high(a)));
end; 


[Страдалецъ]

Уже давно существует простой и элегантный способ перемешивания. Создаете массив. Заполняете его значениями по порядку. Затем обмениваете в случайном порядке индексы этого массива. Чем длиннее цикл обмена, тем выше качество перемешивания. Собственно Pyro и показал такой вариант.

[Kaktuz]

Я что-то не представляю как его использовать...

[Kaktuz]

Ругается на меня. Что не так?
Пишет что Integer и String несовместимые типы.
Глобальная переменная "n: integer;" остальные "String;".

Код:

procedure TForm1.Refresh;
var r, a: integer;
begin
Randomize;
r := random(16)+1;
if New[r] <> '0' then
  begin
  But[n]:=New[r];
  a:=But[n];
  Box[a]:='0';

[angvelem]

Как определён массив But?