Delphi - база знаний


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


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





functionangl(y,x:extended):extended;  assembler
 asm 
  fld y   {СТЕК!!! Сначала у, потом х} 
  fld x 
  fpatan 
 end

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

Автор

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





Начало  Назад  Вперед