Простейшие вычисления

[AcidBurst]

товарищи программисты)) вот такая вот задачка: создать программу, которая получает с клавиатуры число х и вычисляет результаты двух выражений: 1-2*x+3*x^2-4*x^3 и 1+2*x+3*x^2+4*x^3. Разрешается использовать не более четырех операций умножения и четырех операций сложения и вычитания.

x:=strtoint(Edit1.text);

a:=x*x; // 2 степень
b:=a*x; // 3 степень
c:=3*a; // 3*x^2
d:=4*b; // 4*x^3
e:=1-a+c-d;
Edit2.text:=inttostr(e);

f:=1+a+c+d;
Edit4.Text:=inttostr(f);

у меня вот тут 6 операций сложения и вычитания. не могу никак сообразить где две операции убрать. дайте подсказку пожалуйста

[p51x]

Было. В вики схема Горнера для вычесления значения многочлена в точке.

[AcidBurst]

можно, но тогда будет превышение знаков сложния и вычитания

[evg_m]

(ax^2+c)*x+(bx^2+d)
-------------------
x2=x*x 1 0
r1=a*x2+c 1 1
r2=b*x2+d 1 1
r1*x+r2 1 1
-------------------
4 3

(ax+b)*x*x +(cx+d) (1,1)+(2,0)+(0,1)+(1,1)=(4,3)