Нахождение угла между радиус вектором и осью OX
Falk0ner, вс, 06/07/2008 - 15:35.
function angl(y,x:extended):extended; assembler;
asm
fld y {СТЕК!!! Сначала у, потом х}
fld x
fpatan
end;
asm
fld y {СТЕК!!! Сначала у, потом х}
fld x
fpatan
end;
вывод ответа:
s:=angl(0,1)*180/pi; {Т.к возвращается угол в радианах}
writeln(s:0:0);
writeln(s:0:0);
Автор Bink (Новиков Виктор)
Отправить комментарий