Вычислить значение f(x) В этом задании при вычислении f(x) необходимо не только правильно...

Question

Вычислить значение f(x)

В этом задании при вычислении f(x) необходимо не только правильно учесть последовательность вычислений, но и вводя дополнительные переменные, записывать выражения так, чтобы дважды не высчитывать одни и те же значения, например: с^2, 3b^2 и т.д.

f(x)=x+ab-4

x=a^2+3ba^2-3b

b=3a^2 -c^2

c = 3a/2

значение a- задать с клавиатуры.

Answer 1

ОТДЕЛ Задание+;
ИСПОЛЬЗУЕТ Вывод ИЗ "...\Отделы\Обмен\", Приём;

ПЕР  a, b, c, x, f, b3, a_2: ВЕЩ;

УКАЗ
  a := Приём.Число();
  c := 3 * a / 2;
  a_2 := a * a;
  b := 3 * a_2 - c * c;
  b3 := 3 * b;
  x := a_2 + b3 * a_2 - b3;
  f := x + a * b - 4;
  Вывод.ЧВещ("%g", f, 0, 0, 0)

КОН Задание.