Вычислить функцию - Pascal ABC (12555)
Формулировка задачи:
Помогите решить, пожалуйста
Вычислить y=tg(x+2)+ctg^2x(ctg(x+1)-tgx), при х=30 градусов, оформив в виде функций вычисление тангенса и котангенса.
Код к задаче: «Вычислить функцию - Pascal ABC (12555)»
const x = 45/180*pi; function tg(x:real):real; begin tg:=sin(x)/cos(x); end; function ctg(x:real):real; begin ctg:=cos(x)/sin(x); end; var y:real; begin y:=tg(x + 2) + sqr(ctg(x)) * (ctg(x + 1) - tg(x)); writeln(y); end.
7 голосов, оценка 4.429 из 5
СОХРАНИТЬ ССЫЛКУ