Работа цикла for

[StudeHt]

Доброго времени суток уважаемые эксперты! Есть следующий код:

{-----------------------------------------------}
for i := 2 to Count do
    begin
      for j := i to i + k - 1 do
        begin
          Proizv_x_i := Proizv_x_i + Pixels_y[j] * j;
          Sum_t := Sum_t + Pixels_x[j];
          Sum_y_t := Sum_y_t + Pixels_y[j];
          Sum_t_2 := Sum_t_2 + Pixels_x[j] * j;
        end;
{-----------------------------------------------}

По моим мыслям цикл

for j := i to i + k - 1 do

должен запускаться следующим образом, например, для i=6 он должен работать соответственно в пределах от 6 до 10 (k=5) Но он работает порядка 25 раз, т.е. перебирает все значения которые может принимать i в данном цикле. Подскажите почему? И как можно исправит?

[Vladilen]

Все правильно у тебя

Начинается первый цикл от 2 до Count
Внутри него второй цикл от i до i + k - 1

Так вот у тебя второй цикл повторится столько раз сколько у тебя Count-1

Тоесть у тебя первый цикл от 2 до 4

Так вот у тебя получится так:
Начинается цикл 1
Начинается цикл 2
Заканчивается цикл 2
Начинается цикл 2
Заканчивается цикл 2
Начинается цикл 2
Заканчивается цикл 2
Заканчивается цикл 1

[StudeHt]

Vladilen, наверное я плохо сформулировал свой вопрос.. Мне не нужно, чтобы второй цикл работал Count - 1 раз.. Мне нужно чтобы при каждом пробеге первого цикла значения во втором цикле пересчитывались ровно i + k - 1 раз, т.е. если

for i := 2 to Count do

например запустить до четырех, то мне нужно следующее (он должен пройти при первом пробеге 2 + 5 - 1 раз)

начался 1 цикл (i=2)
начался 2
закончился 2
начался 2
закончился 2
начался 2
закончился 2 
{и так 6 раз}

затем начались последующие за вторым циклом вычисления, сохранились, и опять начался первый цикл, а за ним второй, только теперь мне нужно чтобы он прошел 7 раз, потом также сохранил вычисления, и начался четвертый, а для него, уже 8 раз должен пробежать второй цикл

Приведу целый код процедуры (хотя в алгоритме наверное запутался, но отладить не могу из - за не понимания работы цикла):

for i := 2 to Count do
    begin
      for j := i to m + k - 1 do
        begin
          Proizv_x_i := Proizv_x_i + Pixels_y[j] * j;
          Sum_t := Sum_t + Pixels_x[j];
          Sum_y_t := Sum_y_t + Pixels_y[j];
          Sum_t_2 := Sum_t_2 + Pixels_x[j] * j;
        end;
      b[i] := (Proizv_x_i - ((1 / k) * Sum_t * Sum_y_t)) / (Sum_t_2 - (1 / k) * Power(Sum_t,2));
      a[i] := ((1 / k) * Sum_y_t) - ((1 / k) * b[i] * Sum_t);
      x_i[i] := a[i] + b[i] * i;
      if i < k then
        begin
          for l := 1 to k - 1 do
            Sum_x_i_1:= Sum_x_i_1 + x_i[l];
          x[i] := (1 / i) * Sum_x_i_1;
        end;
      if (i >= k) and (i <= Count - k + 1) then
        begin
          for l := i - k + 1 to i do
            Sum_x_i_2 := Sum_x_i_2 + x_i[l];
          x[i] := (1 / k) * Sum_x_i_2;
        end;
      if i > Count - k + 1 then
        begin
          for l := i - k + 1 to Count - k + 1 do
            Sum_x_i_3 := Sum_x_i_3 + x_i[l];
          x[i] := (1 / (Count - k + 1)) * Sum_x_i_3;
        end;
    end;

[Vladilen]

Ну так ты хочешь: i + k - 1

А в представленном коде: m + k - 1

Что за m?

[StudeHt]

Что за m?

Разумеется просто опечатка, там должно быть

for j := i to i + k - 1 do

[evg_m]

for i := 2 to Count do
    begin
// если суммирование только по второму то переменне НАДО обнулять.
          Sum_t := 0;
          Sum_y_t := 0;
          Sum_t_2 := 0;
   
      for j := i to m + k - 1 do
        begin
          Proizv_x_i := Proizv_x_i + Pixels_y[j] * j;
          Sum_t := Sum_t + Pixels_x[j];
          Sum_y_t := Sum_y_t + Pixels_y[j];
          Sum_t_2 := Sum_t_2 + Pixels_x[j] * j;
        end;