Geum.ru

Сравнение эффективности различных методов решения систем линейных алгебраических уравнений. Метод Крамера и метод простой итерации

Курсовой проект - Компьютеры, программирование

Другие курсовые по предмету Компьютеры, программирование

ick(Sender: TObject);

{ Private declarations }

{ Public declarations };,Xmax,h,a,timer,timer1,timer2,time1,time2: real;sit1,sit2,kor,it1,it2,p:Integer;: TfrmMain;

implementationUnit1;

0)then:=a*(tan(x))+a*ln(abs(sin(x)))+a*a*a*cos(x)+af:=f(0.001,a);;f1(x,a:real):real;:=a/(cos(x)*cos(x))+a*(cos(x)/sin(x))+a*a*a*(-sin(x))+a;;PoslPribl(z:real);x,xn,xk,x0,t,a,eps,u:real;s,i:Integer;:=0;it1:=0;:=StrToFloat(frmMain.Edit1.Text);:=StrToFloat(frmMain.edXmin.text);:=StrToFloat(frmMain.edxmax.text);:=StrToFloat(frmMain.edit2.text)/10;:=Abs(Trunc(Log10(StrToFloat(frmMain.edit2.text))));:=GetTickCount;i:=1to10000do:=z;:=x;:=f(x0,a)/10;:=x0-t;(it1);;abs(t)(z+0.1)) then frmMain.mmo1.lines.add(Корень уточнить не удалось x+inttostr(kor)+=+floattostr(z)) else.mmo2.lines.add(x+inttostr(kor)+=+floattostrf(x,ffFixed,s,s));;TfrmMain.FormCreate(Sender: TObject);:=0.001;.Clear;mmo2.Clear;;TfrmMain.Button1Click(Sender: TObject);x,y1:real;:=strtofloat(frmMain.Edit1.Text);.Clear;:=strtofloat(edXmin.Text);:=strtofloat(edXmax.Text);:=Xmin;

0)then}:=f(x,a);.AddXY(x,y1,,clTeeColor);:=x+h;x>Xmax;;TfrmMain.btn4Click(Sender:TObject);x,eps:real;:=0;sit2:=0;:=0;.Clear;Mmo2.Clear;1.Lines.Add(:);">{if (xXmax;;TfrmMain.btn4Click(Sender: TObject);x,eps:real;:=0;sit2:=0;:=0;.Clear;Mmo2.Clear;1.Lines.Add(Метод последовательных приближений:);

mmo2.Lines.Add(Метод касательных:);

time1:=0;:=0;:=StrToFloat(Edit1.Text);:=Xmin;:=0.1;

0)and(x=Xmax;kor=0 then begin frmMain.mmo1.lines.add(Корней нет);frmMain.mmo2.lines.add(Корней нет) end;.mmo1.lines.add(------------------);frmMain.mmo2.lines.add(------------------);.Mmo1.Lines.Add(Время :+FloatToStrf(time1,fffixed,8,4)+);frmMain.Mmo2.Lines.Add(Время :+FloatToStrf(time2,fffixed,8,4)+);.mmo1.lines.add(Количество итераций:+floattostr(sit1));frmMain.mmo2.lines.add(Количество итераций:+floattostr(sit2));;TfrmMain.Button2Click(Sender: TObject);.Terminate;;TfrmMain.Button3Click(Sender: TObject);.Show;;end.Unit1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls;= class(TForm): TButton;: TMemo;btn1Click(Sender: TObject);

{ Private declarations }

{ Public declarations };: TForm1;

{$R *.dfm}TForm1.btn1Click(Sender: TObject);.Close;;end.