СДЕЛАЙТЕ СВОИ УРОКИ ЕЩЁ ЭФФЕКТИВНЕЕ, А ЖИЗНЬ СВОБОДНЕЕ

Благодаря готовым учебным материалам для работы в классе и дистанционно

Выбрать материалы

Скидки до 50 % на комплекты
только до

Готовые ключевые этапы урока всегда будут у вас под рукой

Организационный момент

Проверка знаний

Объяснение материала

Закрепление изученного

Итоги урока

Обо мне Блог Файлы Тесты Галерея Активность Награды

Остовное дерево

Категория: Информатика

Нажмите, чтобы узнать подробности

Реализация алгоритма Прима (Крускала)

Просмотр содержимого документа
«Остовное дерево»

program n1; const N=5; Max=MaxInt;

var fin,a,Nomer,min,START,i,j,count:integer; G:array[1..N,1..N] of integer; Ver:array[1..N] of integer; flag:array[1..N] of integer;

begin

for i:=1 to N do

for j:=1 to N do

read(G[i,j]);

read(START,fin);

for i:=1 to N do

Ver[i]:= Max;

Ver[START]:=0;

for i:=1 to N-1 do

begin

min:=Max;

for j:=1 to N do

if (Ver[j]

begin

min:=Ver[j];

Nomer:=j;

end;

flag[Nomer]:=1;

for j:=1 to N do

if (G[Nomer,j]0) and (Ver[Nomer]Max) and (Ver[Nomer]+G[Nomer,j]

end;

{for i:=1 to N do

writeln(i,'=',Ver[i]);}

a:=fin;

writeln('-',fin);

repeat

for i:=1 to N do

if (G[a,i]0)and(ver[a]-G[a,i]=ver[i]) then

begin

writeln('-',i);

a:=i;

end;

Творческие задания в Sсratch 5-6 классы

Электронная тетрадь по информатике 6...

Информатика 3 класс

Видеоуроки по информатике 6 класс (к...

Информационная безопасность

Электронная тетрадь по информатике 6...

Информатика 7 класс ФГОС

Информатика 6 класс ФГОС
Скачать

© 2020, 185 0

Похожие файлы

0 Нет комментариев

Вебинар для учителей

Свидетельство об участии БЕСПЛАТНО!

Полезное для учителя

Новости проекта
03.06.24

Лайфхак учителя №1! Что делать с плохой накопляемостью отметок

12.05.24

Лайфхак учителя №2! Как перестать бегать от ученика к ученику во время практической работы

04.05.24

Лайфхак учителя №3! Что делать, если вы устали из урока в урок повторять одно и то же