Реализация сложного математического выражения, записать математическую функцию через цикл for

[Serge_Bliznykov]

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

L,M:cardinal;

неверно.
целого типа для вычисления таких факториалов НЕДОСТАТОЧНО.

ura_111, исправьте формулу (там внутри exp(-Z), а у Вас - Y

program Project_func;

{$APPTYPE CONSOLE}

uses
  SysUtils, Math;

{var
  Form1: TForm1;
  Z_heat:extended;
  a,b,c,e:extended;
  sum1,sum2,sum09,sum010:extended;
  v_max,Y_max:extended;
  i,k,n,r,t:integer;}


//Подпрограмма
{Относительное время нагрева}
function F(Z:extended):extended;
var  sum1, sum2, sum09, L,M: extended;
  n : integer;
  Y, V : extended;
  i,k,r : integer;
begin
  n:=50;
  Y := 2.2;
  V := 0.7;

  sum2:=0;
  for i:=0 to n do
    Begin
       sum09:=0;
       for k:=0 to i do
       Begin
                L:=1.0;
                for r:=2 to k do L:=L*r; //факториал
                sum09:=sum09+Power(Z,k)/L;
       End;
       sum1:=(1-exp(-Z)*sum09);

       M:=1.0;
       for r:=2 to i do M:=M*r; //факториал
       sum2:=sum2+sum1*Power(Y,i)/M;
    End;
    F:=-V+exp(-Y)*sum2;
end;

begin
  WriteLn( F(5):0:7);
  ReadLn
end.

F(5) у меня получилось 0.1069949

[Potter94]

Спасибо большое за помощь Serge_Bliznykov и ura_111. Во всем разобрался. Простые нюансы пропустил мимо глаз. Очень благодарен за отклик и содействие.

[Serge_Bliznykov]

всегда пожалуйста.
Успехов в обучении.