1. -.
2. :
- , , ;
- ;
- .
3. .
4. k=f(xk).
Yk | ||||||
k | Xk | . . | . . | . . | ||
- | - | |||||
½ | - | - | ||||
- | ||||||
1 ½ | - | - | ||||
... | ||||||
n | - | - | ||||
, , .
.
Mathcad.
.
unit integr;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Image1: TImage;
procedure Image1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
const n=50;
var
Form1: TForm1;
h,x,dx,s:real;
i:integer;
st:string;
implementation
{$R *.dfm}
procedure TForm1.Image1Click(Sender: TObject);
begin
str(n:3,st);
textout(20,5,'n='+st);
with image1.Canvas do begin
h:=3.14/3-3.14/6;
x:=3.14/6-dx;
s:=0;
dx:=h/120;
for i:=0 to 119 do
begin
x:=x+dx;
s:=s+dx*(1/sqr(sin(x)));
end;
str(s:8:4,st);
textout(20,20,' :'+st);
x:=3.14/6;
s:=0;
for i:=1 to 120 do
begin
x:=x+dx;
s:=s+dx*(1/sqr(sin(x)));
end;
str(s:8:4,st);
textout(20,35,' :'+st);
x:=3.14/6-dx;
s:=0;
for i:=0 to 119 do
begin
x:=x+dx;
s:=s+dx*((1/sqr(sin(x))+1/sqr(sin(x+dx)))/2);
end;
str(s:8:4,st);
textout(20,50,' :'+st);
x:=3.14/6;
s:=0;
for i:=1 to 120 do
begin
x:=x+dx;
s:=s+dx*(1/sqr(sin(x-dx/2)));
end;
str(s:8:4,st);
textout(20,65,' :'+st);
x:=3.14/6;
s:=0;
h:=(3.14/3-3.14/6)/2;
s:=(h/3)*(1/sqr(sin(x))+4/sqr(sin(x+h))+
1/sqr(sin(x+2*h)));
textout(20,80,' :'+st);
end;
end;
end.
.
:
1. .
2. .
3. .
4. .
:
1. , .
2. -?
|
|
3. ? , .
4. ?
1. . . ( ). .: , 2001. 382.
2. . ., . . . .: , 1963. 660.
3. . . . . Mathcad.