Бесконечный цикл Until Random

[anaschu]

Тут меня всё выходит на бесконечный цикл. переменная Z постоянно равна нулю, несмотря на то, что я использую рандом. В чём дело?

function TModel.ChoiceForMarriage1_1_1_1_0(x,y:integer):integer;
var
qpeople,i,z:integer;
begin
  z:=-2;
  //Randomize();
  qpeople:=length(FField.FArea[X, Y].Ffamily.APeople)-1;
  repeat
  begin
    Randomize();
    z:=Random(qpeople)    ;
    if not (z-1<=qpeople) and (FField.FArea[X, Y].Ffamily.APeople[z].sex) then
    begin
     Result:=z;
     exit;
    end
    else z:=-2;
  end;
  Until z>-1;


end;

[Аватар]

not (z-1<=qpeople) <=> z-1>qpeople и это всегда False => if всегда на else

[Serge_Bliznykov]

Randomize() нужно вызывать строго один раз (однократно). Желательно при старте приложения или формы.

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

qpeople:=length(FField.FArea[X, Y].Ffamily.APeople)-1;

чему равно qpeople ?
если меньше двух, то ничего, кроме нуля, вы в рандом и не получите

Сообщение от Аватар

not (z-1<=qpeople) <=> z-1>qpeople и это всегда False => if всегда на else

упс. я опоздал.
уже дали объяснение!

[Serge_Bliznykov]

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

if not (z-1<=qpeople) and (FField.FArea[X, Y].Ffamily.APeople[z].sex) then

и для чего вообще нужна ChoiceForMarriage1_1_1_1_0 ?
можете описать её назначение/описание алгоритма?

[anaschu]

Сообщение от Аватар

not (z-1<=qpeople)

если NOT убрать, все равно бесконечный цикл. проблема в том, что z всё время приарвнивается к нулю во время работы рандома

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

и для чего вообще нужна ChoiceForMarriage1_1_1_1_0

Есть массив Apeople, состоящий из man. Man бывает мужчина и женщина (Ох уж этот сексистский английский). То есть sex=true мужчина, sex=false- женщина (привет феминисткам!).
Когда приходит время размножаться, губки накрашены, чулки одеты, бабцу с индексом i внутри Apeople нужно найти себе мужа.
Эта процедура ей таки находит этого мужа через рандомайз (где то в старых версиях проги выбиралось по доброте и баборабству ( для высокоресурсных услвоий) и по агрессивности и мужской кооперации (для низкоресурсных).
Тогда бабца с индексом i берет себе в мужья кунца с индексом, который ему даст эта функция ChoiceForMarriage1_1_1_1_0

Всё это нужно для моделирования эволюционного перехода от ардипитеков к питеккантропам, бонобо и человеку

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

меньше двух

поставил z=-1, все равно та же петрушка вроде бы...а блин.
Эмбракадеро на обоих компах слетела- регистрация нафиг убилась. У меня на компе стоит клон сстемы с другого точно такого же компа. Я тут не могу быть админом, что ли...В общем, почему то файл hosts не правится. Хотя на другом компе, Где я просто винду ставил, та же ерунда.

git@gitlab.com:anaschu/soc_mod_woman_man.git

туточа мой репозиторий
Правда, у меня с мерджем проблемы. актуальные изменения внутри ветки "возврат для переделки". Почему то файл у меня сюда не прикрепляется уже недели две на форум.

Чтоб добавить что-то к своему сообщению, используйте кнопку "Правка", а не пишите несколько сообщений подряд.

[Serge_Bliznykov]

  qpeople:=length(FField.FArea[X, Y].Ffamily.APeople)-1;

во-первых, уберите -1

а во-вторых, чему равен размен массива APeople ?
Вы же в отладчике смотрели?
и что должна вернуть функция, если в массиве нет мужчин?
и где у Вас проверка на то, что в массиве вообще нет мужчин?
А один и тот же мужчина может выбираться для разных женщин?

я уже молчу о том, что массив почему-то является свойством области с координатами X,Y o_O

[anaschu]

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

размен массива APeople

от двух

[anaschu]

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

и что должна вернуть функция, если в массиве нет мужчин?

Тогда процедура, которая вызывает эту функцию, не сработает. Я медленно работаю и рассеянный. Поэтапно буду решать траблики.
с этим потом буду разбираться. Пока обсуждаемая функция не может ничего вернуть, даже если в массиве есть мужчины. Она циклиться

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

А один и тот же мужчина может выбираться для разных женщин?

может

К сожалению, на пару часов я выбываю

[evg_m]

  qpeople:=length(FField.FArea[X, Y].Ffamily.APeople)-1; //уже говорили
  repeat
  begin
    Randomize(); // аналогично
    z:=Random(qpeople)    ;
    if not (z-1<=qpeople) and (FField.FArea[X, Y].Ffamily.APeople[z].sex) // по "определению" Random 0<z<qpeople и проверять это НЕЗАЧЕМ.
// А если там нет НИ ОДНОГО нужного пола??? мы так и будем искать то чего там нет?! и делать это бесконечно...
then
    begin
     Result:=z;
     exit;
    end
    else z:=-2;
  end;
  Until z>-1;

existsSex:=false;
for j:=0 to length(FFiled.Farea[X,Y].Ffamily.Apeople)-1 do
  existsSex:=existsSex or (FFiled.Farea[X,Y].Ffamily.Apeople[j].sex);

if existsSex then begin// будем искать
...
end
else result:=-1;???
repeat
 z:=Random(...);
 if not existssex then z:=qpeople //-2 // <>-1 !!!
 else if not (....[z].sex) then z:=-1
else result:=z ;
until z<>-1;
result:=z;

[anaschu]

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

А один и тот же мужчина может выбираться для разных женщин?

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

по "определению" Random 0<z

у меня z постоянно равен нулю и не меняется