Упростить программу Опции

[Domin9es]

Помогите упростить программу. Я сам не вижу как это можно сделать. Учитель не принимает

Даны действительные числа а0,..,а5, d0,..,d5. Получить многочлен шестой степени
d0+d1(x-a0)+d2(x-a0)(x-a1)+…+d5(x-a0)(x-a1)…(x-a5).

const
  a : array [1..6] of real =  (2.0, 3.2, 1.2, -12.0, 1.5, 6.2);
  d : array [1..6] of real =  (-1.0, 2.2, 4.1, 10.1, 1/5, 2.1);
var
  x,y : real;
begin
  WriteLn('Введите значение x:');
  ReadLn(x);
  y:=d[1] + (x - a[1])*(d[2] + (x - a[2])*(d[3] +
	    (x - a[3])*(d[4] + (x - a[4])*(d[5] +
	    (x - a[5])*(d[6] + (x - a[6]))))));

  WriteLn(y);
end.

два раза создалась

Сообщение отредактировано: Domin9es - 3.01.2008 15:20