Вычислить выражение: 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.
Написать на паскале
Ответы
Ответ дал:
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.
Вас заинтересует
1 год назад
1 год назад
1 год назад
1 год назад
7 лет назад
7 лет назад
8 лет назад