как реализовать цикл 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 значений из массива по порядку и запихать их в запрос одной строкой

с циклом 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

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