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

 StringGrid1.Cells[1,i+1]:=FloatToStr(0.5*i)

 end;

 label10.Caption:='';

end;

procedure TForm1.BitBtn1Click(Sender: TObject);

 var i:integer;

 begin

 Riad.SetW();

 //Вычисление и вывод данных в таблицу

 Riad.Table(StringGrid1);

 end;

procedure TForm1.BitBtn4Click(Sender: TObject);

var i:integer;

begin

 for i:=0 to 201 do

 begin

 StringGrid1.Cells[2,i+1]:='';

 StringGrid1.Cells[3,i+1]:='';

 StringGrid1.Cells[4,i+1]:='';

 end;

end;

procedure TForm1.BitBtn2Click(Sender: TObject);

begin

 

 FormGraphic.Show;

end;

procedure TForm1.N4Click(Sender: TObject);

Type

//Процедурный тип для вызова процедуры из DLL