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

W>Здравствуйте, Serg Bormant, Вы писали:

SB>>

SB>>function fmod(x, y: extended): extended;
SB>>begin
SB>>  result := frac(x/abs(y));
SB>>end;
SB>>

SB>>p.s. примечание про "тихий NaN" в силе.

W>по-моему abs(y)*frac(x/abs(y))

точно, был невнимателен следовательно и abs ни к чему... в сухом остатке

function fmod(x, y: extended): extended;
begin
  result := y*frac(x/y);
end;