Нахождение производной или дифферинциала

[StakanpORTvejna]

Кто знает как это можно сделать в дельфи?

[Stilet]

А как ты это в других ЯВУ делаешь? Или на бумажке?

[makSum]

Вот рабочий код. Только что проверил

var
  Form1: TForm1;
Hagk,Hagn,a,i,j,n:integer;
 hag,x,int,dx,prois,Xn,Xk:real;

implementation

{$R *.dfm}
function f(x:real):real; //опишем функцию
begin
f:=ln(x*a)+cos(a*x)*cos(a*x)/sin(a*x)+sqrt((x-7)/a)+(x+7)*a+a;
end;

 // для ИНТЕГРАЛА
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Clear;  //очистка Memo1
Memo1.Lines.Add('значения интеграла');
Xn:=strtofloat(Edit1.Text); // начальное Х
Xk:=strtofloat(Edit2.Text); // конечное Х
a:=strtoint(Edit3.Text); // параметр
Hagn:=strtoint(Edit4.Text);// начальное количество шагов разбиения
Hagk:=strtoint(Edit5.Text); //  конечное количество шагов разбиения
Chart1.SeriesList[0].Clear; // очистка графика
for i:=Hagn to Hagk do
begin            
int:=0;
hag:=(Xk-Xn)/i;   //нахождение шага
//нахождение интеграла
for j:=0 to i-1 do
begin
x:=Xn+j*hag;// находим Х
int:=int+hag*(f(x)+f(x+hag))/2;
end;
Memo1.Lines.Add('-если количество шагов пазбиения='+inttostr(i));
Memo1.Lines.Add('то интеграл='+floattostr(int));

Chart1.SeriesList[0].AddXY(i,int,'',clblue);//вывод на график полученных значений
end;
end;

 //для ПРОИЗВОДНОЙ
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo2.Lines.Clear;  //очистка Memo1
Memo2.Lines.Add('производная');
Xn:=strtofloat(Edit1.Text);  // начальное Х
Xk:=strtofloat(Edit2.Text);  // конечное Х
a:=strtoint(Edit3.Text);      // параметр
n:=strtoint(Edit6.Text)-1;    // количество шагов разбиения
dx:=strtofloat(Edit7.Text);
 Chart2.SeriesList[0].Clear;
 hag:=(Xk-Xn)/n;              //нахождение шага
 //нахождение производной
 for j:=0 to n do
  begin
 x:=Xn+j*hag;    // находим Х
 prois:=(f(x+dx)-f(x))/dx; //вычисляем производную
 Memo2.Lines.Add('-если x='+floattostr(x));
Memo2.Lines.Add('то prois='+floattostr(prois));

Chart2.SeriesList[0].AddXY(x,prois,'',clblack);//вывод на график полученных значений
 end;
end;