Главная /
Программирование на языке Pascal /
В дереве 15 вершин. Сколько в нем ребер?
В дереве 15 вершин. Сколько в нем ребер?
вопросПравильный ответ:
14
15
16
Сложность вопроса
86
Сложность курса: Программирование на языке Pascal
75
Оценить вопрос
Комментарии:
Аноним
Зачёт всё. Лечу в бар отмечать победу над тестом интут
11 май 2016
Другие ответы на вопросы из темы программирование интуит.
- # Какие переменные может использовать секция внешних связей модуля C?unit A; unit C; unit F; interface interface interface uses C,D; uses D,F; var f; var a; var c; implementation implementation implementation uses A; uses F; uses B; var ff; var aa; var cc; end; end; end; unit B; unit D; interface interface uses C; var d; var b; implementation implementation uses B; uses D; var dd; var bb; end; end;
- # Какие процедуры и функции стандартного модуля Crt отвечают за очистку строк и областей ввода/вывода?
- # Какие из приведенных ниже описаний констант являются правильными с точки зрения Pascal-компилятора?
- # Какое из объявлений открытого параметра-массива является правильным?
- # Имеется набор натуральных чисел, быть может, с повторениями. Необходимо разделить его на два поднабора так, чтобы разность сумм весов была минимальной. Эта задача решается рекурсивным методом полного перебора с отсечением (см. ниже). На вход были поданы числа 45 48 32 12 12 15 46 2 2 3 15. При какой глубине стека контекстов произойдет завершение работы программы (обращение к завершающей процедуре out())? {массив а хранит веса всех предметов, в порядке их ввода, half - "большая" половина суммы всех весов, dif - отклонение текущей найденной суммы от half} procedure rec(k: byte; sum: longint; var dif: longint); var i: byte; begin if sum+a[k]<=half then for i:= k+1 to n do rec(i,sum+a[k],dif) else if half-sum<dif then begin dif:= half-sum; if dif<2 then out(dif){печать и завершение} end end;