Теорія імовірностей та математична статистика

{$R *.DFM}

procedure TForm1.Button2Click(Sender: TObject);

begin

close;

end;

procedure TForm1.Button1Click(Sender: TObject);

var i:integer;

begin

i:=30;n:=30;

while (StringGrid1.Cells[i,0]='') do begin

n:=n-1;

i:=i-1;

end;

typ:=true;

if Combobox3.ItemIndex=1 then typ:=false;

Form1.Visible:=false;

Form2.Showmodal;

end;

end.

unit Unit2;

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,

StdCtrls, Grids;

type