Технический форум
Вернуться   Технический форум > Программирование > Форум программистов > Delphi, Kylix and Pascal


Ответ
 
Опции темы Опции просмотра
Старый 14.03.2012, 22:02   #1 (permalink)
Гульназ.М.
Member
 
Регистрация: 01.02.2012
Сообщений: 75
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
Question Как пишутся arcsin, arccos на языке паскаля?

как пишутся на паскале arccos и arcsin? объясните пожалуйста.
Гульназ.М. вне форума   Ответить с цитированием

Старый 14.03.2012, 22:02
Helpmaster
Member
 
Аватар для Helpmaster
 
Регистрация: 08.03.2016
Сообщений: 0

Аналогичные посты уже размещались на нашем форуме, вот их список

Задача на языке Паскаль
Помогите пожалуйста с массивами на языке Си

Старый 14.03.2012, 23:28   #2 (permalink)
Léon
С# - learn or die
 
Аватар для Léon
 
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
По умолчанию

arcsin(X) = arctan(X/sqrt(1-sqr(X)));
arccos(X) = arctan(sqrt(1-sqr(X))/X);
Не забудьте проверку X на 0.
Léon вне форума   Ответить с цитированием
Старый 15.03.2012, 10:13   #3 (permalink)
Vladimir_S
Специалист
 
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
По умолчанию

Цитата:
Сообщение от 11Angelav Посмотреть сообщение
arcsin(X) = arctan(X/sqrt(1-sqr(X)));
arccos(X) = arctan(sqrt(1-sqr(X))/X);
Не забудьте проверку X на 0.
И на 1 при таком задании арксинуса.
В моем модуле дополнительных функций, содержащем много чего всякого-разного, эти оформлены так:
Код:
function ArcSin(X:Extended):Extended;
BEGIN
    IF ROUND(X*10000000)=10000000 THEN ArcSin:=Pi/2 ELSE
    IF ROUND(X*10000000)=-10000000 THEN ArcSin:=-Pi/2 ELSE
    ArcSin:=ArcTan(X/SQRT(1-X*X));
END;

function ArcCos(X:Extended):Extended;
BEGIN
    IF ROUND(X*10000000)=10000000 THEN ArcCos:=0 ELSE
    IF ROUND(X*10000000)=-10000000 THEN ArcCos:=Pi ELSE
    ArcCos:=(Pi/2)-ArcTan(X/SQRT(1-X*X));
END;
И кстати, Анжелика, арккосинус так, как у Вас, задавать нельзя, и вот почему. Область изменения этой функции лежит в диапазоне от 0 до π, в то время как область изменения арктангенса - от -π/2 до π/2. Попробуйте, например, подставить в Вашу формулу Х=-1. Тогда справа получится 0, а должно быть π.
Vladimir_S вне форума   Ответить с цитированием
Старый 15.03.2012, 15:15   #4 (permalink)
Léon
С# - learn or die
 
Аватар для Léon
 
Регистрация: 17.12.2011
Сообщений: 2,438
Записей в дневнике: 8
Сказал(а) спасибо: 21
Поблагодарили 49 раз(а) в 11 сообщениях
Репутация: 19701
По умолчанию

Vladimir_S и Гульназ.М., извините за ошибку.
Léon вне форума   Ответить с цитированием
Старый 15.03.2012, 18:44   #5 (permalink)
Гульназ.М.
Member
 
Регистрация: 01.02.2012
Сообщений: 75
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

11Angelav ничего страшного, все равно спасибо за внимание, и Vladimir_S спасибо большое.
Гульназ.М. вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Выкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.




Часовой пояс GMT +4, время: 21:03.

Powered by vBulletin® Version 6.2.5.
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.