шаг цикла

← →
бедный студент © (2005-11-15 17:50) [0]

вопрос глупый, но как указать шаг цикла

← →
MBo © (2005-11-15 17:56) [1]

используй цикл While или в For заведи доп. переменную

← →
бедный студент © (2005-11-15 18:07) [2]

а можно с примером: мне нужно создать массив путем смешения сужествующих двух:
for i:=1 to 20 do begin c[i]:=a[i]; c[i+1]:=b[i]; end;
так вот нужно указать шаг цикла равный 2....
Или есть другое решение? если да, то подскажите пожалуйста..

← →
MBo © (2005-11-15 18:14) [3]

c[2*i-1]:=a[i];
c[2*i]:=b[i];

← →
бедный студент © (2005-11-15 18:18) [4]

БОЛЬШОЕ спасибо!

← →
for (2005-11-15 18:42) [5]

procedure TForm1.FormCreate(Sender: TObject);
var i,step:word;
begin
step:=5;
for i:= 0 to 100 do
begin
if i mod step <>0 then continue;
ListBox1.Items.add(inttostr(i));
end;
end;

> Anatoly Podgoretsky © (15.11.05 18:53) [6]
> бедный студент © (15.11.05 18:18) [4]
> используй лучше while без фокусов с индексами.

Анатолий, IMHO, for with 2*i vs while with i -
вопрос вкусовых (цветовых) пристрастий.

--
Regards, LVT.

шаг цикла Найти похожие ветки