1)Вычислить выражение:

y = v1 (a, b, c) + v2 (a+3, 4b+1, ac) + v3 (a/2, c, 3b),

где функция v1 (x, y, z) – вычисляет выражение 7x+y*z,

v2 (x, y, z) – вычисляет сумму x, y и z, функция v3 (x,y,z) – разность x, y и z.

Решение настолько просто, что не требует пояснений. При решении используем функции.

program matemet1;

function v1(x, y, z : real) : real;

begin

v1 := 7*x + y*z;

end;

function v2(x, y, z : real) : real;

begin

v2 := x + y + z;

end;

function v3(x, y, z : real) : real;

begin

v3 := x - y - z;

end;

var

a, b, c : real;

d : real;

begin

writeln('Введите а, в, с. ');

readln(a, b, c);

d := v1(a, b, c) + v2(a + 3, 4*b + 1, a * c) + v3(a / 2, c, 3 * b);

writeln(d:5:3);

readln;

end.

Скачать решение.