===== PascalABC.NET =====
function f(u, t: real): real;
begin
Result := 0;
if u > 0 then
if t > 0 then
Result := u * u + t * t
else if t < 0 then
Result := u - t;
end
else if u < 0 then
Result := u + t
Result := u + t * t
end;
function Z(a, b: real) :=
f(a, b) + f(a * a, b * b) + f(a * a - 1, b) +
f(a - b, b) + f(a * a + b * b, b * b - 1);
Println(Z(2.5, -7.3));
Println(Z(-0.5, 4.2));
end.
Объяснение:
===== PascalABC.NET =====
function f(u, t: real): real;
begin
Result := 0;
if u > 0 then
begin
if t > 0 then
Result := u * u + t * t
else if t < 0 then
Result := u - t;
end
else if u < 0 then
begin
if t > 0 then
Result := u + t
else if t < 0 then
Result := u + t * t
end;
end;
function Z(a, b: real) :=
f(a, b) + f(a * a, b * b) + f(a * a - 1, b) +
f(a - b, b) + f(a * a + b * b, b * b - 1);
begin
Println(Z(2.5, -7.3));
Println(Z(-0.5, 4.2));
end.
Объяснение: