 Функция вычисления тангенса |
Прочтите прежде чем задавать вопрос!
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| agressor |
  19.01.2005 16:10
Сообщение
#1
|
|
Новичок  Группа: Пользователи Сообщений: 33 Пол: Мужской Репутация:  0   |
Написать функцию вычисляющую тангенс угла (ta(a)):ta(a)
|
   |
 
|
  |
Ответов(1 - 12)
| volvo |
19.01.2005 16:14
Сообщение
#2
|
|
Гость |
agressor
Код Tan(x) := sin(x) / cos(x); Ну и проверка на cos(x) = 0 естественно... А заголовок-то исправь... |
|
|
|
| agressor |
19.01.2005 16:27
Сообщение
#3
|
|
Новичок Группа: Пользователи Сообщений: 33 Пол: Мужской Репутация: 0 |
Я не понимаю как её написать.
|
|
|
|
| volvo |
19.01.2005 16:33
Сообщение
#4
|
|
Гость |
Код {$N+, E+} {Включение режима эмуляции сопроцессора} Function Tan(x: Double): Double; Begin Tan := 10000; { Для случая когда Cos(x) = 0 } If Abs(Cos(x)) > 0.0001 Then Tan := Sin(x) / Cos(x) End; Только в режиме эмуляции программа сможет корректно работать с вещественными типами (Single, Double, Extended) Сообщение отредактировано: volvo - 19.01.2005 16:40 |
|
|
|
| agressor |
19.01.2005 16:43
Сообщение
#5
|
|
Новичок Группа: Пользователи Сообщений: 33 Пол: Мужской Репутация: 0 |
(x: Double): Double; а что это значит?
|
|
|
|
| volvo |
19.01.2005 16:53
Сообщение
#6
|
|
Гость |
agressor
Читай книги про оформление функций - это "Заголовок функции" P.S. Название темы поменял. В следующий раз тему с таким заголовком удалю... |
|
|
|
| agressor |
19.01.2005 16:54
Сообщение
#7
|
|
Новичок Группа: Пользователи Сообщений: 33 Пол: Мужской Репутация: 0 |
{$N+, E+} Обязательно?
|
|
|
|
| volvo |
19.01.2005 16:59
Сообщение
#8
|
|
Гость |
Цитата(volvo @ 19.01.05 15:33) Только в режиме эмуляции программа сможет корректно работать с вещественными типами (Single, Double, Extended) Читать умеешь? |
|
|
|
| agressor |
19.01.2005 17:32
Сообщение
#9
|
|
Новичок Группа: Пользователи Сообщений: 33 Пол: Мужской Репутация: 0 |
А можно ее решить как нибудь для начинающих?
|
|
|
|
| FreeMan |
19.01.2005 17:46
Сообщение
#10
|
|
- Группа: Пользователи Сообщений: 480 Пол: Мужской Репутация: 4 |
А в чём проблемы????
-------------------- бб
|
|
|
|
| agressor |
19.01.2005 17:50
Сообщение
#11
|
|
Новичок Группа: Пользователи Сообщений: 33 Пол: Мужской Репутация: 0 |
Double : можно подругому?
|
|
|
|
| volvo |
19.01.2005 17:52
Сообщение
#12
|
|
Гость |
agressor
Код Function Tan(x: Real): Real; Begin Tan := 10000; { Для случая когда Cos(x) = 0 } If Abs(Cos(x)) > 0.0001 Then Tan := Sin(x) / Cos(x) End; Так лучше? Говорю сразу, без Real - не получится :no: |
|
|
|
| agressor |
19.01.2005 18:01
Сообщение
#13
|
|
Новичок Группа: Пользователи Сообщений: 33 Пол: Мужской Репутация: 0 |
спасибо!
|
|
|
|
|
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0
|
Текстовая версия | 21.07.2025 10:08 |