Реферат Порівняння ефективності різних методів розв'язання систем лінійних алгебраїчних рівнянь. Метод Крамера і метод простої ітерації

align="justify"> {Private declarations}

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

implementationUnit1;

{$ R *. dfm} f (x, a: real): real; (x <> 0) to 10000 or (x> (z +0.1)) then frmMain.mmo1.lines.add (Корінь уточнити не вдалося x '+ inttostr (kor) +' = '+ floattostr (z)) to 10000 or (x> (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 :

{if (x <> 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 ('Метод послідовних наближень:') ;

mmo2.Lines.Add ('Метод дотичних:');

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

{if (x <> 0) and (x <> eps) and (x <>-eps) and (x <> 2 * eps) then} (f (x , a) * f (x + eps, a) <0) and ((f (x, a)-f (x + eps, a)) <10) then ((f (x, a) < f (x-eps, a)) and (f (x + eps, a)> f (x +2 * eps, a))) or ((f (x, a)> f (x-eps, a)) and (f (x + eps, a) = Xmax; kor = 0 then begin frmMain.mmo1.lines.add ('' Корній немає''); frmMain.mmo2 . 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.