Вычислить функцию - Pascal ABC (12555)

Формулировка задачи:

Помогите решить, пожалуйста Вычислить y=tg(x+2)+ctg^2x(ctg(x+1)-tgx), при х=30 градусов, оформив в виде функций вычисление тангенса и котангенса.

Код к задаче: «Вычислить функцию - Pascal ABC (12555)»

textual
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


СОХРАНИТЬ ССЫЛКУ