Нахождение угла между радиус вектором и осью OX

Previous  Top  Next

    
 

 

 

Code:

function angl(y,x:extended):extended;  assembler;

asm

fld y   {СТЕК!!! Сначала у, потом х}

fld x

fpatan

end;

 

 

вывод ответа:

Code:

s:=angl(0,1)*180/pi; {Т.к возвращается угол в радианах}

writeln(s:0:0);

 

 

Автор Bink (Новиков Виктор)

 

©Drkb::04103