Народ, прошу помощи, подскажите алгоритм для присваивания возрастающего значения числовой переменной ( a:=a+1) и при достижении заданного значения aLim уменьшения значения до нуля (a:=a-1), чтобы в итоге текущее значение циклически колебалось в этих пределах. Цикл задан методом OnTimer. Заранее спасибо! Понимаю, что листинг такого алгоритма крайне несложен, но для чайника задачка пока что непосильная))))
то есть, вводим логическую переменную napr (направление), которая будет переключать режим цикла между увеличением и уменьшением переменной "а"? Ок, пасибки, ща попробуем прописать))) А выражение if...then...else допускает внутри себя повторение? If...then.....if.....else - ?
Добавлено через 11 мин. a какие параметры у функций "inc" и "dec"? Не встречал их в учебниках
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 не нажимается?
Хелп в порядке, но несколько он заумный для неграмотного новичка, как правило, остается вне контуров извилин)))
Добавлено через 7 мин.
чот у меня индицируются только крайние значения, нет пошагового изменения переменной (((
Цитата(лёшик @ 21.06.2009 11:42)
в коллективе ликбез идет семимильными шагами, на три порядка быстрее, чем в одиночку, картина проясняется))) Добавлено через 2 мин. Хелп в порядке, но несколько он заумный для неграмотного новичка, как правило, остается вне контуров извилин)))
Добавлено через 5 мин. О, уже работает полным ходом, еще раз спасибо ! ! ! ! !
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.