fork download

copy

FUNCTION KATAVOTHRA (A:MATRIX; N:INTEGER): INTEGER;
    VAR I,J,K,S:INTEGER;
        BEGIN
                KATAVOTHRA:=0;  
                I:=1;
                WHILE (KATAVOTHRA=0 AND I<N) DO   {1}
                BEGIN
                        J:=1;
                        WHILE (A[I,J]=0 AND J<N) DO J:=J+1;  {2}
                        IF (J=N) THEN BEGIN
                                S:=0;
                                FOR K=1 TO N DO S:=S+A[K,I];
                                IF (S=N-1) THEN KATAVOTHRA:=1;
                        END
                        I:=I+1;
                END;    
        END;
 
{ADJACENCY MATRIX}
{ 
0 0 1
1 0 1
0 0 0
}

prog.pas(1,30) Error: Identifier not found "MATRIX"
prog.pas(6,34) Error: Incompatible types: got "Boolean" expected "LongInt"
prog.pas(9,34) Error: Illegal qualifier
prog.pas(9,36) Error: Illegal qualifier
prog.pas(12,38) Fatal: Syntax error, ":=" expected but "=" found
Fatal: Compilation aborted
Error: /usr/bin/ppc386 returned an error exitcode (normal if you did not specify a source file to be compiled)

Standard output is empty