Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата

Если по указанному адресу мы не встречаем 1 то значит данный столбец не образует подматрицу смежностей клики - пропускаем его. Начинаем Шаг 2.

Если размер множества вершин образующих клику больше 2 то запоминаем это множество.

Так до конца строки.

Повторяем Шаг 1 для всех 1 в строке.

Таким образом проходим всю матрицу. На выходе получаем несколько множеств вершин, отбираем среди них только оригинальные, не содержащие в себе других подмножеств.

Отобранные подмножества и есть клики заданного графа.

Программная реализация

procedure MakeKliks;

var   StolbecSravn,StringSravn,Num,size,i1,i,lenStolb,

      Stolbec,RetStolb:byte;

      Kstring:klik;

      f1:file of byte;

      klika:tKlik;

begin

    assign(FileKlics,'klics.ots');

    rewrite(fileKlics);

    assign(f1,'matrica.ots');

  reset(f1);

  read(f1,size);

  for I:=1 to size do

  begin

    for stolbecsravn:=1 to size do

    begin

      read(f1,smezh[i,stolbecsravn]);

    end;

Рекомендуем скачать другие рефераты по теме: рассказы, древняя греция реферат.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8 | Следующая страница реферата