если решать как квадратное то получается вроде
Код:
.....
var
.....
t1, t2, x1, x2:real;
........
procedure.......button1.......
begin
t1:=(-5+sqrt(97))/6;
t2:=-((-5+sqrt(97))/6)
x1:=exp(ln(t1));
x2:=exp(ln(1/t1)) ;
edit1.text:=floattostr(x1);
edit2.text:=floattostr(x2);
end;
вроде компилируется.но правильно ли работает неизвестно.и...это рассчетка в институт,поэтому нужен именно ньютон.к тому же тут много в голове считается.