Матрица инциденции Delphi

[shupp]

Здравствуйте. Одна из задач - задать матрицу инцидентности путём введения количества вершин и количества рёбер.
В каждом столбце матрицы должны быть либо две единицы со знаком+, т. е. 1 и 1, либо -1 и -1, либо -1 1, остальные нули. Тоесть не больше двух единиц в столбце. Столбцов с одной единицей или полностью с нулями быть не должно.
Написал код, вроде логически правильно, но чёто не работает) Подскажите что не так:

procedure TForm1.Button1Click(Sender: TObject);
begin
s:=0;
Str:=StrToInt(edit1.Text);
Stlb:=StrToInt(edit2.Text);
StringGrid1.ColCount:=Str+1;
StringGrid1.RowCount:=Stlb+1;
for i:=1 to Str do
for j:=1  to Stlb do
StringGrid1.Cells[i,j]:=IntToStr(random(3)-1);
begin
for i:=1 to Str do
for j:=1 to Stlb do
begin
if Abs(StrToInt(StringGrid1.Cells[i,j]))=1 then
begin
s:=s+1;
end;
if s=2 then
begin
for m:=i+1 to Str do
begin
StringGrid1.Cells[m,j]:='0';
end;
end;
end;
end;
end;
end.

[Serge_Bliznykov]

В каждом столбце матрицы должны быть либо две единицы со знаком+, т. е. 1 и 1, либо -1 и -1, либо -1 1, остальные нули. Тоесть не больше двух единиц в столбце. Столбцов с одной единицей или полностью с нулями быть не должно.

ну, примерно так:

procedure TForm1.Button1Click(Sender: TObject);
var i, j, m, s, rowC, colC: integer;
begin
  Randomize;
  rowC := StrToInt(edit1.Text);
  colC := StrToInt(edit2.Text);

  if rowC<2 then Exit;

  StringGrid1.FixedCols := 1;
  StringGrid1.FixedRows := 1;

  StringGrid1.ColCount := colC + 1;
  StringGrid1.RowCount := rowC + 1;

  for i := 1 to rowC do
    for j := 1 to colC do 
      StringGrid1.Cells[j , i] := IntToStr(random(3) - 1);

  for j := 1 to colC do
  begin
    s := 0;
    for i := 1 to rowC do begin
      if s>=2 then StringGrid1.Cells[j, i] := '0';
      if Abs(StrToInt(StringGrid1.Cells[j, i])) = 1 then inc(s);
    end;
    while s<2 do begin
      m := 1+Random(rowC);
      while (StringGrid1.Cells[j, m]<>'0') and (m<=rowC) do inc(m);
      if m<=rowC then begin
        if Random(2)=1
          then StringGrid1.Cells[j, m] := '-1'
          else StringGrid1.Cells[j, m] := '1';
        inc(s);
      end;
    end;
  end;
end;

но в этом случае вероятность того, что единицы окажутся в первых строчкам матрицы намного выше, чем то, что они окажутся в последних строчках...

эту проблему можно решить по разному.
например, сразу, при заполнении матрицы заполнять её так, чтобы в каждом столбце было ровно по две единицы (по модулю, конечно).

Поэтому, вот так будет более равномерное распределение:

procedure TForm1.Button1Click(Sender: TObject);
var i, j, m, s, rowC, colC: integer;
begin
  Randomize;
  rowC := StrToInt(edit1.Text);
  colC := StrToInt(edit2.Text);

  if rowC < 2 then Exit;

  StringGrid1.FixedCols := 1;
  StringGrid1.FixedRows := 1;

  StringGrid1.ColCount := colC + 1;
  StringGrid1.RowCount := rowC + 1;

  for i := 1 to rowC do
    for j := 1 to colC do 
         StringGrid1.Cells[j, i] := '0';

  for j := 1 to colC do begin
    s := 0;
    while s < 2 do begin
      m := 1 + Random(rowC);
      while (StringGrid1.Cells[j, m] <> '0') and (m <= rowC) do inc(m);
      if m <= rowC then begin
        if Random(2) = 1
          then StringGrid1.Cells[j, m] := '-1'
          else StringGrid1.Cells[j, m] := '1';
        inc(s);
      end;
    end;
  end;
end;

p.s. да-да, я вижу, что уже пять дней прошло и что автор темы, скорее всего, сам решил свою проблему... Но вдруг кому-то пригодится