Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как вычислить арккосинус числа?

Nox777 © (2005-08-09 20:33:00)
Простой функцией arccos(x/r) у меня не вычисляет! Что делать? Вот код:
procedure TIndexForm.Button3Click(Sender: TObject);
var
alpha,x,r:real;
begin
….
alpha:=arccos(x/r);
….
End;

Desdechado (2005-08-10 19:53:00) [1]
а ты уверен, что у тебя допустимая величина как аргумент идет?
а то ведь от -1 до 1 должно быть
и про периодичность не забудь :)

begin...end (2005-08-10 07:27:00) [2]
> Antonn © (10.08.05 07:11) [4]
> *180/pi

RadToDeg. Модуль Math.

:-)

Antonn (2005-08-10 07:11:00) [3]
Nox777 (09.08.05 20:33)
см [2]
caption:=floattostr(arccos(x/r)*180/pi);

Kolan (2005-08-09 20:41:00) [4]
наверно проблемма в том что не подключен модуль, где лежит эта функция.

Чтобы это сделать добавте в секцию uses Math
Пример:
uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Math;

PS В таких случиях надо приводить текст ошибки.

Eraser (2005-08-09 20:39:00) [5]
Возвращаемое значение, понятное дело, в радианах будет.

Eraser (2005-08-09 20:38:00) [6]
См. ArcCos из модуля Math.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »