Принятие решений в условиях риска

      Label1: TLabel;

      SpinEdit1: TSpinEdit;

      Button1: TButton;

      StringGrid2: TStringGrid;

      Memo1: TMemo;

      procedure FormCreate(Sender: TObject);

      procedure SpinEdit1Change(Sender: TObject);

      procedure Button1Click(Sender: TObject);

      procedure StringGrid1KeyPress(Sender: TObject; var Key: Char);

    private

      { Private declarations }

    public

      { Public declarations }

    end; 

  var

    Form2: TForm2; 

  implementation

      uses unit1;

  {$R *.dfm} 

  procedure TForm2.FormCreate(Sender: TObject);

  var i:integer;

  begin

  Form2.Top:=320;

  Form2.Left:=520;

  SpinEdit1.Value:=Form1.SpinEdit1.Value;

  StringGrid1.ColCount:=SpinEdit1.Value;

  StringGrid1.DefaultColWidth:=round((StringGrid1.Width-10)/StringGrid1.ColCount);

  StringGrid2.ColCount:=SpinEdit1.Value;

  StringGrid2.DefaultColWidth:=round((StringGrid2.Width-10)/StringGrid2.ColCount);

  for i:=0 to SpinEdit1.Value-1 do

  StringGrid1.Cells[i,0]:='k'+inttostr(i+1);

  for i:=0 to SpinEdit1.Value-1 do

  StringGrid2.Cells[i,0]:='q'+inttostr(i+1);

  end; 

  procedure TForm2.SpinEdit1Change(Sender: TObject);

  var i:integer;

  begin

  StringGrid1.ColCount:=SpinEdit1.Value;

  StringGrid1.DefaultColWidth:=round((StringGrid1.Width-10)/StringGrid1.ColCount);

  StringGrid2.ColCount:=SpinEdit1.Value;

  StringGrid2.DefaultColWidth:=round((StringGrid2.Width-10)/StringGrid2.ColCount);

  Form1.SpinEdit1.Value:=SpinEdit1.Value;

  for i:=0 to SpinEdit1.Value-1 do

  StringGrid1.Cells[i,0]:='k'+inttostr(i+1);

  for i:=0 to SpinEdit1.Value-1 do

  StringGrid2.Cells[i,0]:='q'+inttostr(i+1);

  end; 

  procedure TForm2.Button1Click(Sender: TObject);

  var i,s:integer;

  f:boolean;

  begin

  f:=true;

  s:=0;

  For i:=0 to SpinEdit1.Value-1 do

      if StringGrid1.Cells[i,1]='' then f:=false;

  if f=false then ShowMessage('Çíà÷åíèÿ íå îïðåäåëåíû')

  else begin

  For i:=0 to SpinEdit1.Value-1 do

      s:=s+strtoint(StringGrid1.Cells[i,1]);

  if s>0 then begin

  StringGrid2.Cells[0,1]:=floattostr(strtoint(StringGrid1.Cells[0,1])/s);

  For i:=0 to SpinEdit1.Value-1 do begin

      StringGrid2.Cells[i,1]:=floattostr(strtoint(StringGrid1.Cells[i,1])/s);

      Form1.StringGrid2.Cells[i+1,0]:=StringGrid2.Cells[i,1];

      Memo1.Text:=Memo1.Text+StringGrid1.Cells[i,1]+'*'+StringGrid2.Cells[0,1]+'/'+

                               StringGrid1.Cells[0,1]+'    ';

      end;end

  else ShowMessage('Çíà÷åíèÿ  ðàâíû 0');

  end;

  end; 

  procedure TForm2.StringGrid1KeyPress(Sender: TObject; var Key: Char);

  begin

  begin

  if  not (key in ['0'..'9',#8]) then key:=#0;

  end;

  end; 

  end.