Інтеграли зі змінними границями (стр. 3 из 3)

end.

unit UnitMAIN;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, jpeg, ExtCtrls, StdCtrls, funct;

type

TForm1 = class(TForm)

Image1: TImage; Image2: TImage; Button1: TButton; Image3: TImage; Edit1: TEdit; Edit2: TEdit;

Label1: TLabel; Label2: TLabel; Label3: TLabel; Memo1: TMemo; Panel1: TPanel; Button2: TButton;

Button3: TButton; Label4: TLabel; Label5: TLabel; Label6: TLabel; Label7: TLabel; Edit3: TEdit;

Edit4: TEdit; Edit5: TEdit; Label8: TLabel;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

procedure Button3Click(Sender: TObject);

procedure FormCreate(Sender: TObject);

end;

var

Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);

var i:integer; intF, intS, intT, intR, L,R:real; file1:TextFile;

begin

L:=StrToFloat(Edit1.Text); R:=StrToFloat(Edit2.Text);

if(((0<=L)and(L<=6))and(((0<=R)and(R<=6))))

then

begin

createGrid;

createGridOfInt;

intF:=FullIntegral(L,R);

Label1.Caption:=FloatToStr(intF);

intS:=integralSimpsona(L,R);

intT:=integralTrapeciay(L,R);

intR:=first(L,R);

AssignFile(file1,'Result.txt');

Rewrite(file1);

writeln(file1,'Дйствительное значение интеграла ',intR:17:15);

writeln(file1,'Значение интеграла по формуле (1) ',intF:17:15,' Расность по модулю ',abs(intF-intR):17:15);

writeln(file1,'Значение интеграла по формуле трапеций ',intT:17:15,' Расность по модулю ',abs(intT-intR):17:15);

writeln(file1,'Значение интеграла по формуле Симпсона ',intS:17:15,' Расность по модулю ',abs(intS-intR):17:15);

CloseFile(file1);

Memo1.Lines.LoadFromFile('Result.txt');

end

else ShowMessage('граници должна быть в пределах от 0 до 6');

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Panel1.Visible:=true; Button2.Visible:=false;

end;

procedure TForm1.Button3Click(Sender: TObject);

begin

Panel1.Visible:=false; Button2.Visible:=true;

setN(StrToInt(Edit5.Text),StrToInt(Edit3.Text),StrToInt(Edit4.Text));

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

setN(StrToInt(Edit5.Text),StrToInt(Edit3.Text),StrToInt(Edit4.Text));

end;

end.