.


:




:

































 

 

 

 


( )

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

 

: , , . .

 



<== | ==>
| Excel
:


: 2016-10-06; !; : 563 |


:

:

, , 1:10
==> ...

958 - | 927 -


© 2015-2024 lektsii.org - -

: 0.017 .