Вычислить значение выражения

@Kirito98 · Регистрация: 06.10.2016

Author24 — интернет-сервис помощи студентам

Помогите написать в Паскаль

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> Y=\left(\sin ^2x+\left(\cos x-\frac{\sin ^4x^2\,+\,x^2}{x}-\frac{x^4+0.96x-1}{x^4+x^3-2.37} \right)^3+\sqrt{x} \right)^4<br />$

@Puporev · 14.11.2016, 19:46

Pascal

var x,y,a:real;
begin
repeat
write('Введите x>0 x=');
readln(x);
until x>0;
a:=cos(x)-(sqr(sqr(sin(x*x))))/x-(x*x*x*x+0.96*x-1)/(x*x*x*x+x*x*x-2.37);
y:=sqr(sin(x))+a*a*a+sqrt(x);
y:=y*y*y*y;
write('y=',y:0:4);
end.

@Kirito98 0 / 0 / 0 Регистрация: 06.10.2016 Сообщений: 43
		1
	Вычислить значение выражения 14.11.2016, 19:29. Показов 915. Ответов 1 Метки нет (Все метки) Помогите написать в Паскаль $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> Y=\left(\sin ^2x+\left(\cos x-\frac{\sin ^4x^2\,+\,x^2}{x}-\frac{x^4+0.96x-1}{x^4+x^3-2.37} \right)^3+\sqrt{x} \right)^4<br />$ 0

	14.11.2016, 19:46

Вычислить значение выражения

Решение