Матричное представление графов

  • Автор темы nulyjarden
  • Дата начала
N

nulyjarden

Гость
#1
Здравствуйте! Помогите пожалйуста с программой!
Перевести матрицу смежности в матрицу инциденции.

Вот мой набросок, но программа работает неправильно.
В StringGrid1 вводится матрица смежности, а в StringGrid2 выводится матрица инциденции.
Form2.Edit1.Text в цикле- количество вершин графа.

Код:
 For n:=1 to StrToInt(Form2.Edit1.Text)+1 do
For m:=1 to StrToInt(Form2.Edit1.Text)+1 do
if StringGrid1.Cells[m,n]='1' then rb:=rb+1;
For n:=1 to StrToInt(Form2.Edit1.Text) do
For m:=1 to rb do
StringGrid2.Cells[m,n]:='0';
rb:=0;
For n:=1 to StrToInt(Form2.Edit1.Text)+1 do
For m:=1 to StrToInt(Form2.Edit1.Text)+1 do
If StringGrid1.Cells[m,n]='1' then begin
rb:=rb+1;
StringGrid2.Cells[rb,m]:='1';
StringGrid2.Cells[rb,n]:='-1';