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

Форум программистов: 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 сообщение ] 


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

Зарегистрированные пользователи: нет зарегистрированных пользователей


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

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