По данным x, y составить программу в Паскале для вычисления функции z:1) z=(min(x,...

Question

По данным x, y составить программу в Паскале для вычисления функции z:
1) z=(min(x, y)+0,5))/(1+max^2(x, y)).

2)z=система max(x, y), x<0<br> min(x, y), x>=0.

Comments

версию 2.2 выбирай

---

спасибо, но мне не нужен новый паскаль, мне нужно программу именно со сравнениями и всем прочим, то не зачтут :(

---

ох, ладно сейчас сделаю) жди

---

:333

---

первую переделал, сейчас вторую

---

вот и вторая)

---

Спасибо огромное, добрый и терпеливый человек :)) все работает

---

ну я ведь взялся за это)

---

так что не за что)

---

обращайся - буду рад помочь)

Answer 1

1)var x,y,z,min,max:real;
begin
readln(x,y);
if x>y then 
begin
max:=x;
min:=y;
end
else if xbegin
max:=y;
min:=x;
end;
z:=(min+0.5)/(1+sqr(max));
writeln(z);
end.
2)var x,y,z,min,max:real;
begin
readln(x,y);
if x>y then
begin
max:=x;
min:=y;
end
else if xbegin
max:=y;
min:=x;
end;
if x<0 then<br>z:=max
else if x>=0 then
z:=min;
writeln(z);
end.