Алгоритм Метода золотого сечения (Pascal)

[ze3x]

Здравствуйте. Может быть у кого-нибудь остался или кто-нибудь помнит алгоритм программы на паскале (Метод золотого сечения). Просто скоро сдавать курсовик по информатике а на языке паскаль только на 1ом курсе писали программы не вспомнится =(

[testtest]

интервал (допустим от 0 до 1) делится в отношении \( \frac{1+\sqrt{5}}{2} \), т.е. примерно 0,618. точка отражается относительно 0,5 - на 0,382. сравниваются значения в этих точках, точка с наибольшим по модулю значением принимается за новую границу интервала, а вторая вновь отражается через середину нового интервала.
интервал вновь окажется разделенным на то же самое "золотое сечение".
вкратце так. метод позволяет сохранить значение функции в одной из точек для следующего шага, что теоретически уменьшает время работы алгоритма по сравнению с дихотомией.
если функция вычисляется минут 10, например это семейство интегральных кривых - время вычислений значит наполовину меньше будет, минут 5.