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

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

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


textual

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

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;
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.


СДЕЛАЙТЕ РЕПОСТ

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

Источник