Компьютерная математика: Часть 2. Теория графов. Волченская Т.В - 83 стр.

UptoLike

ВУЗ: 

ПГУ | Пенза

Составители: 

Рубрика: 

l:=1; b[ x ]:=l;
n2: writeln ('Обратное отображение ‘ ,l,’-ого порядка’);
c:=0;
for i:=1 to n do
begin
if b[ i ]=1 then
begin
for j:=1 to n do
begin
if A [ i, j ]=1 then begin write (' ',j);
if b[ j ]=0 then begin
b[ j ]:=l+1; c:=c+1;
end; end;
end;
end;
if c<>0 then begin l:=l+1; goto n2; end;
writeln(‘Транзитивные замыкания:’);
for i:=1 to n do
begin
for j:=1 to n do
write (‘ ‘,A[ i,j ] );
writeln (‘ ‘,t[ i ] );
end;
writeln (‘ ‘);
for i:=1 to n do write (‘ ‘,b[i] );
end. 
       l:=1; b[ x ]:=l;
n2: writeln ('Обратное отображение ‘ ,l,’-ого порядка’);
c:=0;
       for i:=1 to n do
begin
   if b[ i ]=1 then
  begin
    for j:=1 to n do
  begin
       if A [ i, j ]=1 then begin     write (' ',j);
             if b[ j ]=0 then begin
                                 b[ j ]:=l+1; c:=c+1;
               end;       end;
  end;
end;
if c<>0 then begin l:=l+1; goto n2;         end;
 writeln(‘Транзитивные замыкания:’);
   for i:=1 to n do
begin
       for j:=1 to n do
write (‘ ‘,A[ i,j ] );
writeln (‘ ‘,t[ i ] );
end;
writeln (‘ ‘);
for i:=1 to n do write (‘ ‘,b[i] );
end.

Страницы