> Writeln («Vvedite r_min:»); (str); _min:=StrToFloat (str); («Vvedite r_max:»); (str); _max:=StrToFloat ( str); («Vvedite e:»); (str);
e:=StrToFloat (str);
/ / Перевірка виконання умови леми Больцмана-Коші.
If (S_1 (r_min) <0) and (S_1 (r_max)> 0) or (S_1 (r_min)> 0) and (S_1 (r_max) <0)
then begin
/ / Умова виконується, розрахунок методом Ньютона.
/ / Обчислюємо середину відрізка, як початкове значення для першої ітерації.
r:=(r_min + r_max) / 2;:=S_1 (r) / S_2 (r);:=r - deltaAbs (delta) < e; _min:=S (r);
/ / Виводимо значення. («Rachet metodom Nutona.»); («Minimum pri r =» + FloatToStr (r) + «; S_min =» + FloatToStr (S_min ));
endbegin
/ / Умова не виконано, розраховуємо по крапках.
/ / Привласнюємо початкові значення S_min і r.
S_min:=S (r_min);:=r_min;
/ / Розраховуємо інтервали.:=(r_max - r_min) / 10;
/ / Знаходимо мінімальне значення.
/ / Повторюємо цикл від початку до кінця відрізка з кроком delta.
/ / Обчислюємо крапку.:=r + delta;
/ / Якщо значення в точці менше S_min, то зберігаємо значення.
If S_min < S (r) begin_min:=S (r); _mn:=r;; r>=r_max;
/ / Виводимо значення. («Rachet metodom tochek.»); («Minimum pri r =» + FloatToStr (r_mn) + «; S_min =» + FloatToStr (S_min ));
end;;.
