К началу учебного года! Готовые материалы для учителей на каждый урок со скидкой от 30%

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

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

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

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

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

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

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

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

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

Итоги урока

Была в сети 12.09.2025 03:54

Вирченко Наталья Ивановна

учитель математики и информатики

53 года

13 102

2 955

Подписчики

Подписки

Местоположение

РФ, ЛНР, Красный Луч, Вахрушево

Специализация

Информатика

Математика

Алгебра

Геометрия

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

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

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

13.08.2020 20:20

Реализация алгоритма DFS на Pascal

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

program n1;

var n,i,j,start,count:integer;

G:array [1..10,1..10] of integer;

flag:array [1..10] of integer;

procedure DFS(x:integer);

var r:integer;

begin

flag[x]:= 1;

for r:=1 to n do

if (G[x,r]0)and(flag[r]=0) then

begin

inc(count);

DFS(r);

end;

begin

count:=0;

read(N,start);

for i:=1 to n do

for j:=1 to n do

read(G[i,j]);

DFS(start);

writeln(count);

end.

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

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

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

Информатика 5 класс (Россия)

Информатика и ИКТ 11 класс (к учебнику...

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

Увлекательная информатика

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

Скачать

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

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

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

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

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

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

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

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

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

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

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