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

 

implementation

uses UnitRiad, UnitGraphic;

{$R *.dfm}

procedure TForm1.BitBtn3Click(Sender: TObject);

begin

 Close;

end;

procedure TForm1.FormActivate(Sender: TObject);

 var i:integer;

begin

 //По умолчанию установить работу с обычным (классическим) объектом

 Flag:= false;

 //Имя Ini-файла сохранения параметров

 IniFileName:= GetCurrentDir+'\Riad.ini';

 //Создать обычный объект

 Riad:= TRiad.Create(IniFileName);

 //Считать данные из Ini-файла

 Riad.ReadFromIniFile;

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

 Riad.Table(StringGrid1);

 StringGrid1.Cells[0,0]:='Номер' ;

 StringGrid1.Cells[1,0]:='Время(с)';

 StringGrid1.Cells[2,0]:='F{t} при w=1';

 StringGrid1.Cells[3,0]:='F{t} при w=3';

 StringGrid1.Cells[4,0]:='F{t} при w=5';

 for i:=1 to 201 do

 StringGrid1.Cells[0,i]:=IntToStr(i) ;

 for i:=0 to 201 do