PDF / TANGENT

1: program TANGENT; 2:

3:const

4:a: real = -1.473;

5:b: real = -5.738;

6:c: real = 6.763;

8:function f(x: real): real;

9:begin

10:f := x*x*x + a*x*x + b*x + c;

11:end;

12:

13:function f_(x: real): real;

14:begin

15:f_ := 3*x*x + a*2*x + b;

16:end;

17:

18:var

19:x,e:real;

20:

21:begin

22:WriteLn('-- Решение нелинейных уравнений методом касательных --');

23:Write(' Введите X : '); ReadLn(x);

24:Write(' Введите E : '); ReadLn(e);

25:repeat

26:x := x - f(x)/f_(x);

27:until abs(-f(x)/f_(x))<=e;

28:WriteLn(' X = ',x:7:3);

29:ReadLn;

30:end.