Pascal Написать программу по алгоритму для метода наискорейшего спуска

[aleksandra9990]

Нужно на pascal.abc реализовать м-д наискорейшего спуска для нахождения минимума ф-ции 2-х переменных по заданному алгоритму.
0. Выбираем т.x0 и E- точность,k=1.
1. Определяем направление h^k=-grad(f(x^(k-1) ))
2. Для нахождения α используем методы одномерной оптимизации, т.е. α_k=argmin f(x^(k-1)+αh^k)- методом удвоения шага, квадратичной аппроксимации.
3.Находим x^k= x^(k-1)+α_k h^k ;
4. Проверяем условие окончания итераций: ‖x^k-x^(k-1) ‖<E_1
‖grad f(x^k)‖<E_2
5. Если не выполняется, то k≔k+1,и идти на шаг 1; если выполняется, то x^*=x^k
f(x^* )=f(x^k).

[Anatei]

Если задача еще актуальна, пишите на anateijob@gmail.com. Хотелось бы уточнить пару нюансов.