Помогите решить задачу в Паскале z=(min(x,y)+0,5)/(1+max*max(x,y))

Question

Помогите решить задачу в Паскале
z=(min(x,y)+0,5)/(1+max*max(x,y))

Comments

Точно правильно переписано?

---

max*max(x,y) - тут ошибки нет?

---

да, так должно быть, max в квадрате

---

когда вводятся x и y то выбирается из них max и min

Answer 1

Var
X,Y,M:real;
Begin
Write('X = ');ReadLn(X);
Write('Y = ');ReadLn(Y);
if X>Y then
Begin
M:=X;
X:=Y
End
else M:=Y;
Write('z = ',(X+0.5)/(1+M*M))
End.

Comments

а зачем присвоили x к y? X:=Y

---

Потому что в X храниться минимальное значение, а в M - максимальное

---

а, все понял, спасибо