Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.09.18;
Скачать: CL | DM;

Вниз

Как вычислить арккосинус числа?   Найти похожие ветки 

 
Nox777   (2005-08-09 20:33) [0]

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


 
Eraser ©   (2005-08-09 20:38) [1]

См. ArcCos из модуля Math.


 
Eraser ©   (2005-08-09 20:39) [2]

Возвращаемое значение, понятное дело, в радианах будет.


 
Kolan ©   (2005-08-09 20:41) [3]

наверно проблемма в том что не подключен модуль, где лежит эта функция.

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


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


 
Antonn ©   (2005-08-10 07:11) [4]

Nox777   (09.08.05 20:33)
см [2]
caption:=floattostr(arccos(x/r)*180/pi);


 
begin...end ©   (2005-08-10 07:27) [5]

> Antonn ©   (10.08.05 07:11) [4]
> *180/pi

RadToDeg. Модуль Math.

:-)


 
Desdechado ©   (2005-08-10 19:53) [6]

а ты уверен, что у тебя допустимая величина как аргумент идет?
а то ведь от -1 до 1 должно быть
и про периодичность не забудь :)



Страницы: 1 вся ветка

Текущий архив: 2005.09.18;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.025 c
1-1125065257
Fostr
2005-08-26 18:07
2005.09.18
Просмотр изображений в TImage


6-1117384168
Новичек
2005-05-29 20:29
2005.09.18
Создание и обработка событий сокета.


14-1125058488
red_imp
2005-08-26 16:14
2005.09.18
Географическре положение


3-1123146084
Rentgen
2005-08-04 13:01
2005.09.18
Как в рантайме прописать (ADO) МастерФилдс?


14-1124384456
maximsm
2005-08-18 21:00
2005.09.18
Win XP права пользоваелей