1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программирован. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление
  2. Чат codeby в telegram перезагрузка. Обсуждаем вопросы информационной безопасности и методы защиты информации, программирование. Задавайте свои вопросы и комментируйте чужие. Подробнее ...

    Скрыть объявление

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

Тема в разделе "Вопросы новичков и не только", создана пользователем nulyjarden, 8 дек 2010.

  1. nulyjarden

    nulyjarden Гость

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

    Вот мой набросок, но программа работает неправильно.
    В 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';
     
Загрузка...

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