Программа в Делфи, позволяющая вычислить численного определения экстремума функции по методу параболической аппроксимации по заданной функции .

4.Исходный текст программы
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls, Buttons, Math, TeEngine, Series, TeeProcs,
Chart, TeeFunci;
type detArray = array [1..3,1..3] of real;
type
TForm1 = class(TForm)
Panel1: TPanel;
Panel2: TPanel;
GroupBox1: TGroupBox;
Label1: TLabel;
Label2: TLabel;
ComboBox1: TComboBox;
RadioButton1: TRadioButton;
RadioButton2: TRadioButton;
GroupBox2: TGroupBox;
Label3: TLabel;
Edit1: TEdit;
BitBtn1: TBitBtn;
GroupBox3: TGroupBox;
Label4: TLabel;
Label5: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label10: TLabel;
Edit2: TEdit;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
Edit6: TEdit;
Edit7: TEdit;
Edit8: TEdit;
BitBtn2: TBitBtn;
BitBtn3: TBitBtn;
gb: TGroupBox;
BitBtn4: TBitBtn;

1. http://reslib.com/book/Kompjyute
ie_tehnologii_vichislenij_v_matematicheskom_modelirovanii/70
2. http://ru.wikipedia.org/wiki/Delphi_%28%D1%8F%D0%B7%D1%8B%D0%BA_%D0%BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%BC%D0%B8%D1%80%D0%BE%D0%B2%D0%B0%D0%BD%D0%B8%D1%8F%29#.D0.9F.D1.80.D0.B8.D0.BC.D0.B5.D1.80_.E2.84.96.C2.A01