IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
 Ответить  Открыть новую тему 
> Tg, Ctg, вычисление тангентса и др.
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 39
Пол: Женский

Репутация: -  0  +


Я правильно поняла, что в Паскале нет встроенных функций для вычисления tg и ctg, или все - таки они как - то вычисляются? Использовать отношения sin к cos и обратно как - то нерационально.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


Цитата
Использовать отношения sin к cos и обратно как - то нерационально.

Это почему же ?


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Новичок
*

Группа: Пользователи
Сообщений: 39
Пол: Женский

Репутация: -  0  +


Да потому что у меня километровая функция со всякими логарифмами, корнями и т.п. Если еще туда же и sin c cos добавить... Ну если только вспомогательную использовать.
Ну так я до конца и не поняла - значит все-таки нету?
Ну это просто умереть, не встать - арктангенс есть, а тангенса нет?!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


А так чем не нравиться ?
Вообще стандартной функции нет.
function tg(x:double): double;
begin
result:= sin(x)/cos(x);
end;

function ctg(x:double): double;
begin
result:= cos(x)/sin(x);
end;


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


Цитата
а тангенса нет?!


Ну так сделай тангенс и используй ;)

function Tg(x : single) : single;
begin
Tg := sin(x) / cos(x);
end;


--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #6


Гость






Цитата(natka @ 28.05.2006 15:31)
Ну это просто умереть, не встать - арктангенс есть, а тангенса нет?!
Ха-ха... А то, что АркСинуса нет, а Синус - есть, это НЕ "умереть, не встать"? И вообще... Если ты пользуешься FPC (судя по другим твоим постам), то открой для себя модуль Math...
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 18.08.2017 19:25
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"