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

@Andron838 · Регистрация: 17.11.2015

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

$https://www.cyberforum.ru/cgi-bin/latex.cgi?Y=\begin{cases}<br /> \sqrt{\left( \sqrt[3]{4A^2}-\sqrt[3]{\left(x+2A \right)^2}\right)^3} & \text{ , } x \lt 0 \\ <br /> -\sqrt{\left( \sqrt[3]{4A^2}-\sqrt[3]{\left(x+2A \right)^2}\right)^3} & \text{ , } x \ge 0<br /> \end{cases}$

@Puporev · 20.11.2015, 09:26

Вроде так.

Pascal

var a,x,s,t,u,y:real;
begin
write('a=');
readln(a);
write('x=');
readln(x);
if a=0 then s:=0 else s:=exp(ln(4*a*a)/3);
if x+2*a=0 then t:=0 else t:=exp(ln(sqr(x+2*a))/3);
u:=(s-t)*(s-t)*(s-t);
if u<0 then write('y не определено')
else
 begin
  if u=0 then y:=0
  else
   begin
    y:=sqrt(u);
    if x>=0 then y:=-y;
   end;
  write('y=',y:0:2);
 end;
end.

@Andron838 0 / 0 / 0 Регистрация: 17.11.2015 Сообщений: 15
		1
	Вычислить значение выражения 19.11.2015, 22:29. Показов 956. Ответов 1 Метки нет (Все метки) $https://www.cyberforum.ru/cgi-bin/latex.cgi?Y=\begin{cases}<br /> \sqrt{\left( \sqrt[3]{4A^2}-\sqrt[3]{\left(x+2A \right)^2}\right)^3} & \text{ , } x \lt 0 \\ <br /> -\sqrt{\left( \sqrt[3]{4A^2}-\sqrt[3]{\left(x+2A \right)^2}\right)^3} & \text{ , } x \ge 0<br /> \end{cases}$ 0

	20.11.2015, 09:26

Опции темы

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

Решение