Вычислить значение выражения - Pascal ABC (14455)

Формулировка задачи:

Помогите составить программу для вычисления:

Код к задаче: «Вычислить значение выражения - Pascal ABC (14455)»

textual
var x,y,f:real;
begin
writeln('Введите x');
readln(x);
if x>0 then y:=(exp(-x)+exp(x))/2/x
else y:=sqrt(abs(cos(x*x)));
f:=x*x*sin(y*y);
write('f(x,y)=',f:0:2)
end.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

5   голосов, оценка 3.800 из 5


СДЕЛАЙТЕ РЕПОСТ