Создать алгоритм и программу нахождения значения функции:

f = 2 у + √ y + 4 если у = е^sinx + cos x Для серии значений х=3,9; х = 5. Помогите кто умеет это делать

Программа - это один из способов записи алгоритма, поэтому "Создать алгоритм и программу" - некорректная формулировка.

Программа на паскале:

var x, y:real;

begin

x:=3.9;

y:=exp (sin (x)) + cos (x) ;

write ('x = ', x,' y = ', y) ;

if y>=0 then writeln (', f = ',2*y+sqrt (y) + 4) else writeln (', функция f не определена') ;

x:=5;

y:=exp (sin (x)) + cos (x) ;

write ('x = ', x,' y = ', y) ;

if y>=0 then writeln (', f = ',2*y+sqrt (y) + 4) else writeln (', функция f не определена') ;

end.

Результат:

x = 3.9 y = - 0.223234541662775, функция f не определена

x = 5 y = 0.666967180635498, f = 6.150614947936