[Electronic_Arts]

Ребята всем добрый вечер... помогите разобраться - запутался с циклом..

Код:

j:=0;
z:=50;
For i:=0 to list.count-1 do 
begin
..
..
..
..// идет цикл может быть без конечно

j:=j+100; // это значение надо менять в течении 5 шагов
end;

как внутри цикла сделать так что бы
j:=j+100;
менялся в течении 5 шагов - потом опять j присвоить 0
j:=0;

[poli-smen]

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

Ребята всем добрый вечер... помогите разобраться - запутался с циклом..

Код:

j:=0;
z:=50;
For i:=0 to list.count-1 do 
begin
..
..
..
..// идет цикл может быть без конечно

j:=j+100; // это значение надо менять в течении 5 шагов
end;

как внутри цикла сделать так что бы
j:=j+100;
менялся в течении 5 шагов - потом опять j присвоить 0
j:=0;

Код:

if j = 500 then j := 0;

[M.A.D.M.A.N.]

Код:

if j >= 500 then
  j := 0;

не?

[Electronic_Arts]

...ооо ссори - торможу - спасибо...