Помощь - Поиск - Пользователи - Календарь
Полная версия: Простой алгоритм
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
лёшик
Народ, прошу помощи, подскажите алгоритм для присваивания возрастающего значения числовой
переменной ( 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"? Не встречал их в учебниках blink.gif
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 мин.
Цитата(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
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.