Рассчитать определенный интеграл

@4Alex4 · Регистрация: 14.02.2012

Author24 — интернет-сервис помощи студентам

надо рассчитать определенный интеграл от 0 до а, подинтегральное выражение: x^2*sinxdx где а(1;2) с шагом 0,1

короче говоря, вот код, мне надо подправить кое какие ошибки (я на форме делал), можете помочь (про то, что у меня другое выражение я знаю)?

Delphi

unit Unit1;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
 
type
TForm1 = class(TForm)
Button1: TButton;
GroupBox1: TGroupBox;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
GroupBox2: TGroupBox;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Button2: TButton;
function Fun(x,f1:real):real;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function TForm1.Fun(x, f1:real):real;
begin
f1:=1/sqrt((0.2*x*x)+1);
end;
procedure TForm1.Button1Click(Sender: TObject);
Var a,b,x,h,f,f1,f0,fn,sft,sum:real; i,n,step:integer;
begin
n:=StrToInt(Edit1.Text);
a:=StrToFloat(Edit2.Text);
b:=StrToFloat(Edit3.Text);
h:=(b-a)/n;
Label5.Caption:=FloatToStrF(h,ffFixed,4,3);
sum:=0;
x:=a;
step:=0,1;
for i:=1 to (n-1) do
begin
x:=x+h;
f:=f1*x;
sum:=sum+f;
end;
f0:=1/sqrt((0.2*a*a)+1);
fn:=1/sqrt((0.2*b*b)+1);
sft:=h*(f0+fn/2)*sum;
Label7.Caption:=FloatToStrF(sft,ffFixed,4,3);
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;
end.

Одиночка · 23.06.2012, 06:12

По-моему вот так будет правильно считать определённый интеграл:

Delphi

unit Unit1;
 
interface
 
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
  Button1: TButton;
  Edit1: TEdit;
  Edit2: TEdit;
  Edit3: TEdit;
  Label1: TLabel;
  Label2: TLabel;
  Label3: TLabel;
  Label5: TLabel;
  Label7: TLabel;
  Button2: TButton;
    Label4: TLabel;
    Label6: TLabel;
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
  function Fun(x:real):real;
  procedure Button1Click(Sender: TObject);
  procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
 
var
Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
function TForm1.Fun(x:real):real;
begin
  Result:=Sqr(x)*sin(x);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
Var
  a,b,x,h,sft,sum:real;
  i,n:integer;
begin
  n:=StrToInt(Edit1.Text);
  a:=StrToFloat(Edit2.Text);
  b:=StrToFloat(Edit3.Text);
  h:=(b-a)/n;
  Label5.Caption:=FloatToStrF(h,ffFixed,6,5);
  sum:=0;
  x:=a;
  for i:=1 to (n-1) do
  begin
    sum:=sum+Fun(x);
    x:=x+h;
  end;
  sft:=h*sum;
  Label7.Caption:=FloatToStrF(sft,ffFixed,4,3);
end;
 
procedure TForm1.Button2Click(Sender: TObject);
begin
  close;
end;
 
end.

	23.06.2012, 06:12