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

[phomm]

Человек_Борща, цикл for вычисляет свой диапазон работы только 1 раз.

Ну а по теме - либо дополнительная переменная, в которой все вычисления и цикл for, либо сразу цикл while или repeat тогда можно организовать сложную логику, где в case например в зависимости от разных факторов счётчик цикла будет изменяться на разную величину, и выход из цикла будет опираться на эти манипуляции.

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

Ну и маленькая поправка: вместо round(a/b) используйте a div b

[hon]

Вариант 1.

var i:integer
begin
for i:=1 to 100 do
    if (i mod 2 {шаг})=0 then
       //код цикла
end;

Или если что-то не нравиться еще два варианта:

Вариант 2.

var i:integer;
begin
   i:=0;
   while i<>100 do
      begin
      //код цикла
      i:=i+2;
   end;
end;

Вариант 3.

var i:integer;
begin
   i:=0;
   repeat
      begin
      //код цикла
      i:=i+2;
   until i=100;
   end;
end;

Неужели сложно?

[doband]

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

Всем привет!
Вот как мне пустить цикл

for counter := 0 to 100 do
begin
   { Тыры пыры }
end;

не с шагом 1 (0, 1, 2, 3, 4, 5, ...., 100), а с шагом, скажем, 2 (0, 2, 4, 6, ..., 100) или с другим каким не будь. Уж очень не хочиться юзать if...then в цикле. Или while...do предётся взять. ж(

Если актуально, то вроде как можно вот так. (шаг 5, 10, 15 и т.д.)

for counter = 0; counter < 100; counter = counter + 5;
begin
{ Тыры пыры }
end;

[Аватар]

doband

Малого того, что некромания, так и пример на гибриде каком-то

[FaTaL]

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

Если актуально, то вроде как можно вот так. (шаг 5, 10, 15 и т.д.)

for counter = 0; counter < 100; counter = counter + 5;
begin
{ Тыры пыры }
end;

Это на каком ЯП?

[Serge_Bliznykov]

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

Малого того, что некромания

, так ещё и наркомания!