Нахождение угла между радиус вектором и осью 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