inputdata.pas

线性规划CAI应用程序及原代码

unit inputdata;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, StdCtrls;

type
  TForm2 = class(TForm)
    StringGrid1: TStringGrid;
{    procedure sijiao;}
    procedure Edit6Change(Sender: TObject);
    procedure StringGrid1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;


implementation

{$R *.DFM}

procedure TForm2.Edit6Change(Sender: TObject);
var
   place:integer;
   i:integer;
begin
    place:=128;
{    allnum:=varnum.caption + leashnum.caption}
    for i:=1 to 3 do
        begin


        end;



end;
procedure biaozhunhua;
var hanshu:string;
     i:integer;
     n:integer;
begin
{     if hanshu='min' then
         begin
               hanshu:='max';
                  for i:= 1 to n do
                      c[i]:=-c[i];
         end;
 }    {原目标函数转化}
  {   for i:=1 to m do
         if b[i]< 0 then
            begin
                 b[i]:=-b[i];
                 for j:=1 to n do
                     a[i,j]:=-a[i,j];
            end;
   }  {右端项转化}

{object Edit3: TEdit
  Left = 208
  Top = 56
  Width = 41
  Height = 21
  TabOrder = 0
  Text = 'Edit1'
end
 }

end;
procedure sijiao;
{var a:array(leashnum,yueshunum) of real;
    i,j,m,n:integer;  }
begin
{     a[m,n]:=2
     for i:=1 to leashnum do
         for j:=1 to yueshunum do
             begin
                  a[i,j]:=a[i,j]-a[i,n]*a[m,j]/a[m,n]
                  stringgrid1.cells[i,j]:=a[i,j]
             end;
 }
end;
procedure TForm2.StringGrid1Click(Sender: TObject);
begin
{with stringgrid1 do
cells[0,0]:='verygood'
end;
}
end;
end.