Описание функции

function F(x,n,alph,m:real):real;
  begin
    F:=0;
      if n=1 then
        F:=(x*power(alph, m*x))/(m*ln(alph))-power(alph, m*x)/(m*power(ln(alph), 2))
        else
          F:=(power(x, n)*power(alph, m*x))/(n*ln(alph))-(n*F(x,n-1,alph,m))/(m*ln(alph));
  end;

unit Unit1;
 
interface
 
uses
  Windows, Messages, math, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
 
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Button1: TButton;
    Label6: TLabel;
    Label7: TLabel;
    Edit5: TEdit;
    Label5: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Edit1KeyPress(Sender: TObject; var Key: Char);
    procedure Edit2KeyPress(Sender: TObject; var Key: Char);
    procedure Edit3KeyPress(Sender: TObject; var Key: Char);
    procedure Edit4KeyPress(Sender: TObject; var Key: Char);
    procedure Edit5KeyPress(Sender: TObject; var Key: Char);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  a,b,s,n,alph,m:real;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
 
function F(x,n,alph,m:real):real;
  begin
    F:=0;
      if n=1 then
        F:=(x*power(alph, m*x))/(m*ln(alph))-power(alph, m*x)/(m*power(ln(alph), 2))
        else
          F:=(power(x, n)*power(alph, m*x))/(n*ln(alph))-(n*F(x,n-1,alph,m))/(m*ln(alph));
  end;
 
begin
  a:=strtofloat(edit1.text);
    b:=strtofloat(edit2.text);
    n:=strtofloat(edit3.text);
    m:=strtofloat(edit4.text);
    alph:=strtofloat(edit5.text);
    s:=0;
    if n<1 then showmessage('n must be >=1')
  else
      if b<a then showmessage('a must be < b')
    else
        if ((alph=1) or (m=0)) then showmessage('OD3')
      else begin
  s:=F(b,n,alph,m)-F(a,n,alph,m);
  label7.Caption:=floattostrF(s,ffgeneral,5,2);
end;
end;
 
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #8, ',']) then
Key:=#0;
end;
 
procedure TForm1.Edit2KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #8, ',']) then
Key:=#0;
end;
 
procedure TForm1.Edit3KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #8, ',']) then
Key:=#0;
end;
 
procedure TForm1.Edit4KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #8, ',']) then
Key:=#0;
end;
 
procedure TForm1.Edit5KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['0'..'9', #8, #13, ',']) then
Key:=#0;
if (Key = #13) then Button1.Click;
end;
 
end.