Question

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

Answer 1

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

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.

Answer 2

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 3

Для записи данной функции в Паскале, нужно воспользоваться следующим синтаксисом:

function F(x: real): real;
begin
  F := tan(x/2) + 2*cos(x);
end;

В данном коде мы создаем функцию `F`, которая принимает один аргумент `x` типа `real` и возвращает значение типа `real`. Внутри функции мы используем функции `tan` и `cos` для вычисления значения функции `F`.

Надеюсь, это поможет! Если у вас возникнут еще вопросы, не стесняйтесь задавать.