как сделать цикл шагами

← →
hex_for_delphi (2003-06-26 17:20) [0]

У меня есть цикл :
for i :=18 to 108 do
begin
/////
end;

на мне из него нужно чтобы подставлялось в переменную только каждое шестое значение т.е
18..24..30 и так далее. не подскажете ли как это реализовать?чтобы не вбивать каждое число а может я не за тот конец ухватился ?

← →
Skier © (2003-06-26 17:22) [1]

>hex_for_delphi (26.06.03 17:20)
Используй while или repeat

← →
hex_for_delphi (2003-06-26 17:25) [2]

поконкретний если можно.

← →
hex_for_delphi (2003-06-26 17:35) [3]

мне не нужно чтобы вообще что то подставлялось кроме чисел +6

← →
Германн © (2003-06-26 17:36) [4]

for i:=0 to 15 do N:=i*6+18;

← →
VMcL © (2003-06-26 18:05) [5]

>hex_for_delphi (26.06.03 17:20)

for J := 0 to 15 do begin I := J * 6 + 18; // ... end;

← →
Poirot © (2003-06-26 18:48) [6]

Найдите 10 отличий....

← →
Anatoly Podgoretsky © (2003-06-26 20:44) [7]

if I mod 6 = 0 then
begin
...
end

← →
VMcL © (2003-06-26 20:52) [8]

>Poirot © (26.06.03 18:48)
>Найдите 10 отличий....

Когда я набирал ответ, я ещё не видел Германн © (26.06.03 17:36)

← →
Спрашивающий_ (2003-06-27 01:31) [9]

procedure TForm1.Button2Click(Sender: TObject);
var
I,J:Integer;
begin
J:=18;
For I:=18 To 108 Do
begin
Text:=Text+IntToStr(J);//Тест
Inc(J,6);
end;
end;

← →
Германн © (2003-06-27 02:43) [10]

Спрашивающий_ (27.06.03 01:31)
А уверен, что ответ соответствует вопросу?

← →
Спрашивающий_ (2003-06-27 06:00) [11]

>Германн © (27.06.03 02:43)
О чем речь, конкретизируй.

>Спрашивающий_ (27.06.03 06:00)
>>Германн © (27.06.03 02:43)
>О чем речь, конкретизируй.

108 - 18 = 90

И получается, что 90 раз будет Inc(J,6), а ведь тогда J будет больше, чем 108.

← →
Спрашивающий_ (2003-06-27 06:55) [13]

>Германн © (27.06.03 02:43)
>Kair © (27.06.03 06:44)
ERROR признаю, упустил!
procedure TForm1.Button5Click(Sender: TObject);
var
I,J:Integer;
begin
Memo1.Text:="";
J:=18;
For I:=18 To 108 Do
begin
Memo1.Lines.Add(IntToStr(J));//Тест
If J<>108 Then Inc(J,6) Else Break;
end;
end;

← →
Rol (2003-06-27 07:00) [14]

>Спрашивающий
О том, что желаемое автором мн-во является подмн-ом набора полученного Вашим методом. :)

вот так вроде

i:=18;
while i<=108 do
begin
.......
inc(i,6);
end;

>Anatoly Podgoretsky
Тебя игнорируют :)

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