Продолжение приложения б

function Min: integer;

end;

TEquation = record

p1, p2: integer;

sum: integer;

solved: boolean;

end;

TVar = record

v: integer;

solved: boolean;

end;

TEqSolve = class

public

Eq: array [0..100] of TEquation;

fV: array [0..100] of TVar;

fEqCount, fVarCount, fH: integer;

function GetU( index: integer ): TVar;

function GetV( index: integer ): TVar;

procedure AddEq( p1, p2, s: integer );

constructor Create( h, v_c: integer );

procedure Solve;

property U[index: integer]: TVar read GetU;

property V[index: integer]: TVar read GetV;

end;

TForm1 = class(TForm)

Memo1: TMemo;

Button1: TButton;

Button5: TButton;

Button2: TButton;

StringGrid1: TStringGrid;

Button3: TButton;

MainMenu1: TMainMenu;

Afqk1: TMenuItem;

N1: TMenuItem;