unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, XPMan, jpeg, ExtCtrls, Grids, TeeProcs, TeEngine,
  Chart;

type
  TForm1 = class(TForm)
    Image1: TImage;
    XPManifest1: TXPManifest;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Edit1: TEdit;
    Label5: TLabel;
    Edit2: TEdit;
    Edit3: TEdit;
    Label6: TLabel;
    Edit4: TEdit;
    Label7: TLabel;
    Edit5: TEdit;
    Label8: TLabel;
    StringGrid1: TStringGrid;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    StringGrid2: TStringGrid;
    Chart1: TChart;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button3Click(Sender: TObject);
begin
 close;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 i:integer;
begin
 stringgrid1.Cols[0].Clear;
 stringgrid1.Cols[1].Clear;
 with StringGrid2 do
  for i:=0 to ColCount-1 do
   Cols[i].Clear;
 edit1.Clear;
 edit2.Clear;
 edit3.Clear;
 edit4.Clear;
 edit5.Clear;
end;

procedure TForm1.Button1Click(Sender: TObject);
const
 nmax=30;
type
 Tmy = Array [1..Nmax,1..Nmax] of Extended;
 Tmx = Array [1..Nmax] of Extended;
 Ter = Array [1..Nmax,1..Nmax] of integer;
var
 A,Mx: Tmx;
 My: Tmy;
 Err: Ter;
 eps,Xn,Xk,Dx: Extended;
 J,K,N,Codeforval,ErrorHappened:Integer;
 sA: string;

procedure DataIn(N : integer; var A : Tmx; var ErrorHappened : integer);
var
 J : integer;
begin
 for J:=1 to N do
  begin
  ErrorHappened:=0;
  sA:=StringGrid1.Cells[1,J];
  Val(sA, A[J], CodeForVal);
  if CodeForVal>0 then
   begin
    ErrorHappened:=2;
    exit;
   end;
  end;
end;

procedure Calc()

end;

end;

end.