{$n+} Program metodnewton; Function newton(start, Eps: Extended): Extended; Var X, prev: Extended; { function } Function F(Arg: Extended): Extended; Begin F :=(15*x*x*x*x)-(4*x*x*x)-(6*x*x)-(4*x)-1 End; { proizvodnaya } Function Deriv(Arg: Extended): Extended; Begin Deriv := (60*x*x*x)-(12*x*x)-(12*x)-4 End; Begin X := start; Repeat prev := X; X := prev - F(prev) / Deriv(prev); Until Abs(X - prev) <= Eps; newton := X End; Var a, Eps: Extended; begin WriteLn('vvedite priblegenie a'); Read(a); WriteLn('vvedite to4nost Eps'); Read(Eps); WriteLn('koren raven x= ', newton(a, Eps):10:7); readln; end.