Вычисление функции sgn(x) в паскале - Pascal

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

Как вычислить функцию sgn(x) в паскале? Заранее спасибо)

Код к задаче: «Вычисление функции sgn(x) в паскале - Pascal»

textual
function sgn(x: real): integer; assembler;
asm
        xor eax, eax
        fldz
        fld x
        fcomip
        ffree ST(0)
        jz @2
        jc @1
        inc eax
        jmp @2
    @1: not eax
    @2:
end;

14   голосов, оценка 4.000 из 5


СОХРАНИТЬ ССЫЛКУ