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

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

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

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

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

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

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

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

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

Итоги урока

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

Обход графа в ширину

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

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

Реализация алгоритма BFS на языке Pascal

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

program n1;

const N=5;

var start,r,i,j,count,head:integer;

G:array [1..N,1..N] of integer; ochered,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);

count:=1;

flag[start]:=1;

ochered[1]:=start;

head:=0; r:=1;

while headcount do

begin

inc(head);

writeln('- ',ochered[head]);

for i:=1 to N do

if (G[ochered[head],i]0)and(flag[i]=0) then

begin

inc(count);

ochered[count]:=i;

flag[i]:=1;

end;

for i:=1 to n do

if flag[i]=0 then begin inc(r); break; end;

end;

write('waves=',r);

end.


Основы алгоритмизации и...

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

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

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

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

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

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

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

© 2020, 408 0

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

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

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

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

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

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

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

12.05.24

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

04.05.24

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