Здравствуйте, Angakok, Вы писали:

A>Есть ли в Delphi аналог функции C++ double fmod(double x, double y) ?
A>Никак не найду что-нибудь похожее (((

Как-то так:

function fmod(x, y: extended): extended;
begin
  result := frac(x/y);
  if (x < 0) xor (result < 0) then result := -result;
end;

задание на дом: поправить на предмет тихого возврата NaN при y=0.0.