Курсовая работа: Объектно-ориентированная разработка программ

{ public declarations }

end;

const

size = 6;

var

Form3: TForm3;

a:array [1..size] of integer;

b:array [1..size] of integer;

max_a,max_b,buf:integer;

i:integer;

implementation

uses tmain;

{ TForm3 }

procedure TForm3.FormShow(Sender: TObject);

begin

with StringGrid1 do

for i:=1 to size do

begin

Cells[i-1,0]:='';

Cells[i-1,1]:='';

end;

with StringGrid2 do

for i:=1 to size do

begin

Cells[i-1,0]:='';

Cells[i-1,1]:='';

end;

for i := 1 to size do

begin