Простой алгоритм Опции

[лёшик]

Народ, прошу помощи, подскажите алгоритм для присваивания возрастающего значения числовой
переменной ( a:=a+1) и при достижении заданного значения aLim уменьшения значения до нуля (a:=a-1),
чтобы в итоге текущее значение циклически колебалось в этих пределах. Цикл задан методом OnTimer.
Заранее спасибо! Понимаю, что листинг такого алгоритма крайне несложен, но для чайника задачка пока что
непосильная))))

[sheka]

если правильно понял, то

Код

napr:=true;

procedure ontimer;
  ..
  if (napr=true)then
    if(a<alim)then inc(a)
    else napr:=false
  else
    if(a>0)then dec(a)
    else napr:=true;

[лёшик]

то есть, вводим логическую переменную napr (направление), которая будет переключать режим цикла между увеличением и уменьшением переменной "а"? Ок, пасибки, ща попробуем прописать))) А выражение if...then...else
допускает внутри себя повторение? If...then.....if.....else - ?

Добавлено через 11 мин.
a какие параметры у функций "inc" и "dec"? Не встречал их в учебниках

[volvo]

Не надо никаких логических переменных, достаточно хранить изменение (положительное или отрицательное):

delta := 1; a := 1;
...
procedure ontimer;
begin
  if (a <= 0) or (a >= aLim) then delta := -delta;
  inc(a, delta);
end;

Добавлено через 38 сек.

Не встречал их в учебниках

У тебя Хелпа нет? F1 не нажимается?

[sheka]

это тоже самое - просто поставил бегин-енд для наглядности.

Код

  if (napr=true)then
    begin
      if(a<alim)then inc(a)
      else napr:=false;
    end
  else
    begin
      if(a>0)then dec(a)
      else napr:=true;
    end;

[лёшик]

в коллективе ликбез идет семимильными шагами, на три порядка быстрее, чем в одиночку, картина проясняется)))


Добавлено через 2 мин.

Не надо никаких логических переменных, достаточно хранить изменение (положительное или отрицательное):

delta := 1; a := 1;
...
procedure ontimer;
begin
  if (a <= 0) or (a >= aLim) then delta := -delta;
  inc(a, delta);
end;

Добавлено через 38 сек.
У тебя Хелпа нет? F1 не нажимается?

Хелп в порядке, но несколько он заумный для неграмотного новичка, как правило, остается вне контуров извилин)))


Добавлено через 7 мин.

чот у меня индицируются только крайние значения, нет пошагового изменения переменной (((

в коллективе ликбез идет семимильными шагами, на три порядка быстрее, чем в одиночку, картина проясняется)))
Добавлено через 2 мин.
Хелп в порядке, но несколько он заумный для неграмотного новичка, как правило, остается вне контуров извилин)))

Добавлено через 5 мин.
О, уже работает полным ходом, еще раз спасибо ! ! ! ! !