. , , ,

,,,

,

-

2403.302413.000

( )

-109 , . .
..
..

2011.


()


, . , , . .

: ()


 

. n .

, , , .

, :

,

R - . .

1 -

, - (), , - (), , .

2 -

 

()

n .

, , f (x) c .

, :

,

R - . .

 

3 -

y0

y1

y2

y3

y4

y5

y6

y7

y8

y9

y10

x 0 0,1 0,2 0,3 0,4 0,5 0,6 0,7 0,8 0,9 1
y 1 0,86 0,76 0,68 0,6 0,55 0,5 0,47 0,46 0,43 0,41

:

S=0,1* ( (1+0,41) /2+0,86+0,76+0,68+0,6+0,55+0,5+0,47+0,46+0,43) =0,6025 .

:

S=0,0017*2* (1+0,41+2* (0,76+0,6+0,5+0,46) +4* (0,86+0,68+0,55+0,47+0,43)) =

=0,6123 .


-



-


 

- Lazarus.

, .

4 -

:

  "", ;

  Label;

, .

5 -

.

:

  Label Edit;

  MainMenu ;

, .

6 -

:

  Label Edit;

  : "OK" - ; "" - , ;

, .

7 -

:

  Label Edit;

  : "" - ; "OK" - ;

  Chart ;

, .

8 -

:

  : " " ; "" ; "OK" - ;

  Chart ;

 

- :

// :

var

Form2: TForm2;

a,b,E,h,S,S1,x: real; n, i: integer;

implementation

{ TForm2 }

uses unit1,unit3,unit4,unit5;

// :

function f (x: real): real;

begin

f: =1/Sqrt (1+3*x+2*x*x);

end;

// - :

procedure TForm2. MenuItem4Click (Sender: TObject);

begin

//

S: =0; //

n: =1; //

Repeat //

S1: =S; // 1

n: =2*n; //

h: = (b-a) /n; //

S: =f (a) +f (b); // +

x: =a; // x

for i: =1 to n-1 do // i- , 1 n-1

begin

x: =x+h; //

S: =S+2*f (x) //

end;

S: =S*h/2; //

Until abs (S-S1) <=E; // ,

Form4. Edit1. Text: =FloatToStr (S); //

Form4. Caption: =' ';

Form4. Button2. visible: =True;

Form4. Chart1. Visible: =True;

Form4. ShowModal;

end;

procedure TForm2. MenuItem8Click (Sender: TObject);

begin

// ()

S: =0; //

n: =1; //

Repeat //

S1: =S; // 1

n: =2*n; //

h: = (b-a) /n; //

S: =f (a) +f (b); // +

x: =a; // x

for i: =0 to n do // i- , 1 n-1

begin

x: =a+i*h; //

if x=a then s: =s+f (x) else

if x=b then s: =s+f (x) else

if i mod 2 = 0 then s: =s+2*f (x) else s: =s+4*f (x); // , s: =s+2*f (x), , s: =s+4*f (x)

end;

S: =S*h/3; //

Until abs (S-S1) <=E; // ,

Form4. Edit1. Text: =FloatToStr (S); //

Form4. Caption: =' ';

Form4. Button2. visible: =False;

Form4. Chart1. Visible: =False;

Form4. ShowModal;

end;

 

project1. exe. (.4). integral. txt , (.9) .

. MainMenu "", "", "" "".

" - " Form 2 (.10):

9

10 -

"OK" . :

12 -

, (). " " Form 5, "", ""

14 -

, () , , Maxima.

"". , integral. Txt

15 -

"OK" , .


- (). . .

- Lazarus , .


1.  .. Delphi 7. - .: , 1999.

2.  .. Delphi 7. - .: --, 1999.

3.  .. : . . . - 2- , . - .: "", 2005. - 384 .

4.  .., .. : . / . . . .. . - .: "": - , 2007. - 256 .: .

5.  .., .. - . 1 - .: , 2008 - 648 .

-

 

 

 

! , , , .
. , :