Нахождение угла между радиус вектором и осью OX
Материал из DRKB
function angl(y, x: Extended): Extended; assembler;
asm
fld y { СТЕК!!! Сначала у, потом х }
fld x
fpatan
end;
вывод ответа:
s := angl(0, 1) * 180 / pi; { Т.к возвращается угол в радианах }
WriteLn(s:0:0);
Author: Bink (Новиков Виктор)
ID: 04103