Помогите пожалуйста)решить в паскале:(1-tg x)^ctg x+cos(x-y)

Question

Помогите пожалуйста)решить в паскале:
(1-tg x)^ctg x+cos(x-y)

Comments

Полную программу написать ( с вводом x с клавиатуры) или только эту функцию?

Answer 1

По умолчанию Паскаль считает тригонометрические функции для радиан, но можно перевести в градусы, если нужно (пишите в комментариях)


var x,y:real;
begin
writeln ('Введите x,y в радианах');
read (x,y);
writeln (power((1-tan(x)),(1/tan(x))) + cos(x-y));
end.