Для данного x вычислить значение функции: f(x)= {■((√(x+2 ) -5)/( x)@2x^2 +〖(x-1)〗^2/|x|...

Question

Для данного x вычислить значение функции: f(x)= {■((√(x+2 ) -5)/( x)@2x^2 +〖(x-1)〗^2/|x| ; x<1)┤+ Cosx+lnx;x≥1 Решение написать на языке Pascal.

Answer 1

Var x,y:real;
begin
writeln('Введите число:');
write(x);
y = 0;
if x>=1 then y:=(sqrt(x+2) - 5)/x + cos(x) + ln(x) else y:=2*x*x + (x-1)*(x-1)/abs(x);
writeln('Значение функции равно', у);
end.

Comments

Вместо write(x) нужно read(x).