Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 14.05.2020, 12:15   #1
MaidDragon
 
Регистрация: 14.05.2020
Сообщений: 8
По умолчанию Как применить процедуру?

Код:
program algoritm;
 
procedure kraskal(V: Spisok; P: Ves; K, N: longint);
type
  TSet = set of byte;
var
  i, j, k1, k2, b, count: integer;
  mn: array[1..MaxN]of TSet; 
  select: array[1..MaxN * MaxN]of boolean;
begin
  for i := k downto 1 do 
    for j := 1 to i - 1 do
      if pp[j] > p[j + 1] then
      begin
        b := P[j];
        P[j] := P[j + 1];
        P[j + 1] := b;
        
        b := V[j, 1];
        V[j, 1] := V[j + 1, 1]; 
        V[j + 1, 1] := b;
        
        b := V[j, 2];
        V[j, 2] := V[j + 1, 2]; 
        V[j + 1, 2] := b;
      end;  
  for i := 1 to N do mn[i] := [i]; 
  count := N; 
  i := 1;
  while (count > 1) and (i <= k) do 
  begin
    for j := 1 to count do if V[i, 1] in mn[j] then k1 := j else if V[i, 2] in mn[j] then k2 := j; 
    if k1 <> k2 then 
    begin
      mn[k1] := mn[k1] + mn[k2]; 
      mn[k2] := []; 
      dec(count);
      select[i] := true; 
    end;
    inc(i); 
  end;
  if count = 1 then
  begin
    for i := 1 to k do if select[i] then write(i, ' ');
  end else write('-1');
end;
 
begin
  
end.
Есть процедура с алгоритмом Краскала
Как дописать код чтобы можно было их воспользоваться? Нужно ли использовать модуль GraphAbc ?
спасибо
MaidDragon вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Как вынести процедуру сортировки в отдельную процедуру Гоша00 Общие вопросы Delphi 3 31.05.2018 14:35
Применить CSS для сложного ИД Treskaaaa HTML и CSS 5 12.07.2016 13:45
Как применить функцию Predator199 PHP 6 05.08.2012 23:58
Написать процедуру, заменяющую стандартную процедуру Insert Andi5 Паскаль, Turbo Pascal, PascalABC.NET 2 24.11.2011 17:57
считает что ReOpArr это обычный массив и не может применить к нему процедуру SetLength. Dunpeal Общие вопросы Delphi 2 24.12.2007 08:07