работа с выборкой

[Inveerto]

Ребят, помогите, пожалуйста!
Нужно в дельфи посчитать прогноз показателей методом экспоненциального сглаживания. Т.е. применить формулу y'[t+1]:=a*y[t]+(1-a)*y'[t],где y'[t] — сглаженное значение для предыдущего t, a — постоянная сглаживания, также называемая фактором затухания (это число из интервала (0, 1)), y[t]=у1,у2,...,уn-заданная выборка.
Выборка задается с клавиатуры. Как это все осуществить?посоветуйте,пожалуйста! !

[Djem1991]

ну,для начала нужна функция) в ней рекурсия(т.е. обращение к самой функции), функция будит наподобии вычисления факториала.

но я сие делал немного похитрому,вот мой вариант) курсач на "5" защитил))

Procedure TForm1.ExpSgl;
var i,n,pr1,pr2: Integer;
    a,summ,otv: Real;
begin
  for i:=1 to StringGrid1.RowCount-1 do
    summ:=summ+StrToFloat(StringGrid1.Cells[1,i]);
  n:=StringGrid1.RowCount-1;
  a:=StrToFloat(Edit2.Text);//константа затухания
  pr1:=round(summ/n);
  for i:=1 to StringGrid1.RowCount-2 do
    summ:=summ+StrToFloat(StringGrid1.Cells[1,i]);
  n:=StringGrid1.RowCount-2;
  pr2:=round(summ/n);
  otv:=(pr2*a)+((1-a)*pr1);
  Label5.Caption:=прогноз'+FloatToStr(otv)+' единиц';
end;

[Inveerto]

спасибо большое!попробую)

[mkr73]

было бы замечательно увидеть курсовую)