Вычислить значение функции - PascalABC.NET (24506)

Формулировка задачи:

Задание: Написать программу и для вычесления суммы значений функиции, если переменная Х меняется в интервале [-2;2] с нагом 0,4. Выдает: Сумма = NaN. Как исправить?

                    Листинг программы
                
 
                        
                          
                    
Var z,x,sum:real; 
begin 
sum:=0;
x:=-2;  
while x<=2 do begin 
Z:=exp(3*ln(sin(sqrt(x)+4*x))); 
sum:=z+sum;
x:=x+0.4; 
end; 
writeln(z);
writeln('Сумма = ',sum:5:6); 
end.

Решение задачи: «Вычислить значение функции»

Листинг программы

uses System.Numerics;
 
begin 
  var sum := new Complex(0, 0);
  var x := -2.0;
  while x <= 2.0 do 
  begin 
    var cplx := new complex(x, 0);
    sum := sum + Complex.Pow(Complex.sin(Complex.sqrt(cplx) + 4*cplx), 3.0);
    x += 0.4; 
  end; 
  writeln('Сумма = ', sum.tostring()); 
end.

Объяснение кода листинга программы

Импортируется пространство имен System.Numerics.
Создается переменная sum типа Complex и инициализируется начальным значением (0, 0).
Создается переменная x типа Double и инициализируется значением -2.0.
Запускается цикл while, который выполняется до тех пор, пока значение x не станет больше или равным 2.0.
Внутри цикла создается переменная cplx типа Complex и инициализируется значением (x, 0).
К переменной sum добавляется результат вычисления функции Complex.Pow(Complex.sin(Complex.sqrt(cplx) + 4*cplx), 3.0).
Значение переменной x увеличивается на 0.4.
После окончания цикла выводится сообщение с текстом 'Сумма = ' и значением переменной sum в формате строки с помощью метода tostring().
Код завершается.