Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Простой алгоритм

Автор: лёшик 21.06.2009 14:57

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

Автор: sheka 21.06.2009 15:20

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

Код

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;


Автор: лёшик 21.06.2009 15:28

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

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

Автор: volvo 21.06.2009 15:40

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

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


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

Автор: sheka 21.06.2009 15:42

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

Код

  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;

Автор: лёшик 21.06.2009 15:42

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


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

Цитата(volvo @ 21.06.2009 11:40) *

Не надо никаких логических переменных, достаточно хранить изменение (положительное или отрицательное):
delta := 1; a := 1;
...
procedure ontimer;
begin
  if (a <= 0) or (a >= aLim) then delta := -delta;
  inc(a, delta);
end;


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



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


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

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



Цитата(лёшик @ 21.06.2009 11:42) *

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



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