Помогите пожалуйста, записать нужно в паскале!F(x)=tg x/2+2cosx

Question

Помогите пожалуйста, записать нужно в паскале!
F(x)=tg x/2+2cosx

Comments

у меня так но ошибку выдаёт program zadacha;var x,f: real;beginwrite ('введите x');readln (x);f:= sin/cos*(x/2)+2*cos(x);writeln ('f=',4:6);end.

---

f:= sin/cos*(x/2)+2*cos(x); ошибка именно здесь

---

спасибо проверила, с оператором вывода всё правильно

Answer 1

Var x,f: real;
begin
write ('введите x');
readln (x);
f:= sin(x/2)/cos(x/2)+2*cos(x);
writeln ('f=',f:6);
end.

Answer 2

Просто функцию написать?)

function F(x: real): real;
begin
  { Нужное оставить, остальное - удалить }
  result := tan(x) / 2 + 2 * cos(x);
  result := tan(x / 2) + 2 * cos(x);
  result := tan(x / 2 + 2) * cos(x);
  result := tan(x / 2 + 2 * cos(x));
end;

var
  a: real;

begin
  readln(a);
  writeln(F(a));
end.