[Graf16]

Сообщение от Bargest

В списке хранится только 1 индекс. Как по одному числу определить, что и с чем связано? Это же два числа должно быть - "что" и "с чем". Потом, зачем i от 1 до n и j от 1 до n, если при i > j ничего не делается? Не проще брать j от 1 до i?

В смысле 1 индекс,немного не понимаю вас? Если можете,то укажите на ошибку сказу в коде

Код:

procedure TForm1.Button2Click(Sender: TObject);
var
 i,j:Integer;
 fout:TextFile;
 sp:matr;
begin
 for i:=1 to n do
 begin
  for j:=1 to i do
  begin
   if (i<=j) and (StrToInt(sd1.Cells[j,i])=1) then
   begin
    if blist=nil then
    begin
     make(blist,i);
     incertK(blist,j);
    end
    else
    begin
     incertK(blist,j);
     incertK(blist,i);
    end;
   end;
  end;
 end;
 printspisok(blist);
 Label1.Caption:=str;
end;