сравнение рандомного числа с массивом

[Artempokrowski]

Народ подскажите как сравнить рандомное число и элементы массива. я пишу тест.
Код:
var
...
a:array[0..1000] of integer;
pos:integer;
... // это всё глобальные переменные;

var
...
a:array[0..1000] of integer;
pos:integer;
... // это всё глобальные переменные;

procedure Tform1.uslovie(pos:integer);
var
x:integer;
begin
x:=0;
while x<1000 do
if a[x]=pos then
begin
 pos:=random(trunc(sl.Count/8));//значение меняется
 x:=0;
 showmessage ('');// ввёл для себя
 end
 else x:=x+1;
end;

pos заранее задается.
в массив элементы записываются ещё до этого следующим образом

pos:=random(trunc(sl.Count/8));
nomervoprosa:=nomervoprosa+1;
tform1.uslovie(pos);
a[nomervoprosa]:=pos;

при таком использовании всё равно вопросы повторяются(((( Подскажите как в этом случае сделать так чтобы не повторялись. Не предлагайте менять весь код уже времени нет.

[RUSt88]

сравнить рандомное число и элементы массива

repeat
flag := false;
p = Random(99);
for i := 0 to N do begin
  if mas[i] = p then flag := true;
end;
until ( flag = false );

как то так примерно

[Snejnaya]

Что-то непонятное у тебя творится с заполнением массива. Изначально, наверно nomervoprosa=0?

pos:=random(trunc(sl.Count/8));

ну вот задали какое-то значение pos

nomervoprosa:=nomervoprosa+1;

ну, пускай теперь nomervoprosa=1..

tform1.uslovie(pos);

вызываем функцию, которая анализирует 1000 элементов массива, а массив-то еще не заполнен! Нафига?

a[nomervoprosa]:=pos;

и только тут назначаем значение а[1]...

В этом есть какой-то особый смысл или так "само получилось"?

[Artempokrowski]

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

repeat
flag := false;
p = Random(99);
for i := 0 to N do begin
  if mas[i] = p then flag := true;
end;
until ( flag = false );

как то так примерно

мне надо чтобы число рандомно изменялось в случае если оно совпадает с элементом массива.

[Artempokrowski]

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

Что-то непонятное у тебя творится с заполнением массива. Изначально, наверно nomervoprosa=0?


ну вот задали какое-то значение pos


ну, пускай теперь nomervoprosa=1..

вызываем функцию, которая анализирует 1000 элементов массива, а массив-то еще не заполнен! Нафига?

и только тут назначаем значение а[1]...

В этом есть какой-то особый смысл или так "само получилось"?

Смысл тут в том что массив заполняется в ходе работы теста. Туда записываются вызванные нами номера вопросов. мне нужно чтобы вопросы в тесте выбирались рандомно и не повторялись.

[Snejnaya]

А! Так тебе надо, чтобы массив заполнился случайными НЕповторяющимися числами. Так?

Недавно кто-то из ребят предложил красивое решение - сначала заполнить массив, а потом рандомно "перемешать" его.

http://programmersforum.ru/showthread.php?t=106614
последний пост в теме - почитай, может тебе именно это и надо?

[Artempokrowski]

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

А! Так тебе надо, чтобы массив заполнился случайными НЕповторяющимися числами. Так?

Недавно кто-то из ребят предложил красивое решение - сначала заполнить массив, а потом рандомно "перемешать" его.

http://programmersforum.ru/showthread.php?t=106614
последний пост в теме - почитай, может тебе именно это и надо?

Да мне именно это и надо. Но заполняться он должен в процесее выполнения теста при ответе на вопрос.

[Snejnaya]

ну во-первых, предлагаю тебе в процедуру добавить параметр "номер вопроса", чтобы анализировать не все 0-1000 элементов массива, а только те элементы массива, которые уже заполнены.
Во-вторых, в процедуре нужно писать pcocedure tform1.uslovie(var pos), если ты собрался изменять значение pos в процедуре.

Это навскидку...

[Artempokrowski]

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

ну во-первых, предлагаю тебе в процедуру добавить параметр "номер вопроса", чтобы анализировать не все 0-1000 элементов массива, а только те элементы массива, которые уже заполнены.
Во-вторых, в процедуре нужно писать pcocedure tform1.uslovie(var pos), если ты собрался изменять значение pos в процедуре.

Это навскидку...

Теперь понятно почему он не выбирал новое значение. pos изменялся внутри процедуры. Спасибо учёл.