Помогите, пожалуйста, решить задачу: Для данного x вычислить значение функции, заданной системой: f(x)= { ((Sqrt(x+2 ) - 5)/( x)+ Cosx+lnx;x≥1; 2* sgr(x) +( sgr(x-1)) /|x| ; x меньше 1. Решение написать на языке Pascal.
Помогите, пожалуйста,
решить задачу:
Для
данного x вычислить значение функции, заданной системой:
f(x)= { ((Sqrt(x+2 )
- 5)/( x)+ Cosx+lnx;x≥1;
2* sgr(x) +( sgr(x-1)) /|x| ; x<1.
Решение написать на языке Pascal.
Гость
Ответ(ы) на вопрос:
Гостьvar x,f:real;
begin
writeln('Введите х:')
readln(x);
f:=0;
if x>=1 then f:= (sqrt(x+2) - 5)/x + cos(x) + ln(x);
if x<1 then f:= 2*sqr(x) + (sqr(x-1))/abs(x);
writeln('Значение функции f(x) равно:', f);
end.
Не нашли ответ?
Похожие вопросы