Сколько терминальных вершин содержится в полном бинарном дереве высоты 3?

вопрос

Правильный ответ:

Оставить комментарий

Отправить

• # Какие вершины взвешенного графа, заданного этой матрицей смежности, принадлежат к 10-периферии относительно вершины a? a b c d f a 0 3 10 0 0 b 3 0 5 0 0 c 10 5 0 2 4 d 0 0 2 0 2 f 0 0 4 2 0
• # Какие из приведенных ниже отрывков программ хорошо структурированы?1) procedure step(v,k: byte; r: longint); var j: byte; begin if r < min then if k = N-1 then min:= r else for j:= 1 to N do if (sm[v,j]<>0)and(mark[j]=0) then begin mark[j]:= 1; step(j,k+1,r+sm[v,j]); mark[j]:= 0 end; end; 2) for i:= 1 to N-1 do begin for x:= 1 to N do if (sm[last,x]<>0)and(not done[x]) then dist[x]:= min(dist[x],dist[last]+sm[last,x]); min_dist:= MaxLongInt; for x:= 1 to N do if (not done[x])and(min>dist[x]) then begin min_dist:= dist[x]; last:= x; end; done[last]:= true; end; 3) while head<>nil do begin with head^.e^ do if from^.dist+len < toward^.dist then begin toward^.dist:= from^.dist + len; enqueue(toward,queue,head); end; next_head:= head ^.next; dispose(head); head:= next_head end; 4) procedure infix(var p: ukaz); begin read(c); case c of '(' : begin new(p); infix(p^.left) end; '+','-',*','/' : begin p^.symbol:= c; infix(p^.right) end; ')' : {ничего не делаем}; else begin p^.symbol:= c; p^.right:= nil; p^.left:= nil; end; end; end;
• # Какой метод сортировки реализует этот фрагмент программы? for i:= 1 to n-1 do begin x:= a[i+1]; l:= 1; r:= i; while l<=r do begin s:= (l+r)div 2; if a[s]<x then l:= s+1 else r:= s-1; end; for j:= i downto 0 do a[j]:= a[j+1]; a[l]:= x; end;
• # Какие вызовы процедуры procedure p(x:real; const c: byte; var d: integer); являются неправильными с точки зрения компилятора языка Pascal?
• # В качестве аргумента при вызове подпрограммы возможно использовать арифметическое выражение, если соответствующий параметр был