Курсовая работа: Программная реализация разложения временного процесса в тригонометрический ряд

 procedure Button1Click(Sender: TObject);

 procedure BitBtn1Click(Sender: TObject);

 procedure BitBtn2Click(Sender: TObject);

 procedure BitBtn3Click(Sender: TObject);

 procedure BitBtn4Click(Sender: TObject);

 private

 { Private declarations }

 public

 { Public declarations }

 end;

var

 FormGraphic: TFormGraphic;

implementation

uses UnitRiad;

{$R *.dfm}

procedure TFormGraphic.Button1Click(Sender: TObject);

begin

Chart1.Series[0].Clear;

Chart1.Series[1].Clear;

Chart1.Series[2].Clear;

Close;

end;//TFormGraphic.Button1Click

procedure TFormGraphic.BitBtn1Click(Sender: TObject);

begin

 Riad.Graphic1(FormGraphic.Chart1);

end;

procedure TFormGraphic.BitBtn2Click(Sender: TObject);

begin

 Riad.Graphic2(FormGraphic.Chart1);