VPF::[Pascal] Графы - Форум программистов

Ангел

Дата 15.5.2007, 10:51 (ссылка)

(нет голосов)

Загрузка ...

Прозрачное Счастье

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 17.12.2006

Репутация: нет
Всего: нет

Решите, пожалуйста:

Нужно представить (внутреннее представление по внешнему) граф и найти компоненты связности.

Ангел

Дата 15.5.2007, 11:40 (ссылка)

(нет голосов)

Загрузка ...

Прозрачное Счастье

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 17.12.2006

Репутация: нет
Всего: нет

Цитата(Rickert @ 15.5.2007, 11:33)

www.intuit.ru -> "Курсы" -> Теория графоф (самый первый, на самом верху... и второй сверху тоже). smile

Спасибо, конечно, но мне бы код... или там есть, я могла и не заметить smile

Ангел

Дата 9.6.2007, 01:04 (ссылка)

(нет голосов)

Загрузка ...

Прозрачное Счастье

Профиль
Группа: Участник
Сообщений: 48
Регистрация: 17.12.2006

Репутация: нет
Всего: нет

Решение:

Код


Var a:array[1..100,1..100] of byte;
    u:array[1..100] of byte;
    n,i,j,last,now,k,p:Integer;
    s:array[1..101] of Integer;
begin
 Assign(input,'input.txt');
 Reset(input);
 Readln(n);
 For i:=1 to n do
  begin
   For j:=1 to n do
    Read(a[i,j]);
   Readln;
  end;
 Close(input);
 k:=0;
 Fillchar(u,sizeof(u),0);
 Assign(output,'output.txt');
 Rewrite(output);
 For p:=1 to n do
  If u[p]=0 then
   begin
    last:=1;
    now:=1;
    u[p]:=1;
    Inc(k);
    s[1]:=p;
    While (now<last+1) do
     begin
      For i:=1 to n do
       If (a[s[now],i]=1) and (u[i]=0) then
        begin
         u[i]:=1;
         Inc(last);
         s[last]:=i;
        end;
      Inc(now);
     end;
    Writeln('‚ ',k,'-â®© ª®¬¯®¥â¥ á¢ï§®áâ¨ ª®«¨ç¥áâ¢® ¢¥àè¨ à ¢®',last);
    Writeln('€ ¨å ®¬¥à  â ª¨¥:');
    For i:=1 to last-1 do
     Write(s[i],' ');
    Writeln(s[last]);
   end;
 Writeln('‚á¥£® ª®¬¯®¥â:',k);
 Close(output);
end.

M
Alexeis

Модератор: выбирайте тип подсветки кода http://forum.vingrad.ru/index.php?show_typ...howtopic=126445

Кроме того для того чтобы русские буквы правильно копировались из текстового редактора нужно переключать раскладку клавиатуры на руский.

Это сообщение отредактировал(а) Alexeis - 12.6.2007, 09:29

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »