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.