,,,
-
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 .
-
볺 Internet
-
. 㳿
.
.
Copyright (c) 2024 Stud-Baza.ru , , , .