Главная /
Программирование на языке Pascal /
Постройте дерево бинарного поиска (дерево сортировки) для входной последовательности чисел 7 2 5 1 8 3 6 4 9 13 11 10 12, а затем распечатайте вершины этого дерева в порядке обхода в ширину. Какая последовательность чисел получится?
Постройте дерево бинарного поиска (дерево сортировки) для входной последовательности чисел 7 2 5 1 8 3 6 4 9 13 11 10 12, а затем распечатайте вершины этого дерева в порядке обхода в ширину. Какая последовательность чисел получится?
вопросПравильный ответ:
7 2 5 1 8 3 6 4 9 13 11 10 12
7 2 1 5 3 4 6 8 9 13 11 10 12
10 12 7 2 5 1 8 4 9 13 11 3 6
7 2 8 1 5 9 3 6 13 4 11 10 12
1 2 3 4 5 6 7 8 9 10 11 12 13
1 4 3 6 5 2 10 12 11 13 9 8 7
13 12 11 10 9 8 7 6 5 4 3 2 1
Сложность вопроса
69
Сложность курса: Программирование на языке Pascal
75
Оценить вопрос
Комментарии:
Аноним
Экзамен прошёл на 4. Спасибо vtone
10 ноя 2018
Аноним
Экзамен сдан на пять с минусом. спс
03 дек 2016
Другие ответы на вопросы из темы программирование интуит.
- # К каким типам относится описанная ниже константа? const a: real = 10.00
- # Какое значение будет храниться в переменной а:integer после выполнения следующего программного отрывка?{b: string; p: ^word} b:= ‘ААББВВГГДД’; p:= addr(b[7]); a:= p^;
- # Какой алгоритм реализует приведенная ниже программа?const nnn=10000; type s1 = ^s2; s2 = record n,k,v: integer; next: s1; end; var f: text; head,p,q: s1; x,i,kr,vr,nxt,kol_ver: integer; a: array[1..nnn] of integer; begin assign(f,'in'); reset(f); readln(f,kol_ver); new(head); with head^ do readln(f,n,k,v); head^.next:= nil; while not eof(f) do begin new(q); with q^ do readln(f,n,k,v); q^.next:= nil; if q^.v <= head^.v then begin q^.next:= head; head:= q; continue end; p:= head; while p^.next<>nil do begin if q^.v > p^.next^.v then p:= p^.next else begin q^.next:= p^.next; p^.next:= q; break; end; end; if p^.next = nil then p^.next:= q; end; close(f); p:=head; while p<>nil do begin write(p^.v,' '); p:=p^.next; end; writeln('*'); for i:= 1 to kol_ver do a[i]:= 0; kr:= 0; vr:= 0; nxt:= 0; p:= head; while (p^.next <> nil)and(kr<kol_ver)do with p^ do begin if a[n]=0 then if a[k]=0 then begin inc(kr); inc(vr,v); inc(nxt); a[n]:= nxt; a[k]:= nxt; end else begin a[n]:= a[k]; inc(vr,v); end else if a[k]=0 then begin a[k]:= a[n]; inc(vr,v); end else if a[n]<>a[k] then begin x:= a[k]; for i:= 1 to kol_ver do if a[i]=x then a[i]:=a[n]; inc(vr,v) end; p:= next end; writeln(vr) end.
- # Какая последовательность символов будет содержаться в файле f: file of char после выполнения следующего отрывка программы: rewrite(f); for c:= '0' to '9' do write(f,c); {c: char} seek(f,5); read(f,c); write(f,c); seek(f,3); truncate(f); seek(f,9); write(f,c);
- # Какие из приведенных ниже подпрограмм вычисляют k-e число Фибоначчи, определяемое следующим образом: fib1 = 1; fib2 = 1; fibn = fibn-1+ fibn-2, для всех n>2.