18.05.2008, 09:50 | #1 (permalink) |
Новичок
Регистрация: 13.05.2008
Сообщений: 7
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
при решении задачи определить и использовать функции тангенса и гиперболического синуса sh(x)=(e^x-e^-x)/2 |
18.05.2008, 09:50 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Может быть на нашем форуме проблема уже решена, попробуйте посмотреть в похожих темах Задачка на ассемблере Задачка. Задачка по Паскалю |
18.05.2008, 18:15 | #3 (permalink) | |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Цитата:
__________________
Убить всех человеков! |
|
19.05.2008, 14:14 | #5 (permalink) |
Member
Регистрация: 23.01.2008
Сообщений: 1,110
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 141
|
В поскале в стнадартных фунциях есть получение экспоненты exp(x:real):real;
Так как в паскале не стнадартной функции полчения тангенса то напишим их сами. Заодно и получение значения sh(X) И так программа function tang(x:real):real; { находим тангес } begin tang:=sin(x)/cos(x); end; function sh(x:real):real; { находим значение sh} begin sh:=(exp(x)-exp(-x))/2; end; var y,z:real; begin readln(z); y:=sh(z)*tang(z+1)-tang(2+sh(z-1))*tang(2+sh(z-1)); writeln(z); end. принмаю благодарности в том числе и на яндекс.деньги 41001234877379 :) |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
19.05.2008, 16:05 | #6 (permalink) | |
support
Регистрация: 19.08.2007
Адрес: Зея
Сообщений: 15,797
Записей в дневнике: 71
Сказал(а) спасибо: 166
Поблагодарили 203 раз(а) в 86 сообщениях
Репутация: 75760
|
Цитата:
__________________
Убить всех человеков! |
|
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|