sinh в комплексных числах

[Brabus]

QuadroX, спасибо большое , но метод Уважаемого val_nnm (еще раз ему спасибо )я думаю вполне устроит моего преподавателя. Спасибо за предложение

[val_nnm]

ещё если подумать, поскольку ряд не знако переменный то ошибка в редких случаях может быть немного больше eps. Вот так результат будет немного точнее

function  C_SinH (z : TComplex; Eps : real): TComplex;
var
  Sum, a, z_2: TComplex;
  i: Integer;
begin
  z_2:=C_Mult(z,z);
  C_Init(Sum, 0, 0);
  a:=z;
  i:=0;
  while C_Abs(a)>Eps do
    begin
      Sum:=C_Add(Sum, a);     // Sum:=Sum+a
      i:=i+1;
      a:=C_Mult(a, z_2);      // a:=a*sqr(x)
      a:=C_DivByNumber(a, 2*i*(2*i+1));
    end;
  Sum:=C_Add(Sum, a);
  Result:=Sum;
end;