Главная /
Программирование на языке Pascal /
Какие вершины орграфа, заданного этим списком смежности, принадлежат ко второму уровню относительно вершины a?a: d f g b: d d: c f g: h h: f
Какие вершины орграфа, заданного этим списком смежности, принадлежат ко второму уровню относительно вершины a
?a: d f g
b: d
d: c f
g: h
h: f
вопрос
Правильный ответ:
a
b
c
d
f
g
h
Сложность вопроса
58
Сложность курса: Программирование на языке Pascal
75
Оценить вопрос
Комментарии:
Аноним
Зачёт сдан. Иду отмечать отмечать 5 в зачётке по тесту
03 июл 2020
Аноним
Это очень простой вопрос intuit.
30 июл 2018
Другие ответы на вопросы из темы программирование интуит.
- # Свойство алгоритма, обязывающее его в той или иной форме сообщать итоги своей работы, называется:
- # Какой алгоритм реализует приведенная ниже программа?const nnn = 10000; type uk = ^ukk; ukk = record v: integer; next: uk; end; var head: array[1..nnn] of uk; a: array[1..nnn] of integer; ii,i,j,k,n: integer; q,p: uk; f: text; procedure dob(ii,jj: integer); {добавление ребра} var pp,qq: uk; begin new(qq); qq^.v:=jj; qq^.next:=nil; if head[ii]=nil then head[ii]:=qq {вставка первого} else begin {вставка остальных} pp:=head[ii]; while pp^.next<>nil do pp:=pp^.next; pp^.next:=qq; end; end; begin {------- считывание графа ------------} ... readln(f,n); {кол-во вершин в графе} while not eof(f) do begin read(f,i,j); if i<>j then begin dob(j,i); dob(i,j); end; end; {--------- инициация массива ---------} for i:=1 to n do begin head[i]:=nil; a[i]:=0; end; {------- основная часть -------------} k:=0; i:=1; repeat k:=k+1; a[i]:=k; p:=head[i]; while p<>nil do begin j:=p^.v; a[j]:=k; if (head[j]<>nil) and (i<>j) then begin q:=p; while q^.next<>nil do q:=q^.next; q^.next:=head[j]; head[j]:=nil; end; p:=p^.next; end; i:=i+1; while (head[i]=nil) and (i<=n) do i:=i+1; until i=n+1; for i:=1 to n do if a[i]=0 then k:=k+1; writeln(k); {выдача результата} end.
- # Для того, чтобы скомпилировать только те модули программы, которые оказались затронуты внесенными изменениями, нужно воспользоваться командой:
- # Какой стандартной функции или процедуре обработки строк эквивалентен следующий программный отрывок? {s: string; i,k,t: byte} res:= ''; t:= byte(s[0]); if k+i > t+1 then k:= t-i; if i <= t then for j:= i to i+k do res:= res + s[j];
- # Сколько полей содержится в записи person? type data = record day: 1..31; month: 1..12; year: 1900.. 2100; end; person = record name: string[20]; date_birth: data; case family_status: char of 'm': (wedding_date: data; spouse_name: string[20]); 's': (church_celibate: boolean); 'd': (date_divorce: data;); 'w': (date_of_spouse_death: data); end;