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

Тема в разделе "Pascal and Delphi", создана пользователем nulyjarden, 8 дек 2010.

  1. nulyjarden

    nulyjarden Гость

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

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

    Код (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';
     
Загрузка...

Поделиться этой страницей