Помогите пожалуйста, записать нужно в паскале!F(x)=tg x/2+2cosx
Помогите пожалуйста, записать нужно в паскале!
F(x)=tg x/2+2cosx
Гость
Ответ(ы) на вопрос:
ГостьПросто функцию написать?)
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.
Гостьvar x,f: real;
begin
write ('введите x');
readln (x);
f:= sin(x/2)/cos(x/2)+2*cos(x);
writeln ('f=',f:6);
end.
Не нашли ответ?
Похожие вопросы