как запустить цикл for с шагом отличным от единицы

[dimonbest]

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

Работает, но что собственно делает оператор "shl"

Сдвигает переменную влево на 1 бит, что эквивалентно умножению на 2.

[_Dmitry]

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

Квэнди, так ведь _Dmitry счётчик и не трогает...

Сообщение от Квэнди

Да, согласен, глаза спали видимо

Delphi и не даст изменить счётчик внутри цикла, вылетает ошибка еще на этапе компиляции: Assignment to FOR-Loop variable 'i'.
Проверено в Delphi 7.

[Altera]

Delphi и не даст изменить счётчик внутри цикла, вылетает ошибка еще на этапе компиляции: Assignment to FOR-Loop variable 'i'.
Проверено в Delphi 7.

И в 2006 тоже так!

[IgoRek125]

я вот тоже что-то понять не могу, что в вашей формуле такое i ?

[IgoRek125]

все просто:

PHP код:

t:=2;
for counter := 0 to round(100/t) do
begin
   оператор где присутствует счетчик counter умножаем на t
   
end; 


, где переменная t и есть твой шаг

[Пепел Феникса]

все просто

и зачем?
цикл while уже не написать?

[IgoRek125]

Согласен, с while гораздо проще)

[Человек_Борща]

мой вариант в любом цикле делать шаг и после него в след. интерации делать действие.

const
  cCycleStep=2; //размер шага
  cStepDef=1;   // 
var
 iStep:ShortInt;
 iCounter:Integer;
begin
 iStep:=cStepDef; 
   for iCounter:=0 to OVER9000 do 
   begin
    if iStep > cCycleStep then
    begin
      {DO SOMETHING!! DO!!}
    iStep:=cStepDef; 
    end;
    iStep:=iStep+1; //Так проще. 
  end;
end;

{Если важен шаг в 2 раза, то можно и булевыем типом обойтись.
Но эо уже сами напишите}

[IgoRek125]

я потестил немного и пришел к выводу, что машина вдвое быстрей выполняет поставленную перед ней задачу вот в таком варианте

PHP код:

t:=2; 
for counter := 0 to round(100/t) do 
begin 
   оператор где присутствует счетчик counter умножаем на t 
    
end; 


, где переменная t и есть наш шаг
нежели с оператором whil

[Человек_Борща]

Простые операции сравнения выполняются быстрее, чем деление и округление дробного числа, что вы делаете в каждом витке.