Консультация № 139116
05.06.2008, 10:11
0.00 руб.
0 1 1
Помогите написать программу для расчёта функции y=a+bthx, где th - тангенс гиперболический.

Обсуждение

Неизвестный
05.06.2008, 14:08
общий
это ответ
Здравствуйте, Щербаков Евгений Николаевич!
Гиперболический тангенс - это частное гиперболических синуса и косинуса.
sh x = (e<sup>x</sup>-e<sup>-x</sup>)/2
ch x = (e<sup>x</sup>+e<sup>-x</sup>)/2
th x = sh x/ch x = (e<sup>x</sup>-e<sup>-x</sup>)/(e<sup>x</sup>+e<sup>-x</sup>)
Для нахождения экспоненты аргумента в Паскале есть функция <b>exp (x: real)</b>, с её помощью можно написать простую функцию нахождения th x. Остальное делается совсем уж просто. Программа в приложении.
Удачи!

Приложение:
Var y, a, b, x: real;function th (x: real): real; {Функция нахождения гиперболического тангенса от х}begin th:= (exp (x)-exp(-x))/(exp (x)+exp(-x)); {Находим значение по формуле}end;begin readln (a, b, x); {Входные данные} y:= a+b*th(x); {Заданная функция} writeln (y:5:5); {Форматированный вывод} readln; {Ждём нажатия клавиши}end.
Форма ответа