Функция не приходит извне, она задана в коде. Следовательно, от нее можно заранее подсчитать производную, следовательно, точки максимума можно определить заранее и посчитать расстояние между ними в виде числа. Хочешь - пиши считалку производных в делфи, но ни один здравомыслящий программист такой глупостью заниматься не будет. Если ответ может быть подсчитан однажды и получен в виде числа или какой-то формулы, он и должен быть получен именно так. В итоге весь код сведется к memo1.text := '<заранее_подсчитанное_число>'.
Можно идти по I с маленьким шагом и искать, когда функция начнет уменьшаться, и принимать эту точку за максимум. Но это еще большая глупость, чем считалка производных, т.к. дает только приблизительный ответ.
__________________
jmp $ ; Happy End!
The Cake Is A Lie.
|