Question

Составьте программу вычисления значения функции y по формуле y=tgx-x ( -это модуль),для которой значение аргумента x введите с клавиатуры. Отладьте программу на следующем примере: x=6,y= -6,29101

Answer 1

var x, y: real;

begin

  writeln('Введите x');

  readln(x);

  y:= (sin(x) / cos(x)) - abs(x); //sin(x)/cos(x) - это тангенс

  writeln(y:0:5);

end.