Решение нелинейных уравнений методом секущих.

[Spyke]

Уравнение: x + 2tg(0.5x²) = 0.6
Локализацию корней проводить с шагом 0.1 начиная от нуля.

Есть часть программы:

Program st3;
var
t:text;
x1,x2,k:real;
function f(x:real):real;
begin
f:= x+2tg(0.5*sqr(x))-0.6;
end;
begin
assign(t,'c\program files\st3.txt');
rewrite(t);
x1:=0.1;
while f(x1)*f(x1+0.1)>0 do x1:=x1+0.1;
writeln(t,x1:6:2);
repeat
x1:= ?????...

Вот не знаю что дальше

[rubius2008]

во 1 первых нужно до цикла задать 2 начальных значения, по вашей задаче это видимо будут 0 и 0.1. Далее в цикле вам нужно написать формулу метода секущих, в которой каждый раз вычисляется новое значение х1 на основе 2 предыдущих. И вычисления проводить до тех по пока не буде достигнута заданная точность, т.е. модуль разницы между вновь вычисленным значение и предыдущим станет меньше допустим 1е-6