Вычислить Z – сумму значений функций Z= f(a, b)+ f(a2, b2) + f(a2 – 1, b ) + f (a-b, b) + f(a2 + b2, b2 –1)

Категория: Delphi/Pascal
2012-01-13 20:06:12

где
f(u,t) = u2 + t2, если u>0, t>0
u+t2, если u<0 t<0
f(u,t) = u-t, если u>0, t<0
u+t, если u<0, t>0

code: #pascal
Program PascalGuru;
 
function f(u,t:real):real;
var rez:real;
begin
if (u>0) and (t>0) then rez:=u+t;
if (u<0) and (t<0) then rez:=u+t;
if (u>0) and (t<0) then rez:=u-t;
if (u<0) and (t>0) then rez:=u+t;
f:=rez;
end;
{----------------------------------}
var a,b,z:real;
begin
write('a= '); readln(a);
write('b= '); readln(b);
 
z:=f(a,b)+f(a,b)+f(a-1,b)+f(a-b,b)+f(a+b,b-1);
 
writeln;
writeln('Z= ',z:0:2);
 
readln;
end.
Поделиться:

Похожие статьи:

теги: студенты, сумма, функция