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

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

Задание:

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

Месяц	Фактические продажи	Прогноз продаж
Январь	45	51
Февраль	50	50,8
Март	47	50,04
Апрель	65	53,032
Май	48	52,0256
Июнь	52	52,02048
Июль	58	53,216384
Август	61	54,7731072
Сентябрь	45	52,81848576
Октябрь	68	55,854788608
Ноябрь	57	56,0838308864
Декабрь	53	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;

e nd.