Пронумеровать те позиции для которых значение ДА начиная с указанной (Del) позиции

Posted by Chas under Delphi

Есть шесть переменных содержащих в себе только одно значение из двух либо ДА либо НЕТ. Назовем их var1,var2,var3,var4,var5,var6. Так же есть еще переменная в первой находиться числа от 1 до 6 назовем её ‘Del’.

Если сразу в 2 переменных будет значение нет, то как узнать последовательность присваивания значений?
А так же если 3 переменые = нет, 4 переменые = нет и 5 переменые = нет

evg_m
Описание алгоритма решения
счетчик =1
начинаем присвоения с указанной в Del
и пропускаем те переменные для которых значение =нет.
Увеличение счетчика только при присвоении

Набросок решения
вместо 6 переменных массив

num:=1; // счетчик

for j:=0+Del to 5+Del do begin  // начинаем с индекса del

  if var[j mod 6] then begin // закольцование массива

       val[j mod 6]:=num;

       num:=num+1; // при удаче увеличиваем счетчик

  end;

если критично 6 переменных, не массив

case j mod 6 of

0: if var1 then begin var1:=num; num:=num+1; end;

1: if var2 ....

...

5: if var6 ....

end;

тема на форуме

Похожие статьи

• Как передать переменную js в этом файле в переменную php в этом же файле
• Общая память для двух переменных
• Передача значения переменной из одной формы в другую
• Процедура, как переменная
• Получить значение переменной из одной формы в другой
• Как получить определенный символ из переменной зная его номер в последовательности символов?
• Как создать переменную и использовать ее из буфера обмена
• Как передать переменную из get запроса в javascript?