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

как реализовать цикл for..next с шагом отличным от 1?   Найти похожие ветки 

← →
Инга   (2003-06-04 02:23) [0]

есть какие-то мысли по поводу вложенных циклов... но как?...

---

← →
Ihor Osov'yak ©   (2003-06-04 02:30) [1]

var i,ni,n:integer;
...


n:= требуемый_шаг;
for i:= .. to .. do begin

ni:=i*n;
// далее работаем с ni

end;


зы - но лучше было использовать while do или repeat until с соотв. инкриментом переменной цыкла..

---

← →
evvcom ©   (2003-06-04 02:35) [2]

Это не Бейсик. Здесь Next нет!
А зачем такой цикл? Если честно, на паскале мне ни разу не потребовался шаг, отличный от 1. Ну уж если очень все же надо, то можно так:
// шаг 2, например:
for i := 0 to 10 do
Elem[i * 2] := <что-то>;

Только скорее всего, можно обойтись и без этого. Возможно, что удобнее будет использовать цикл while.

---

← →
Инга   (2003-06-04 02:47) [3]

нужно выбрать каждые 7 значений из массива по порядку и запихать их в запрос одной строкой

---

← →
OlDemon ©   (2003-06-04 06:22) [4]

с циклом for:
for i:=1 to Конец do
if i mod 7 = 0 then
делаем что нам нужно;

или 2 вариант

for i:=1 to Конец div 7
begin
a:= i*7
делаем что нам нужно;
end;

с циклом while
i = 7
while i<Конец do
begin
делаем что нам нужно;
inc(i,7);
end

---

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

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



Память: 0.45 MB
Время: 0.013 c