Question

Вычислить выражение: y = p1 (a, b-1, a + c) + p2 (a+b, 3c, a) + p3 (a, c, 2b), где функция p1 (x, y, z) – вычисляет сумму положительных параметров, p2 (x, y, z) – вычисляет выражение 4x+5y-2z, p3 (x, y, z) – вычисляет произведение x, y и z. Написать на паскале

Answer 1

var

 a, b, c: integer;

 function p1(x, y, z: integer):integer;

 begin

   if x>0 then p1:=p1+x;

   if y>0 then p1:=p1+y;

   if z>0 then p1:=p1+z;

 end;

 function p2(x, y, z: integer):integer;

 begin

   p2:= 4*x+5*y-2*z;

 end;

 function p3(x, y, z: integer):integer;

 begin

   p3:= x*y*z;

 end;

begin

 a:=2;   b:=-3;   c:=4;

 writeln(p1(a, b-1, a+c) + p2(a+b, 3*c, a)+p3(a, c,2*b));

end.