Форум программистов, компьютерный форум, киберфорум
Наши страницы

Free Pascal

Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 28, средняя оценка - 4.79
Truly
0 / 0 / 0
Регистрация: 03.03.2009
Сообщений: 19
#1

Вычесление тангенса - Free Pascal

22.09.2009, 14:12. Просмотров 3515. Ответов 6
Метки нет (Все метки)

Нужно вычислить тангенс Х
по формуле тг Х= синус Х делить на косинус Х. Вычесление тангенса описать в процедуре,где Х параметр процедуры,процедура вычесляет тангенс и выводит его на экран.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
22.09.2009, 14:12
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Вычесление тангенса (Free Pascal):

Задано значение тангенса угла бета (B) tgB - Free Pascal
Помогите написать программу в Free Паскале: Задано значение тангенса угла бета (B) tgB . Вычислить значение котангенса ctgB ,...

Матрица,файл с её элементами,Вычесление чётных чисел. Вывод матрицы и результата. - Free Pascal
Сообственно,помогите с написанием. 1)Матрица 8 на 4,а её элементы считываются из файла (пускай будет ааа.тхт). 2)Сумма чётных чисел...

вычесление min man - Pascal
Здраствуйте. Немогли бы помоч. нужно написать програмку z=max(min(a,b),c(квадрат),0) буду очень благодарен :)

вычесление значения переменной V - Pascal
составить программу на языке паскаль для вычисления значения переменной V, используя, оператор цикла: ...

Вычесление числа сочетаний по формуле - Pascal
Помогите с написание программы, пожалуйста=)

Программа для вычесление функции f - Pascal
Люди добрые, помогите пожалуйста бестолковому первокурснику решить задачку. Третий день мучаюсь, ничего не получается. Нужно составить...

6
Давид
Программист 1С
856 / 644 / 80
Регистрация: 03.03.2009
Сообщений: 1,154
22.09.2009, 14:45 #2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Uses crt;
Var a,tan:real;
Procedure tangens (x,t:real);
Begin
 T:=(sin(x)/cos(x));
 Write('Tangens chisla ',x:3:1,'=',t:3:3);
end;
begin
clrscr;
Write ('Vvedite chislo ');
Readln (a);
Tangens (a,tan);
readln
end.
Проверяйте то - нето!Я не тестировал...
1
Truly
0 / 0 / 0
Регистрация: 03.03.2009
Сообщений: 19
22.09.2009, 15:00  [ТС] #3
У меня с математикой туго ... но у меня получилось точно также.
В любом случае - БЛАГОДАРЮ. Пока ждал ответа на помощь,сам успел сделать )

Добавлено через 8 минут
А к чему относится переменная ТАН ?
0
Давид
Программист 1С
856 / 644 / 80
Регистрация: 03.03.2009
Сообщений: 1,154
22.09.2009, 15:17 #4
Мда...писал не думая...можно впринципе так оставить..!
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Uses crt;
Var a,t:real;
Procedure tangens (x,t:real);
Begin
 T:=(sin(x)/cos(x));
 Write('Tangens chisla ',x:3:1,'=',t:3:3);
end;
begin
clrscr;
Write ('Vvedite chislo ');
Readln (a);
Tangens (a,t);
readln
end.
0
S2dent
52 / 50 / 6
Регистрация: 10.05.2009
Сообщений: 216
22.09.2009, 15:22 #5
Ну если Procedure tangens (x,t:real) возвращает только одно значение может проще сделать ее функцией?
Вот так например:
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
function Tangens(x:real):real;
begin
  Tangens:=sin(x)/cos(x);
end;
 
var x:real;
begin
  writeln('Введите X ');
  readln(x);
  write('Ответ ',Tangens(x):5:5);
  readln;
end.
0
Давид
Программист 1С
856 / 644 / 80
Регистрация: 03.03.2009
Сообщений: 1,154
22.09.2009, 15:24 #6
Тоже верно...благодарю за поправку
0
Puporev
Модератор
54031 / 41664 / 14741
Регистрация: 18.05.2008
Сообщений: 97,961
22.09.2009, 21:20 #7
Цитата Сообщение от S2dent Посмотреть сообщение
Ну если Procedure tangens (x,t:real) возвращает только одно значение может проще сделать ее функцией?
Нет не проще. Нужно предусмотреть случай когда cosx=0 и вывести об этом сообщение, что в функции не очень удобно.
0
22.09.2009, 21:20
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
22.09.2009, 21:20
Привет! Вот еще темы с ответами:

Вычесление 1 и 2 производной (предела) функции - Pascal
Первая функция- f(x)=4^x-sqrt(x) Вторая функция- f(x)=sqrt(1+cos(x)/1-cos(x))

Найти tg(2x)+tg(3x)/tg(x2), используя функцию вычисления тангенса - Pascal
Очень прошу помочь! Нужно написать программу. Найти tg(2x)+tg(3x)/tg(x2), используя функцию вычисления тангенса.

вычислить значение тангенса полного угла альфа . - Pascal
помогите решить лабу :-[ Задан тангенс половины угла альфа . Если альфа меньше или равен 0,5 рад, то вычислить значения синуса и...

Тип обьект "вектор" содержит поля: "вектор, егоразмер и идентификатор в символьном виде", методы:"введение вектора, выведение вектора,вычесление. - Pascal
Тип обьект "вектор" содержит поля: "вектор, его размер и идентификатор в символьном виде", методы:"введение вектора, выведение...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
7
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru