-













































:

:


" "

-012

. .

, 2003




" "

07.00.00.000

.

______________ ..

-02

______________ ..

, 2003


1

1.1 

1.2 

1.3 

2    

2.1  ,

2.2 

3    

3.1 

3.2 

3.3 

4    

5    

.

.

.

.

.


, .

, , , , . - , . , , .

, . , , , , , , .

: , , .

.

C Builder v5.0, MathCad, Word XP, AutoCad Windows XP. .


1

1.1

 

f(x) [a,b]

, ( 1.1 )

Q[f] ;

E[f] .

.

( 1.2 )

X0, ... , XK ;

w0, ... , wK .

n.

E[f]=K×f(n+1)(c), ( 1.3 )

,

n .

1.2

:

1)         , ;

2)         ;

3)         ;

4)         -;

5)         -,

6) .

, , .

X .

1.3

m=4

( 1 )

2

2.1 ,

:

1) ():

- ;

- b;

- .

2) :

- .

2.2

. 19.701.90.

, :

) ;

) ;

) .

[2]. . .

3

3.1

CBuilder 5.0 , Unit1, Unit2, Unit3.

:

) f;

) l.

3.2

:

1) : a,b,e,I ,h,s,N float;

2) : i,j,k int;

3.3

,

:

) f- ;

) Bool- .


4

4.1 .

4.2

f(x)=5*x5-x3.

1- .

2 .

:

- Intel Pen tium 2.2 GHz;

- 1024Mb;

- GeForce 4 64 Mb;

- Sony Trinitron;

- Windows XP.



5

3-

HTML MicrosoftWord ( Office XP) Web-.

, InternetExplorer 5.0 3.

. , , . C Builder v5.0.

1 .. . .1./ . .. . .: , 1972.

2 .. , , - : ", 1992

3 ., X. MathCAD 2000; : . . - .: BHV, 2000. - 416.

4 .., . . - .: , 1991.

()

Project1.cpp

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

USERES("Project1.res");

USEFORM("Unit1.cpp", Form1);

USEFORM("Unit2.cpp", Form2);

USEFORM("Unit3.cpp", Form3);

//---------------------------------------------------------------------------

WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)

{

try

{

Application->Initialize();

Application->CreateForm(__classid(TForm1), &Form1);

Application->CreateForm(__classid(TForm2), &Form2);

Application->CreateForm(__classid(TForm3), &Form3);

Application->Run();

}

catch (Exception &exception)

{

Application->ShowException(&exception);

}

return 0;

}

//---------------------------------------------------------------------------

Unit1.cpp

//---------------------------------------------------------------------------

#include <vcl.h>

#include<io.h>

#include<math.h>

#pragma hdrstop

#include "Unit1.h"

#include "Unit2.h"

#include "Unit3.h"

#include <fcntl.h>

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

float a=0,b=10,e=0.01,I[2];

float f(float x)

{

return 5*pow(x,5)-pow(x,3);

}

//-------------------------------------

void Bool()

{

float h,s,x[5],N=2;

int i,l;

do

{

for(l=0;l<=1;l++)

{

s=0;

h=(b-a)/N;

x[0]=a;

x[1]=a+h/4;

x[2]=a+h/2;

x[3]=a+3*h/4;

x[4]=a+h;

for(i=1;i<=N;i++)

{

s=(7*f(x[0])+32*f(x[1])+12*f(x[2])+32*f(x[3])+7*f(x[4]))+s;

x[0]+=h;

x[1]+=h;

x[2]+=h;

x[3]+=h;

x[4]+=h;

}

I[l]=h*s/45/2;

N=N*2;

}

}while(fabs(I[0]-I[1])>e);

}

//---------------------------------------------------------------------------

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Exit1Click(TObject *Sender)

{

Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Exit2Click(TObject *Sender)

{

Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm1::Exit1pop(TObject *Sender, TCanvas *ACanvas,

TRect &ARect, bool Selected)

{

SB1->SimpleText="";

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N1Click(TObject *Sender)

{

Form2->Show();

SB1->SimpleText=" ";

}

//---------------------------------------------------------------------------

void __fastcall TForm1::N2Click(TObject *Sender)

{

Bool();

Form3->Show();

SB1->SimpleText=" ";

}

//---------------------------------------------------------------------------

Unit2.cpp

//---------------------------------------------------------------------------

#include <vcl.h>

#include<iostream.h>

#pragma hdrstop

#include "Unit2.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma link "ibctrls"

#pragma link "ibreg"

#pragma link "CSPIN"

#pragma resource "*.dfm"

TForm2 *Form2;

extern float a,b,e;

//---------------------------------------------------------------------------

__fastcall TForm2::TForm2(TComponent* Owner)

: TForm(Owner)

{

}

//------------------------------------------

//---------------------------------------------------------------------------

void __fastcall TForm2::Button2Click(TObject *Sender)

{

Form2->Close();

}

//---------------------------------------------------------------------------

float __fastcall TForm2::checkf(TObject *Sender,TEdit *e1,float w)

{

float buf;

do{

try

{

if(e1->Text!="")

buf=StrToFloat(e1->Text);else buf=w;

}

catch(const EConvertError &e)

{

int j=Application->MessageBox(" ", NULL, MB_OK);

buf=-1;

e1->Text=FloatToStr(w);

}}while((buf==-1));

return buf;

}

//----------------------------------------

void __fastcall TForm2::Button1Click(TObject *Sender)

{

e=checkf(Sender,Edit4,e);

a=checkf(Sender,Edit1,a);

b=checkf(Sender,Edit2,b);

Form2->Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm2::FormCreate(TObject *Sender)

{

Edit1->Text=FloatToStr(a);

Edit2->Text=FloatToStr(b);

Edit4->Text=FloatToStr(e);

}

//---------------------------------------------------------------------------

void __fastcall TForm2::GroupBox1Click(TObject *Sender)

{

}

//---------------------------------------------------------------------------

Unit3.cpp

//---------------------------------------------------------------------------

#include <vcl.h>

#pragma hdrstop

#include "Unit3.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma link "PERFGRAP"

#pragma resource "*.dfm"

TForm3 *Form3;

extern float I[2];

//---------------------------------------------------------------------------

__fastcall TForm3::TForm3(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm3::BitBtn1Click(TObject *Sender)

{

Form3->Close();

}

//---------------------------------------------------------------------------

void __fastcall TForm3::FormCreate(TObject *Sender)

{

SaveDialog1->InitialDir= GetCurrentDir();

Edit1->Text=FloatToStr(I[1]);

}

//---------------------------------------------------------------------------

void __fastcall TForm3::Button1Click(TObject *Sender)

{

TStringList *s;

s= new TStringList;

SaveDialog1->Execute();

s->Add(" "+FloatToStr(I[1]));

s->SaveToFile(SaveDialog1->FileName);

delete s;

}

//---------------------------------------------------------------------------

void __fastcall TForm3::Label1Click(TObject *Sender)

{

}

//---------------------------------------------------------------------------

.


4 -

.

.


<html xmlns:v="urn:schemas-microsoft-com:vml"

xmlns:o="urn:schemas-microsoft-com:office:office"

xmlns:w="urn:schemas-microsoft-com:office:word"

xmlns="http://www.w3.org/TR/REC-html40">

<head>

<meta http-equiv=Content-Type content="text/html; charset=windows-1251">

<meta name=ProgId content=Word.Document>

<meta name=Generator content="Microsoft Word 9">

<meta name=Originator content="Microsoft Word 9">

<link rel=File-List href="./1%20%201.files/filelist.xml">

<link rel=Edit-Time-Data href="./1%20%201.files/editdata.mso">

<link rel=OLE-Object-Data href="./1%20%201.files/oledata.mso">

<!--[if !mso]>

<style>

v\:* {behavior:url(#default#VML);}

o\:* {behavior:url(#default#VML);}

w\:* {behavior:url(#default#VML);}

.shape {behavior:url(#default#VML);}

</style>

<![endif]-->

<title>1 </title>

<!--[if gte mso 9]><xml>

<o:DocumentProperties>

<o:Author></o:Author>

<o:Template>Normal</o:Template>

<o:LastAuthor></o:LastAuthor>

<o:Revision>1</o:Revision>

<o:TotalTime>0</o:TotalTime>

<o:Created>2003-06-07T13:56:00Z</o:Created>

<o:LastSaved>2003-06-07T13:57:00Z</o:LastSaved>

<o:Pages>1</o:Pages>

<o:Company>HOME</o:Company>

<o:Lines>1</o:Lines>

<o:Paragraphs>1</o:Paragraphs>

<o:Version>9.2812</o:Version>

</o:DocumentProperties>

</xml><![endif]-->

<style>

<!--

/* Style Definitions */

p.MsoNormal, li.MsoNormal, div.MsoNormal

{mso-style-parent:"";

margin:0cm;

margin-bottom:.0001pt;

mso-pagination:widow-orphan;

font-size:12.0pt;

font-family:"Times New Roman";

mso-fareast-font-family:"Times New Roman";}

h2

{mso-style-next:;

margin-top:0cm;

margin-right:0cm;

margin-bottom:0cm;

margin-left:35.9pt;

margin-bottom:.0001pt;

mso-pagination:widow-orphan;

page-break-after:avoid;

mso-outline-level:2;

background:white;

font-size:14.0pt;

mso-bidi-font-size:12.0pt;

font-family:"Courier New";

color:black;

letter-spacing:-.6pt;

mso-bidi-font-weight:normal;}

h6

{mso-style-next:;

margin:0cm;

margin-bottom:.0001pt;

text-align:center;

mso-pagination:widow-orphan;

page-break-after:avoid;

mso-outline-level:6;

tab-stops:61.7pt;

font-size:14.0pt;

mso-bidi-font-size:12.0pt;

font-family:"Times New Roman";}

@page Section1

{size:595.3pt 841.9pt;

margin:2.0cm 42.5pt 2.0cm 3.0cm;

mso-header-margin:35.4pt;

mso-footer-margin:35.4pt;

mso-paper-source:0;}

div.Section1

{page:Section1;}

-->

</style>

<!--[if gte mso 9]><xml>

<o:shapedefaults v:ext="edit" spidmax="1134"/>

</xml><![endif]--><!--[if gte mso 9]><xml>

<o:shapelayout v:ext="edit">

<o:idmap v:ext="edit" data="1"/>

</o:shapelayout></xml><![endif]-->

</head>

<body lang=RU style='tab-interval:35.4pt'>

<div class=Section1>

<h6 style='tab-stops:35.4pt'><a name="_Toc11439953">1 </a></h6>

<p class=MsoNormal><b><span style='font-size:14.0pt;mso-bidi-font-size:12.0pt'><span

style="mso-spacerun: yes">    </span></span></b><span style='font-size:14.0pt;

mso-bidi-font-size:12.0pt'><span style="mso-spacerun:

yes">                                                        </span><o:p></o:p></span></p>

<h2><a name="_Toc11439954"><span style='font-family:"Times New Roman";

font-weight:normal;mso-bidi-font-weight:bold'>1.1 </span></a><span

style='font-family:"Times New Roman";font-weight:normal;mso-bidi-font-weight:

bold'><o:p></o:p></span></h2>

<p class=MsoNormal style='margin-left:36.0pt'><span style='font-size:14.0pt;

mso-bidi-font-size:12.0pt'><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></span></p>

<p class=MsoNormal style='text-indent:36.0pt'><span style='font-size:14.0pt;

mso-bidi-font-size:12.0pt'>

</span><span

lang=EN-US style='font-size:14.0pt;mso-bidi-font-size:12.0pt;mso-ansi-language:

EN-US'>f</span><span style='font-size:14.0pt;mso-bidi-font-size:12.0pt'>(</span><span

lang=EN-US style='font-size:14.0pt;mso-bidi-font-size:12.0pt;mso-ansi-language:

EN-US'>x</span><span style='font-size:14.0pt;mso-bidi-font-size:12.0pt'>)

[a,b] <o:p></o:p></span></p>

<p class=MsoNormal style='margin-left:72.0pt;text-indent:36.0pt'><span

style='font-size:14.0pt;mso-bidi-font-size:12.0pt'><sub><!--[if gte vml 1]><v:shapetype

id="_x0000_t75" coordsize="21600,21600" o:spt="75" o:preferrelative="t"

path="m@4@5l@4@11@9@11@9@5xe" filled="f" stroked="f">

<v:stroke joinstyle="miter"/>

<v:formulas>

<v:f eqn="if lineDrawn pixelLineWidth 0"/>

<v:f eqn="sum @0 1 0"/>

<v:f eqn="sum 0 0 @1"/>

<v:f eqn="prod @2 1 2"/>

<v:f eqn="prod @3 21600 pixelWidth"/>

<v:f eqn="prod @3 21600 pixelHeight"/>

<v:f eqn="sum @0 0 1"/>

<v:f eqn="prod @6 1 2"/>

<v:f eqn="prod @7 21600 pixelWidth"/>

<v:f eqn="sum @8 21600 0"/>

<v:f eqn="prod @7 21600 pixelHeight"/>

<v:f eqn="sum @10 21600 0"/>

</v:formulas>

<v:path o:extrusionok="f" gradientshapeok="t" o:connecttype="rect"/>

<o:lock v:ext="edit" aspectratio="t"/>

</v:shapetype><v:shape id="_x0000_i1049" type="#_x0000_t75" style='width:180.75pt;

height:45.75pt' o:ole="" fillcolor="window">

<v:imagedata src="./1%20%201.files/image001.wmz" o:title=""/>

</v:shape><![endif]--><![if !vml]><img width=241 height=61

src="./1%20%201.files/image002.gif" v:shapes="_x0000_i1049"><![endif]></sub><!--[if gte mso 9]><xml>

<o:OLEObject Type="Embed" ProgID="Equation.3" ShapeID="_x0000_i1049"

DrawAspect="Content" ObjectID="_1116513810">

</o:OLEObject>

</xml><![endif]-->,<span style='mso-tab-count:3'>             </span>(

1.1 )<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:14.0pt;mso-bidi-font-size:12.0pt'><span

style='mso-tab-count:1'>     </span> <span style='mso-tab-count:1'>  </span></span><i><span

lang=EN-US style='font-size:14.0pt;mso-bidi-font-size:12.0pt;mso-ansi-language:

EN-US'>Q</span></i><i><span style='font-size:14.0pt;mso-bidi-font-size:12.0pt'>[</span></i><i><span

lang=EN-US style='font-size:14.0pt;mso-bidi-font-size:12.0pt;mso-ansi-language:

EN-US'>f</span></i><i><span style='font-size:14.0pt;mso-bidi-font-size:12.0pt'>]</span></i><span

style='font-size:14.0pt;mso-bidi-font-size:12.0pt'>

;<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:14.0pt;mso-bidi-font-size:12.0pt'><span

style='mso-tab-count:2'>          </span></span><i><span lang=EN-US

style='font-size:14.0pt;mso-bidi-font-size:12.0pt;mso-ansi-language:EN-US'>E</span></i><i><span

style='font-size:14.0pt;mso-bidi-font-size:12.0pt'>[</span></i><i><span

lang=EN-US style='font-size:14.0pt;mso-bidi-font-size:12.0pt;mso-ansi-language:

EN-US'>f</span></i><i><span style='font-size:14.0pt;mso-bidi-font-size:12.0pt'>]</span></i><span

style='font-size:14.0pt;mso-bidi-font-size:12.0pt'> .<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:14.0pt;mso-bidi-font-size:12.0pt'><span

style='mso-tab-count:1'>     </span>

.

<o:p></o:p></span></p>

<p class=MsoNormal><span style='font-size:14.0pt;mso-bidi-font-size:12.0pt'><span

style='mso-tab-count:1'>     </span><sub><!--[if gte vml 1]><v:shape id="_x0000_i1050"

type="#_x0000_t75" style='width:347.25pt;height:45.75pt' o:ole="" fillcolor="window">

<v:imagedata src="./1%20%201.files/image003.wmz" o:title=""/>

</v:shape><![endif]--><![if !vml]><img width=463 height=61

src="./1%20%201.files/image004.gif" v:shapes="_x0000_i1050"><![endif]></sub><!--[if gte mso 9]><xml>

<o:OLEObject Type="Embed" ProgID="Equation.3" ShapeID="_x0000_i1050"

DrawAspect="Content" ObjectID="_1116513811">

</o:OLEObject>

</xml><![endif]--><span style='mso-tab-count:1'> </span>( 1.2 )<o:p></o:p></span></p>

<p class=MsoNormal><![if !supportEmptyParas]>&nbsp;<![endif]><o:p></o:p></p>

</div>

</body>

</html>


.

. -012

..

ӻ

..


2012 , .