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