Для заданных границ интегрирования a и b вычислите значение определенного интеграла

[type_Oleg]

Я не проверял. Честно говоря, сам не уверен, что вообще формула на вашем рисунке правильная. Я просто тупо написал функцию по ней.

Можете проверить в онлайн-ресурсах , например здесь
Там именно неопределенный интеграл вычисляют. То есть ответ - формула первообразной. Только надо конкретные значения вместо a,n,m подставить.

Например, при n =1, a=3, m=5

[Neostat]

Сообщение от type_Oleg

Я не проверял. Честно говоря, сам не уверен, что вообще формула на вашем рисунке правильная. Я просто тупо написал функцию по ней.

Можете проверить в онлайн-ресурсах , например здесь
Там именно неопределенный интеграл вычисляют. То есть ответ - формула первообразной. Только надо конкретные значения вместо a,n,m подставить.

Например, при n =1, a=3, m=5

Спасибо, проверил и что то не очень ответы сходятся ..при a = 3, m = 2, и границами интегрирования 1 - 2, при n=1 моя программа выдает 39.80602,а там приблизительно 54

Не могли бы вы пожалуйста посмотреть,правильно ли я составил формулы? или это может быть косяк самого учебника?

[type_Oleg]

А вам именно консольную программу нужно? Зачем эти Writeln, Readeln , если Delphi ?

[Neostat]

Сообщение от type_Oleg

А вам именно консольную программу нужно? Зачем эти Writeln, Readeln , если Delphi ?

Да, знаете ,удивительно я решил другой номер под буквой г). вот он:


вот код программы:

PHP код:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows,
  Math;

var a,b,m,k:Real;//ãðàíèöû èíòåãðàëà
    n:integer;



function F1 (x:Real;k:real):Real;
begin
    F1 := (Exp(k*x)/(k*k)) * (k*x -1);
end;

function F2(x:Real;n:Integer;k:real):Real;
begin
   F2:= (Power(x,n)*Exp(k*x))/k;
end;

function Integral(a,b:Real; n:integer; k:real):Real;
begin
    if n=1 then
        Integral := F1(b,k) - F1(a,k)
      else
        begin
           Integral:= F2(b,n,k) - F2(a,n,k) -  ((n/k)* Integral(a,b,n-1,k));
        end;

end;


begin
   SetConsoleCP(1251);
   SetConsoleOutputCP(1251);


   Writeln('Ââåäèòå  k');
   Readln(k);

   //ââîä ãðàíèö
   Writeln('Ââåäèòå ïðåäåëû èíòåãðèðîâàíèÿ a,b (a<b)');
   Readln(a,b);
   while (a>b) do
     begin
         Writeln('Ââåäèòå ïðåäåëû èíòåãðèðîâàíèÿ a,b (a<b)');
         readln(a,b);
     end;

   //ââîä èíäåêñà
    Writeln('Ââåäèòå èíäåêñ (n>0))');
    Readln(n);

    //ïðîâåðêà n>0
    while (n<=0) do
     begin
       Writeln('Îøèáêà!Ïîâòîðèòå ââîä:');
       Readln(n);
     end;

     //âûâîä ðåçóëüòàòà
     Writeln('Result: ',Integral(a,b,n,k):7:5);
     Readln;


end. 


И результат работы моей программы точно такой же как и на сайте,который вы мне скниули.

[type_Oleg]

Если вам все же нужно д), то я нашел там ошибку.
Сделайте так:

function funInt(x,a:Double;n,m:Integer):Double;
begin
 if n=1
  then funInt:=x*Power(a,m*x)/(m*Ln(a))-Power(a,m*x)/Sqr(m*Ln(a))
  else funInt:=(Power(x,n)*Power(a,m*x)-n*funInt(x,a,n-1,m))/(m*Ln(a));
end;
// результат - 
 WriteLn(funInt(x2,a,n,m)-funInt(x1,a,n,m));

Все работает, проверял вот - тут, это определенный интеграл - http://matematikam.ru/calculate-onli...e-integral.php

[Neostat]

Сообщение от type_Oleg

Если вам все же нужно д), то я нашел там ошибку.
Сделайте так:

function funInt(x,a:Double;n,m:Integer):Double;
begin
 if n=1
  then funInt:=x*Power(a,m*x)/(m*Ln(a))-Power(a,m*x)/Sqr(m*Ln(a))
  else funInt:=(Power(x,n)*Power(a,m*x)-n*funInt(x,a,n-1,m))/(m*Ln(a));
end;
// результат - 
 WriteLn(funInt(x2,a,n,m)-funInt(x1,a,n,m));

Все работает, проверял вот - тут, это определенный интеграл - http://matematikam.ru/calculate-onli...e-integral.php

Спасибо большое за помощь.