101019
6
:
:
2011
: , , .
:
( )
, , . , , , . . 1 - ,
, h , . , ,
[ , ], .
, x -. , . , . . e - , .
1- - .
1 . , .
, . . , .
FunMK, , 2.
Procedure MK(x0,e:real;Var x:real); Procedure FunMK(x:real;Var fx,fx1:real);
Var z,fx,fx1: real; Var y,y1,tg:real;
I: integer; begin
{$I FunMK} y:=0.55*x+0.1;
begin y1:=cos(y);
x:=x0; i:=1; tg:=sin(y)/y1;
repeat fx:=x*x-tg;
FunMK(x,fx,fx1); fx1:=2*x-0.55/sqr(y1)
z:=fx/fx1; end;
x:=x-z;
Inc(i); fx1:=abs(fx);
until (fx1<=e) or (i>50)
End;
2 - MK FunMK
|
|
e. 50. FunMK, x. FunMk MK .
: X4-14X3+60X2-70X=0
:
begin
DecimalSeparator:='.';
Gran(a0,B,K,R1);
predel(R1,R2,x0);
MK(x0,e,x);
AssignFile(Fr,'Rez.dat');
Rewrite(Fr);
x1:=R2;
Repeat
x1:=x1+0.001;
rrr(x1,Fx);
writeln(Fr,' ', x1:6:4,' ', Fx:8:4,' ');
CloseFile(Fr);
end;
Xmin=1,8666 Xmax=9,3666
: , , . .