Разобраться с кодом

10.11.2019, 17:22. Показов 354. Ответов 0

Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам

Программа написана и правильно работает, только нужны пояснения что к чему и как )

На карте местности имеется N населенных пунктов, пронумерованных от 1 до N. Некоторые из
пунктов соединены между собой дорогами. Информация о дорогах задается в виде квадратной
матрицы. При этом, если очередной элемент этой матрицы a ij = 1, то это указывает на то, что i-й и
j-й пункты соединены дорогой. Определить, можно ли попасть по этим дорогам из первого пункта
в N -й. Реализовать только рекурсивный подход.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Type
  TMas = array [1..10] of boolean;
var
i,j,N,from,to1,min:integer;
A:array [1..10,1..10] of integer;
P:TMas;
 
procedure Step(N,from,to1:integer; P:TMas; s: integer; var min:integer);
var
  s0:integer;
begin
  P[from]:=true;
  for var i:=1 to N do
     if (A[from, i]<>0) and (P[i]=false) then
     begin
       s0:=s+A[from, i];
       if i=to1 then
       begin
         if s0<min then min:=s0
       end
       else
         Step(N, i, to1, P, s0, min);
     end;
end;
 
begin
  assign(input,'input.txt');
  readln(N);
  for i:=1 to N do
  begin
    for j:=1 to N do
      read(A[i,j]);
    readln;
  end;
  readln(from,to1);
  
  for i:=1 to N do
      P[i]:=false;
  
  min:=integer.MaxValue;
  Step(N,from,to1,P,0,min);
  
  if min=integer.MaxValue then write('No')
  else write(min);
end.

cpp_developer

Эксперт

20123 / 5690 / 1417

Регистрация: 09.04.2010

Сообщений: 22,546

Блог

10.11.2019, 17:22

Ответы с готовыми решениями:

Не могу разобраться разобраться с кодом меню
Добрый день. Я понимаю, что тут все, наверное, элементарно. Но я только начала изучение js и пока для меня все страшно и сложно. Проблема...

разобраться с кодом
Помогите разобраться с кодом. Я идиот в VB и нифига не знаю)) за прогу забошлял, а препод просит рассказать что да как. Помогите плиз) ...

Разобраться с кодом
Товарищи, помогите, пожалуйста, разобраться с кодом. Есть база. В ней форма Клиент. В форме есть кнопка Выбрать. Жмёшь кнопку -...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

raxper

Эксперт

30234 / 6612 / 1498

Регистрация: 28.12.2010

Сообщений: 21,154

Блог

10.11.2019, 17:22

Помогаю со студенческими работами здесь

Разобраться с кодом
Всем привет, есть готовая программа, ее нужно немного изменить но я ничего не понимаю в коде, помогите разобраться с кодом Option...

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

Разобраться с кодом
Всем доброго времени, извиняюсь за беспокойство. Помогите разобраться ..... Есть база данных access установлена в сети на компьютере...

Разобраться с кодом
Помогите, пожалуйста, разобраться с кодом)) Только недавно начала изучать с++ и не могу понять что здесь делается в этой задаче ...

Разобраться с кодом
Очень часто встречаю код, типо PIconRec = ^TIconRec; TIconRec = packed record Width: Byte; Height: Byte; Colors:...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Опции темы

Новые блоги и статьи Все статьи Все блоги /
Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определенном условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .

Наверх