Форум программистов, компьютерный форум, киберфорум
Наши страницы
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.55/20: Рейтинг темы: голосов - 20, средняя оценка - 4.55
Truly
0 / 0 / 0
Регистрация: 03.03.2009
Сообщений: 19
#1

Вычесление тангенса

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

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

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

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

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

вычесление min man
Здраствуйте. Немогли бы помоч. нужно написать програмку...

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

6
Давид
Программист 1С
856 / 644 / 187
Регистрация: 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 / 187
Регистрация: 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 / 24
Регистрация: 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 / 187
Регистрация: 03.03.2009
Сообщений: 1,154
22.09.2009, 15:24 #6
Тоже верно...благодарю за поправку
0
Puporev
Модератор
54397 / 41974 / 28992
Регистрация: 18.05.2008
Сообщений: 98,885
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 производной (предела) функции
Первая функция- f(x)=4^x-sqrt(x) Вторая функция- f(x)=sqrt(1+cos(x)/1-cos(x))

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

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


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

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

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