Скачать: CL | DM;

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

← →
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)
О чем речь, конкретизируй.

---

← →
Kair ©   (2003-06-27 06:44) [12]

>Спрашивающий_ (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]

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

---

← →
Rawman ©   (2003-06-27 07:26) [15]

вот так вроде

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

---

← →
NAlexey ©   (2003-06-27 10:16) [16]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.48 MB
Время: 0.012 c