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

@deterno · Регистрация: 06.06.2016

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

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

$https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> Z=\begin{cases}\max ( x,\,y)+\min (x^2,\,y^2) & \text{, if } (x\,>\,0)\text{ and }(y\,>\,0)\\\\ e^{\cos (x)+\sin (y)} & \text{, otherwise}\end{cases}<br />$

Помогите пожалуйста

@Puporev · 27.11.2017, 09:07

Для Паскаль АВС.NET

Pascal

var x,y,z:real;
begin
writeln('Введите x,y');
readln(x,y);
if(x>0)and(y>0) then z:=max(x,y)+min(x*x,y*y)
else z:=exp(cos(x)+sin(y));
write('Z=',z:0:4)
end.

Для других

Pascal

var x,y,mx,mn,z:real;
begin
writeln('Введите x,y');
readln(x,y);
if(x>0)and(y>0) then 
 begin
  if x>y then mx:=x else mx:=y;
  if x*x<y*y then mn:=x*x else mn:=y*y;
  z:=mx+mn;
 end 
else z:=exp(cos(x)+sin(y));
write('Z=',z:0:4)
end.

@deterno 0 / 0 / 0 Регистрация: 06.06.2016 Сообщений: 3
		1
	Вычислить значение выражения 26.11.2017, 23:29. Показов 1175. Ответов 1 Метки нет (Все метки) Вычислить значение выражения: $https://www.cyberforum.ru/cgi-bin/latex.cgi?<br /> Z=\begin{cases}\max ( x,\,y)+\min (x^2,\,y^2) & \text{, if } (x\,>\,0)\text{ and }(y\,>\,0)\\\\ e^{\cos (x)+\sin (y)} & \text{, otherwise}\end{cases}<br />$ Помогите пожалуйста 0

	27.11.2017, 09:07

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

Решение