Написать программу, которая вычисляет значение выражения u = max(x,y,z)^2 - min(x,y,z)^2 / (max(x,y,z) + min(x,y,z))^2

@Santhein · Регистрация: 28.10.2019

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

Написать программу которая проверяет по заданным трем значениям x,y,z и вычисляет следующее выражение
$https://www.cyberforum.ru/cgi-bin/latex.cgi?u={max}^{2}(x,y,z)-{min}^{2}(x,y,z)/{(max(x,y,z)+min(x,y,z))}^{2}$

@Puporev · 28.10.2019, 09:49

Pascal

uses crt;
function max(x,y,z:real):real;
var m:real;
begin
if x>y then m:=x else m:=y;
if z>m then m:=z;
max:=m;
end;
function min(x,y,z:real):real;
var m:real;
begin
if x<y then m:=x else m:=y;
if z<m then m:=z;
min:=m;
end;
var x,y,z,mx,mn,u:real;
begin
clrscr;
writeln('Введите значения x,y,z');
readln(x,y,z);
mx:=max(x,y,z);
mn:=min(x,y,z);
if mx=-mn then write('Значение u не определено, деление на 0')
else
 begin
  u:=sqr(mx)-sqr(mn)/sqr(mx+mn);
  write('u=',u:0:2);
 end;
readln
end.

Мне кажется что первые 2 члена формулы должны быть объединены в скобки.

@Santhein 0 / 0 / 0 Регистрация: 28.10.2019 Сообщений: 12
		1
	Написать программу, которая вычисляет значение выражения u = max(x,y,z)^2 - min(x,y,z)^2 / (max(x,y,z) + min(x,y,z))^2 28.10.2019, 09:28. Показов 7116. Ответов 1 Метки нет (Все метки) Написать программу которая проверяет по заданным трем значениям x,y,z и вычисляет следующее выражение $https://www.cyberforum.ru/cgi-bin/latex.cgi?u={max}^{2}(x,y,z)-{min}^{2}(x,y,z)/{(max(x,y,z)+min(x,y,z))}^{2}$ 0

	28.10.2019, 09:49

Опции темы