|
Главная | Правила | Регистрация | Дневники | Справка | Пользователи | Календарь | Поиск | Сообщения за день | Все разделы прочитаны |
|
Опции темы | Опции просмотра |
14.03.2012, 22:02 | #1 (permalink) |
Member
Регистрация: 01.02.2012
Сообщений: 75
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
Как пишутся arcsin, arccos на языке паскаля?
|
14.03.2012, 22:02 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Аналогичные посты уже размещались на нашем форуме, вот их список Задача на языке Паскаль Помогите пожалуйста с массивами на языке Си |
15.03.2012, 10:13 | #3 (permalink) | |
Специалист
Регистрация: 27.08.2008
Адрес: Санкт-Петербург
Сообщений: 27,807
Сказал(а) спасибо: 340
Поблагодарили 583 раз(а) в 208 сообщениях
Репутация: 113184
|
Цитата:
В моем модуле дополнительных функций, содержащем много чего всякого-разного, эти оформлены так: Код:
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; |
|
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
|
Опции темы | |
Опции просмотра | |
|
|