"justify"> Додаток
(Листинги програми)
metod; crt; xn, xn1, a, b, eps: real; , M2: integer; f (x: real): real:=x * x * x * xx * x * x - 2 * x * x +3 * x - 3;; f1 (x: real): real:= 4 * x * x * x - 3 * x * x - 4 * x +3;; f2 (x: real): real;:=12 * x * x - 6 * x - 4;;;:=- 2 ; b:=- 1; eps:=0.0000000001; m1:=0;:=56; («Ot A =», a, «do B =», b); («Pogrewnost E» , eps: 15:10);; f (a) * f2 (a)> 0xn:=axn:=b;:=xn-f (xn) / f1 (xn); abs (xn1-xn)> sqrt (2 * m1 * eps) / M2 do:=xn1;:=xn-f (xn) / f1 (xn); («xn =», xn: 15:10, «xn +1 =» ;, xn1: 15:10, « f(xn+1)=»,f(xn1):15:10);;;(«Kon.znach»);(«xn1=»,xn1:15:10,«f(xn1)=»,f(xn1):15:10);;(«Vtoroy koren »);:=1; b:=2; eps:=0.0000000001; m1:=0;:=32; (« Ot A=», a,« do B=», b); ( «Pogrewnost E», eps: 15:10);; f (a) * f2 (a)> 0xn:=axn:=b;:=xn-f (xn) / f1 (xn); abs ( xn1-xn)> sqrt (2 * m1 * eps) / M2 do:=xn1;:=xn-f (xn) / f1 (xn); («xn =», xn: 15:10, « ; xn +1=», xn1: 15:10,« f(xn+1)=»,f(xn1):15:10);;;(«Kon.znach»);(«xn1=»,xn1:15:10,«f(xn1)=»,f(xn1):15:10);;.
