Построение прогнозов количественными методами

Цель: Получение практических навыков при разработке прогнозов.

Задание:

По имеющимся данным о фактических продажах, за 12 месяцев, составить прогноз продаж (α = 0,2) представить практические и прогнозные данные об объемах продаж в виде графика, реализовать задачу в среде Delphi.

Месяц	Фактические продажи	Прогноз продаж
Январь
Февраль		50,8
Март		50,04
Апрель		53,032
Май		52,0256
Июнь		52,02048
Июль		53,216384
Август		54,7731072
Сентябрь		52,81848576
Октябрь		55,854788608
Ноябрь		56,0838308864
Декабрь		55,46706470912

Ход работы:

unit Unit1;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, StdCtrls, TeEngine, Series, ExtCtrls, TeeProcs, Chart;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Button1: TButton;

Button2: TButton;

Chart1: TChart;

Series1: TLineSeries;

Series2: TFastLineSeries;

procedure Button1Click(Sender: TObject);

procedure Button2Click(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);

var b,c,d,e,a,g:extended;

begin

begin

c:=StrToFloat(Edit1.Text);

d:=StrToFloat(Edit2.Text);

a:=0.2;

e:=a*c+(1-a)*d;

Edit2.Text:=FloatToStr(e);

Edit3.Text:=FloatToStr(e);

g:=strtofloat(edit3.Text);

series2.addXY(c,g,'i',clred);

end;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form1.Close;

end;

end.