Не Могу Найти Ошибку В Уоде

Тема в разделе "Pascal and Delphi", создана пользователем youngster, 17 ноя 2013.

  1. youngster

    youngster New Member

    Регистрация:
    17 ноя 2013
    Сообщения:
    3
    Симпатии:
    0
    Есть задание написать программу на паскале, поверяющую графы на двудольность. Но вот никак не могу найти тут ошибку.
    Кроме этого надо сделать визуализацию. ХЭЛП!


    Код (Delphi):
    var graph:array[1..20,1..20] of integer;
    c,p:array[1..20] of integer; n,i,j:integer;

    function dfs(v,color: integer): boolean;
    var
    i: integer;
    begin
    if color = 1 then
    c[v] := 2
    else if color = 2 then
    c[v] := 1;
    for i := 1 to n do
    if graph[v, i]=1 then
    if c[i] = 0 then
    begin
    p[i] := v;
    dfs := dfs(i, c[v]);
    end
    else if (p[v] <> i) and (c[i] <> color) then           
    begin
    dfs := false;
    exit;
    end;
    dfs := true;
    end;

    Begin
    readln(n);
    for i:=1 to n do begin
    for j:=1 to n do begin read(graph[i,j]);end;readln;end;
    for i:=1 to n do begin p[i]:=0;c[i]:=0;end;
    if dfs(1,2) then writeln('vse ok') else writeln('vse ne ok');
    end.
     
  2. youngster

    youngster New Member

    Регистрация:
    17 ноя 2013
    Сообщения:
    3
    Симпатии:
    0
    up!
    неужто никто не может?
     
  3. youngster

    youngster New Member

    Регистрация:
    17 ноя 2013
    Сообщения:
    3
    Симпатии:
    0
    ну или может кто свой код показать?
     
Загрузка...

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