Question

Паскаль. Написать программу по формуле

Answer 1

===== 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.

Объяснение: