→ Для вступления в общество новичков и профессионалов программирования, пожалуйста нажмите здесь ...

Форум программистов: C++, Basic, Delphi, Pascal, JavaScript
Логин: Пароль:
Запомнить?  
@Mail.ru



Начать новую тему Ответить на тему  [ 1 сообщение ] 
алгоритмы на графах 
Автор Сообщение
Начинающий

Регистрация: 16.04.2012
Сообщения: 2
Языки:
Специальность:

Репутация: 0 [ ? ]
Сообщение алгоритмы на графах
Определите количество связанных кусков в графе. Помогите пожалуйста. Она у меня есть, но я не знаю правильная она или нет.
program lab15;
uses crt;
var
i,j,n,z,t,k:integer;
a,b:array[1..100,1..100] of integer;
{b:array[1..100] of integer;}
begin
t:=0;
clrscr;
write('Введите порядок матрицы:');
readln(n);
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
writeln('Матрица смежности:');
for i:=1 to n do
for j:=1 to n do
begin
write(a[i,j]:3);
if j=n then writeln;
end;
writeln;
writeln;
k:=0;
z:=n-1;
writeln('Связанные куски:');
for i:=1 to n do
for j:=1 to n do
begin
inc(k);
i:=n-z;
if ((j<=n) and (a[i,j]=1)) then b[i,k]:=j;
if j=n then dec(z);
if b[i,k]<>0 then
write(i:3,'->',b[i,k]);
if j=n then writeln;t:=t+1
end;
write('Количество связанных кусков',t);
readkey;
end.


06.05.2012 22:54
Профиль Отправить email
Показать сообщения за:  Поле сортировки  
Начать новую тему Ответить на тему  [ 1 сообщение ] 


Кто сейчас на конференции

Зарегистрированные пользователи: Google [Bot]


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете добавлять вложения

Перейти:  
cron
© 2013 «Форум программистов Украины»